[VB6 + OUTLOOK] Test d'existance d'un contact

bonsoir

j'espere que ces infos pourront t'aider

Vérifier si un nom (leNom) existe dans la liste des contacts Outlook

Sub controleLastName_contactsOutlook()
Dim olApp As New Outlook.Application
Dim Cible As Outlook.contactItem
Dim dossierContacts As Outlook.MAPIFolder

Set olApp = New Outlook.Application
Set dossierContacts = olApp.GetNamespace("MAPI").GetDefaultFolder(olFolderContacts)

Set Cible = dossierContacts.Items.Find("[LastName] = ""leNom""")
If Not Cible Is Nothing Then
MsgBox "Existe"
Else
MsgBox "N'existe pas"
End If
End Sub

Un autre exemple qui utilise une variable pour définir la donnée à rechercher :
Dans ce cas la variable doit etre encadrée par des apostrophes "'"

Cet exemple vérifie si une adresse mail existe dans la liste des contacts :

Dim leMail As String
leMail = "nom.Prenom@mail.fr"
Set Cible = dossierContacts.Items.Find("[Email1Address] = '" & leMail & "'")

et donc pour modifier les informations d'un contact specifique :

Dim olApp As New Outlook.Application
Dim Cible As Outlook.contactItem
Dim dossierContacts As Outlook.MAPIFolder

Set olApp = New Outlook.Application
Set dossierContacts = olApp.GetNamespace("MAPI").GetDefaultFolder(olFolderContacts)

Set Cible = dossierContacts.Items.Find("[FullName] = ""LeNom, prenom""")
If Not Cible Is Nothing Then

Cible.HomeTelephoneNumber = "11 22 33 44 55"
Cible.Save
Else
MsgBox "Ce contact n'existe pas"
End If

bonne soiree
michel