Obtenir des mailaddresses sur les destinataires d'un mailItem

Question

J'essaie de trouver un moyen de trouver des adresses de courrier avec un courrier.Considérons les éléments suivants:

Private Sub Application_NewMailEx(ByVal EntryIDCollection As String)
    Dim mai As MailItem
    Dim intInitial As Integer
    Dim intFinal As Integer
    Dim strEntryId As String
    Dim intLength As Integer

    intInitial = 1
    intLength = Len(EntryIDCollection)
    intFinal = InStr(intInitial, EntryIDCollection, ",")
    Do While intFinal <> 0
        strEntryId = Strings.Mid(EntryIDCollection, intInitial, (intFinal - intInitial))
        Set mai = Application.Session.GetItemFromID(strEntryId)
        intInitial = intFinal + 1
        intFinal = InStr(intInitial, EntryIDCollection, ",")
    Loop
    strEntryId = Strings.Mid(EntryIDCollection, intInitial, (intLength - intInitial) + 1)
    MsgBox strEntryId
    Set mai = Application.Session.GetItemFromID(strEntryId)
    For Each Recipient In mai.Recipients
        MsgBox Recipient
    Next
End sub

Dans ces msgbox, je reçois le "Nice Nom", comme "John Doe" - mais je veux obtenir l'adresse mail "john.doe@gmail.com".

Comment puis-je y parvenir?

merci!

Answer 1

Je suppose que c'est Outlook 2007+.Avez-vous essayé ?

For Each Recipient In mai.Recipients
  MsgBox Recipient.Address
Next Recipient

Ceci devrait imprimer l'adresse e-mail de chaque destinataire.