Suppression contact outlook

Résolu
Signaler
Messages postés
5
Date d'inscription
mardi 5 juin 2007
Statut
Membre
Dernière intervention
19 juin 2007
-
Messages postés
5
Date d'inscription
mardi 5 juin 2007
Statut
Membre
Dernière intervention
19 juin 2007
-
   Bonjour,

J'aimerais supprimer un contact Outlook à partir d'une macro Access.
J'arrive bien à ajouter le contact grâce à ca :

   Dim myOlApp As New Outlook.Application
   Dim myNameSpace As NameSpace
   Dim myFolder, myFolders, myContactFolder As MAPIFolder
   Dim myNewContact As Outlook.ContactItem



   Set myOlApp = CreateObject("Outlook.Application")
   Set myNameSpace = myOlApp.GetNamespace("MAPI")
   Set myFolder = myNameSpace.Folders("Dossiers publics")
   Set myFolders = myFolder.Folders("Favoris")
   Set myContactFolder = myFolders.Folders("Contacts logicarch")
   Set myNewContact = myContactFolder.Items.Add(olContactItem)
   With myNewContact
        .FirstName = Me.sf_contact!CON_PRENOM
        .LastName = Me.sf_contact!CON_NOM
        If Not IsNull(Me.sf_contact!CON_MAIL) Then
            .Email1Address = Me.sf_contact!CON_MAIL
        End If
        .CustomerID = Me.sf_contact!CON_ID
        .BusinessTelephoneNumber = Me.sf_contact!CON_TEL
       
        If Not IsNull(Me.sf_contact!CON_FAX) Then
            .BusinessFaxNumber = Me.sf_contact!CON_FAX
        End If
        If Not IsNull(Me.sf_contact!CON_PORTABLE) Then
            .MobileTelephoneNumber = Me.sf_contact!CON_PORTABLE
        End If
        .CompanyName = Me.SOC_NOM
        If Not (IsNull(Me.sf_contact!CON_ADRESSE1) Or IsNull(Me.sf_contact!CON_ADRESSE2)) Then
             .MailingAddressStreet = Me.sf_contact!CON_ADRESSE1 & " " & Me.sf_contact!CON_ADRESSE2
        End If



        .FileAs = Me.SOC_NOM & "(" & Me.sf_contact!CON_NOM & ", " & Me.sf_contact!CON_PRENOM & ")"
       
        If Not IsNull(Me.sf_contact!CON_VILLE) Then
        .MailingAddressCity = Me.sf_contact!CON_VILLE
        End If
       
        .Save
   End With
    MsgBox "Contact Ajouté"
    Set myOlApp = Nothing

Donc l'ajout ce fait grâce à ce code. Maintenant j'aimerais ajouter le contact que quand il n'existe pas déjà et si il existe déjà savoir si il faut le mettre à jour ou annuler .

help

1 réponse

Messages postés
5
Date d'inscription
mardi 5 juin 2007
Statut
Membre
Dernière intervention
19 juin 2007

J'y suis arrivé après quelque heures de lutte :)

voici mon code pour supprimer un contact outlook en prenant des données dans un formulaires :

   Dim myolApp As New Outlook.Application
   Dim myNameSpace As NameSpace
   Dim myFolder, myFolders, myContactFolder As MAPIFolder
   Dim myNewContact As Outlook.ContactItem
    Dim sFilter As String
    Dim strPrompt As String
   
    sFilter = "[FileAs]= " & Chr(34) & Me.SOC_NOM & "(" & Me.sf_contact!CON_NOM & ", " & Me.sf_contact!CON_PRENOM & ")" & Chr(34)



   Set myolApp = CreateObject("Outlook.Application")
   Set myNameSpace = myolApp.GetNamespace("MAPI")
   Set myFolder = myNameSpace.Folders("Dossiers publics")
   Set myFolders = myFolder.Folders("Favoris")
   Set myContactFolder = myFolders.Folders("Contacts logicarch")
   Set myNewContact = myContactFolder.Items.Find(sFilter)



    If Not TypeName(myNewContact) = "Nothing" Then
        strPrompt = "Est-te vous sûre de vouloir supprimer " & Me.sf_contact!CON_CIVILITE & " " & Me.sf_contact!CON_NOM & " " & Me.sf_contact!CON_PRENOM
        If MsgBox(strPrompt, vbYesNo + vbQuestion) = vbYes Then
            myNewContact.Delete
            MsgBox ("Contact Supprimé")
        End If
    Else
        MsgBox "Le contact doit être créé dans la liste de contact Outlook avant de vouloir le supprimer", vbExclamation
    End If