0

メールからメール アドレスを抽出するために、Outlook 2007 で VBA コードを作成しています。

変数を介してボディ全体を読み取ることができます

変数から電子メールアドレスを抽出するにはどうすればよいですか?

4

2 に答える 2

0

なんで体？MailItem.Recipients コレクション (Recipient.Address) と MailItem.SenderEmailAddress プロパティを見ましたか?

于 2015-04-05T19:11:46.757 に答える
0

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)
于 2015-04-05T19:01:50.003 に答える