vba - VBA コード - 電子メール アドレスを抽出する Outlook

Question

PST ファイルから電子メール アドレスを抽出するためのコード VBA コードを取得しました。アドレスを抽出するフォルダを選択できるので、非常に便利です。コードは「To」フィールドから抽出しています。

メッセージ本文と「From」フィールドから抽出する必要があります。

コードで何を変更する必要がありますか?

Sub ExtractEmail()
Dim OlApp As Outlook.Application
Dim Mailobject As Object
Dim Email As String
Dim NS As NameSpace
Dim Folder As MAPIFolder
Set OlApp = CreateObject("Outlook.Application")
' Setup Namespace
Set NS = ThisOutlookSession.Session
' Display select folder dialog
Set Folder = NS.PickFolder
' Create Text File
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile("c:\email addresses.txt", True)
' loop to read email address from mail items.
For Each Mailobject In Folder.Items
   Email = Mailobject.To
   a.WriteLine (Email)
Next
Set OlApp = Nothing
Set Mailobject = Nothing
a.Close
End Sub

ありがとうございました。

Answer 1

mailItem オブジェクトがあるので、それを使用してフィールドを取得します。Mailobject.Sender、Mailobject.SenderEmailAddress、Mailobject.SenderName および Mailobject.Body、Mailobject.HTMLBody または Mailobject.RTFBody – Sorceri

「;」である To プロパティの値を抽出しています。受信者名の区切られたリスト。MailItem.Recipients.Collection 内のすべてのアイテムをループ処理し、受信者ごとに Recipient.Address プロパティを読み取る必要があります。– ドミトリー・ストレブレチェンコ

答えのない質問ですが、コメントで問題が解決しました