Excel->Outlook question

[scamiade76]

🙂Bonjour,
😕En fonction d'un nom en case A1 d'un prenom en A2, comment puis je faire en cliquant en A3 pour appeler ma fiche contact dans Outlook 2003?
😕Comment aussi gérer si il y a des homonymes?
Merci par avance de votre aide.🙂

 

[MichelXld]

Re : Excel->Outlook question

bonsoir


Tu peux adapter cet exemple qui recherche un contact dont l'adresse mail est saisie dans la cellule A1.
Si l'élément est trouvé, la procédure visualise la fiche complète.

    Dim olApp As Outlook.Application
    Dim dossierContacts As Outlook.MAPIFolder
    Dim Contact As Outlook.ContactItem
    
    Set olApp = New Outlook.Application
    Set dossierContacts = olApp.GetNamespace("MAPI"). _
        GetDefaultFolder(olFolderContacts)
    
    'Recherche le contact dont le nom est saisi dans la cellule A1
    Set Contact = dossierContacts.Items.Find _
        ("[Email1Address] = '" & Range("A1") & "'")
    If Not Contact Is Nothing Then
        Contact.Display
        Else
        MsgBox "Non trouvé."
    End If

Bonne soirée
MichelXld

 

[scamiade76]

Re : Excel->Outlook question

Bonsoir,
J'y ai effectivement pensé et il fonctionne bien, mais en l'occurence, il me manque la dénomination du champs nom dans la fiche contact de outlook.
Si vous avez une idée du nom du champs je suis preneur
merci

 

[MichelXld]

Re : Excel->Outlook question

bonsoir


Tu n'est pas très précis dans le type de champ que tu recherches.
ça peut être:
FullName
LastNameAndFirstName
...


Bonne soirée
MichelXld