Autres Ouvrir un contact Outlook via excel

Lu K

XLDnaute Occasionnel
Bonjour à tous,

Cela fait très longtemps que je ne suis pas venu ici !
Mais aujourd'hui je rencontre un petit soucis entre Outlook et Excel.

Je souhaiterai ouvrir un contact outlook via excel. J'ai un début de piste sur l'ouverture direct de la fenêtre de contact Outlook mais impossible de trouver la solution pour afficher un contact précis suivant des informations contenu dans des cellules :

VB:
Sub Ouvrir_contact_Outlook()
'

    Dim xOutlookApp As Outlook.Application
    Dim xNameSpace As Outlook.Namespace
    Dim xFolder As Outlook.Folder
    Dim xFolderType As OlDefaultFolders
    On Error Resume Next
    Set xOutlookApp = New Outlook.Application
    Set xNameSpace = xOutlookApp.Session
    Set xFolder = xNameSpace.GetDefaultFolder(olFolderContacts) 'Ouvre la fenêtre contact de Outlook
    xFolder.display
    Set xFolder = Nothing
    Set xNameSpace = Nothing
    Set xOutlookApp = Nothing
    Exit Sub

End Sub

Merci d'avance pour vos retour.
 

Discussions similaires

Réponses
2
Affichages
423

Statistiques des forums

Discussions
313 206
Messages
2 096 215
Membres
106 534
dernier inscrit
JOACHIM N T