【Outlook】受信メールアドレスを抽出したい

質問

こんにちは

Outlookで受信したメールの「送信者」のアドレスを抽出する方法が以下に記されていましたが、Outlookで受信したメールの「受信者」のアドレスを抽出したいのですが、SenderMailAddressに対するRecepientMailAddressのようなプロパティが見つけられず、困っています。

http://okwave.jp/qa/q1246445.html

できれば、他に「CC」に入っているアドレスを抽出する方法も分かれば、最高です。

どなたか良い方法を教えてください。 （VBA超初心者です）

回答No.3

10CubeLeaf

受信者のアドレスは、Item の Recipients コレクションのそれぞれのオブジェクトの Address プロパティに格納されています。

たとえば、以下のようにすると取り出せます。

strTo = ""
strCc = ""
For Each objRec In Item.Recipients
If objRec.Type = olTo Then
strTo = strTo & objRec.Address & ";"
Else
strCc = strCc & objRec.Address & ";"
End If
Next

参考URL：

http://outlooklab.wordpress.com/askme/

回答No.2

noname#151570

アドレスを抽出したいメールをテキスト（.txt)ファイルに変換できたら、その中にあるメールアドレスをテキストファイルに抽出してくれる方法の参考があります。
http://q.hatena.ne.jp/1148023190

Thunderbirdの任意のトレイにあるすべてのメールを単一のtxtファイルにエクスポートできるようになるaddon（Import Export Tools:旧名Mbox Import)を入れる必要があります。
対象のトレイの右クリックからのメニューに希望のエクスポートがあります。
http://mozilla-remix.seesaa.net/article/28838742.html

Outlookからは、Thunderbirdのツールメニューからメールデータはインポートできますが、Outlookのメールを開いた画面の「ファイル」→「名前を付けて保存」から個別のメールをtxtに保存できますから、このファイルを「アドレス取得.vbs」ファイルにD&Dしたらよいです。
この場合は、
Const ADDR_FILE = "D:\KEKKA.TXT" '■抽出たアドレスを入れるファイル名
のように、Dドライブに出力されます。

どうも、上から差出人、宛先、CCの順にスタンプされているようです。
参考に。

回答No.1

violet430

OSがXPであれば、OEへデータをインポートして、OEのデータからアドレスを抽出するツールを使う手はあります。