こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

締切り済みの質問

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

こんにちは

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

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

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

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

投稿日時 - 2011-08-29 20:04:55

QNo.6976140

困ってます

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(3)

ANo.3

受信者のアドレスは、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/

投稿日時 - 2011-09-01 12:35:33

アドレスを抽出したいメールをテキスト(.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の順にスタンプされているようです。
参考に。

投稿日時 - 2011-08-29 20:50:44

ANo.1

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

投稿日時 - 2011-08-29 20:13:05

あなたにオススメの質問