解析电子邮件地址

Question

我在Outlook 2007中编写VBA代码以从电子邮件中提取电子邮件地址。

我能够通过变量

读取整个身体

如何从变量中提取电子邮件地址？

Answer 1

描述了一种方法here。

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)

Answer 2

为什么身体？您是否查看了MailItem.Recipients集合（Recipient.Address）和MailItem.SenderEmailAddress属性？