outlook - 解析电子邮件地址

Question

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

我可以通过一个变量来阅读整个身体

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

Answer 1

这里描述了一种方法。

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 属性？