Obtener MailAddresses fuera de los destinatarios de un Mailitem
-
13-12-2019 - |
Pregunta
He estado tratando de averiguar una manera de averiguarlo.Considere lo siguiente:
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
En esos MsgBoxes, obtengo el "Nombre agradable", como "John Doe", pero quiero obtener la dirección de correo ", John.doe@gmail.com".
¿Cómo puedo lograr esto?
¡Gracias!
Solución
Supongo que esto es Outlook 2007+.¿Ha probado la ¿Propiedad de dirección ?
For Each Recipient In mai.Recipients
MsgBox Recipient.Address
Next Recipient
Esto debe imprimir la dirección de correo electrónico de cada destinatario.
Licenciado bajo: CC-BY-SA con atribución
No afiliado a StackOverflow