Пиша VBA код в Outlook 2007, за да извлека имейл адрес от имейли.
Мога да чета тялото като цяло чрез променлива
Как да извлека имейл адрес от променливата?
Пиша VBA код в Outlook 2007, за да извлека имейл адрес от имейли.
Мога да чета тялото като цяло чрез променлива
Как да извлека имейл адрес от променливата?
Един метод е описан тук.
sString = "[email protected] xxx [email protected] yyy [email protected]"
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)
Защо тялото? Разглеждали ли сте колекцията MailItem.Recipients (Recipient.Address) и свойството MailItem.SenderEmailAddress?