Obtenir des mailaddresses sur les destinataires d'un mailItem
-
13-12-2019 - |
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!
La solution
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.
Licencié sous: CC-BY-SA avec attribution
Non affilié à StackOverflow