Suppression contact outlook [Résolu]

thekingsky38 5 Messages postés mardi 5 juin 2007Date d'inscription 19 juin 2007 Dernière intervention - 19 juin 2007 à 14:17 - Dernière réponse : thekingsky38 5 Messages postés mardi 5 juin 2007Date d'inscription 19 juin 2007 Dernière intervention
- 19 juin 2007 à 16:43
   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
Afficher la suite 

Votre réponse

1 réponse

Meilleure réponse
thekingsky38 5 Messages postés mardi 5 juin 2007Date d'inscription 19 juin 2007 Dernière intervention - 19 juin 2007 à 16:43
3
Merci
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

Merci thekingsky38 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 92 internautes ce mois-ci

Commenter la réponse de thekingsky38

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.