Const CdoPR_EMS_AB_PROXY_ADDRESSES = &H800F101E
Private Sub AfficherAdresses()
Dim objSession As MAPI.Session
Dim objMessage As MAPI.Message
Dim objRecip As MAPI.Recipient
Dim objField As MAPI.Field
Dim v
Set objSession = CreateObject("MAPI.Session")
objSession.Logon
' Affichage du carnet d’adresses et choix d’une boîte aux lettres.
Set objMessage = objSession.Outbox.Messages.Add
Set objMessage.Recipients = objSession.AddressBook(OneAddress:=True)
Set objRecip = objMessage.Recipients(1)
' Affichage du nom et de l’adresse Exchange de la boîte aux lettres
MsgBox "Nom complet : " & objRecip.Name
MsgBox "Adresse par défaut : " & objRecip.Address
' Récupération de la propriété PR_EMS_AB_PROXY_ADDRESSES
Set objField = _
objRecip.AddressEntry.Fields(CdoPR_EMS_AB_PROXY_ADDRESSES)
' ATTENTION : PR_EMS_AB_PROXY_ADDRESSES est une propriété multivaluée
' (PT_MV_TSTRING).
For Each v In objField.Value
MsgBox "Autre adresse: " & v
Next
Set objMessage = Nothing
Set objRecip = Nothing
Set objField = Nothing
objSession.Logoff
Set objSession = Nothing
Unload Me
End Sub
Set objMessage.Recipients = objSession.AddressBook(OneAddress:=True)
Cette contribution était de : http://old.wdforge.org/newbb/viewtopic.php?forum=18&topic_id=5514&post_id=22685