Разбор адреса электронной почты

Question

Я пишу код VBA в Outlook 2007 для извлечения адреса электронной почты из писем.

Я могу прочитать тело целиком через переменную

Как извлечь адрес электронной почты из переменной?

Answer 1

Почему тело? Вы просматривали коллекцию MailItem.Recipients (Recipient.Address) и свойство MailItem.SenderEmailAddress?

Answer 2

Один метод описан здесь .

sString = "my1@email.com xxx my2@email.com yyy my3@email.com"
asString = Split(sString, " ")
For i = 0 To UBound(asString)
    If asString(i) Like "*@*.*" Then
        sEmail = sEmail & "," & asString(i)
    End If
Next

MsgBox Mid(sEmail, 2)