Urgent: Lire info de contact outlook depuis vba

Question

Bonjour
Depuis une fiche contact outlook, je voudrais avoir une fenetre qui s'ouvre avec comme information les n&#176; de telephone du contact dans un combobox.
Mon but est de pouvoir afficher un num&#233;ro modifier du num&#233;ro de contact dans une liste box

ex : je s&#233;l&#233;ctionne dans la combobox +1 123 123 1234
et il s'affiche 00011231231234

michelxld · Answer

bonsoir

j'espere que cet exemple pourra t'aider

Option Compare Text
Sub numeroTelephone_contactsOutlook()
'necessite d'activer la reference Microsoft Outlook xx.x Object Library
Dim olApp As New Outlook.Application
Dim Cible As Outlook.ContactItem
Dim dossierContacts As Outlook.MAPIFolder
Dim Resultat As String


Set olApp = New Outlook.Application
Set dossierContacts = olApp.GetNamespace("MAPI").GetDefaultFolder(olFolderContacts)


For Each Cible In dossierContacts.Items
    If Cible.LastName = "MichelXld" Then
    MsgBox Cible.HomeTelephoneNumber
    Exit For
    End If
Next


End Sub

bonne soiree
michel

cs_nbenoist · Answer

Je te remercie lichel pour ton code mais tu est obliger de conaitre le nom du contact
Alors que moi je ne le connais pas, il d&#233;pent depuis quel fiche contact j'ai executer la macro.
j'ai r&#233;ussi &#224; trouver le code ci-dessous qui fonctionne

Sub numerocontact()

   Dim ol As Outlook.Application
    Dim myInspector As Outlook.Inspector
    Dim strContactInfo As String

    Set ol = New Outlook.Application
    Set myInspector = ol.ActiveInspector

    On Error Resume Next
    strContactInfo = myInspector.CurrentItem.FullName
    If Err.Number <> 0 Then
        MsgBox "Un contact d'outlook doit etre ouvert...", , mtitle

        Err.Clear   ' Clear Err object fields
        On Error GoTo 0
        Set ol = Nothing
        Exit Sub
    End If
MsgBox myInspector.CurrentItem.BusinessTelephoneNumber
End Sub

cs_nbenoist · Answer

desole pour l'affichage 
Je ne comprend pas pourquoi cela donne ca

Bizard