Chegando mailaddresses de destinatários de uma mailItem
-
13-12-2019 - |
Pergunta
Eu tentando descobrir uma maneira de descobrir o que de email adresses um e-mail foi enviado.Considere o seguinte:
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
Nesses msgBoxes eu obter o "bom nome", Como "João da Silva" - mas eu quero começar o endereço de email, "john.doe@gmail.com".
Como posso conseguir isso?
Obrigado!
Solução
Eu suponho que este é o Outlook 2007.Você já tentou o Endereço Do Imóvel?
For Each Recipient In mai.Recipients
MsgBox Recipient.Address
Next Recipient
Esta deve imprimir o endereço de e-mail de cada destinatário.
Licenciado em: CC-BY-SA com atribuição
Não afiliado a StackOverflow