Outlook 2003のメッセージから電子メールアドレスを取得する方法

Question

Sub GetALLEmailAddresses() 

Dim objFolder As Folders 
Set objFolder = Application.ActiveExplorer.Selection 



Dim dic As New Dictionary 
Dim strEmail As String 
Dim strEmails As String 

Dim objItem As MailItem 
For Each objItem In objFolder.Items 

strEmail = objItem.SenderEmailAddress 
If Not dic.Exists(strEmail) Then 
strEmails = strEmails + strEmail + ";" 
dic.Add strEmail, "" 
End If 

Next 

Debug.Print strEmails 
End Sub 

このコードを使用してメッセージ本文から電子メールアドレスを取得します。私はVBで知事ではない。 Outlook 2003のメッセージから電子メールアドレスを取得する方法を教えてください。

Answer 1

その場合、私は何かが組み込まれているとは思わないので、SenderEmailAddressを気にする必要はなく、代わりにBodyを出してからテキストの電子メールアドレスを検索することをお勧めします。これはいくらか複雑になります。なぜなら、電子メールアドレスの一部とそうでないものを区別することが難しいかもしれないからです。

最も簡単なのは、テキスト内の@を探して、@の両側にある次の空白を検索し、それらの空白の間のすべてを取得することです。しかし、考えなければならないことはたくさんあります。何らかの理由でユーザが@と入力した場合、またはThe first email is xxx@test.com.The second email is xxx2@test.com（.とTheの間にスペースがないことに注意してください）のようなものが含まれている場合、あなたのアプリはメールがxxx@test.com.Theであると考えるかもしれません。私の答えは質問の完全な誤解に基づいていたので、編集

。