質問: outlookのエクスポート機能について メールの件名、送信アドレス、受信アドレス、送受信日時を 管理する一覧表を作ろうとしています。 webなどで調べた結果、outlookのエクスポート機能を使えば 望みに近いことが実現できることがわかりました。 実際にやって見たのところ、csv形式で一覧表が作成できたの ですが、残念ながら送受信日時をエクスポートすることは できませんでした。「フィールドの一致」で出力するデータを 選択できるようにはなっているのですが、日時の情報は選択肢 に含まれていません。日時情報を出力データの選択肢に加える ことはできないのでしょうか?
回答: [エクスポート]機能も含め既存の機能では難しいと思います。 ただ、フリーウェアで近いものがあるようです。 ■outlook メール テキスト化 vba http://www.vector.co.jp/soft/win95/net/se187399.html http://hp.vector.co.jp/authors/va001911/freeware/index.html また、マクロ(vba)の知識があれば、 下記サンプルのような感じで自作するのもさほど難しくはありません。 (受信者や添付ファイルについては複数存在する場合があるので、 全てを書き出すにはもう一工夫要りますが...) 動作の概要 excelの新規ブックを作成し、 outlook上で現在選択しているフォルダ内の全てのメールについて、 ・a列に件名を ・b列に送信者のアドレスを ・c列に送信者名を ・d列に送信日時を ・e列に最初の受信者のアドレスを ・f列に最初の受信者名を ・g列に受信日時を ・h列にサイズを ・i列に最初の添付ファイルのファイル名を 順次書き出す。 (outlook2003,excel2003で動作確認) '--------------------↓ ココカラ ↓--------------------------- sub sample071128() on error resume next set mymfolder = application.activeexplorer.currentfolder set xlapp = createobject("excel.application") set mybook = xlapp.workbooks.add xlapp.visible = true with mybook.worksheets(1) i = 1 for each myitem in mymfolder.items 'a列:件名 .cells(i, 1) = myitem.subject 'b列:送信者アドレス .cells(i, 2) = myitem.senderemailaddress 'c列:送信者名 .cells(i, 3) = myitem.sendername 'd列:送信日時 .cells(i, 4) = myitem.senton 'e列:筆頭受信者アドレス .cells(i, 5) = myitem.recipients(1).address 'f列:筆頭受信者名 .cells(i, 6) = myitem.recipients(1).name 'g列:受信日時 .cells(i, 7) = myitem.receivedtime 'h列:サイズ .cells(i, 8) = myitem.size 'i列:最初の添付ファイルのファイル名 .cells(i, 9) = myitem.attachments(1).displayname i = i + 1 next myitem end with set xlapp = nothing end sub '--------------------↑ ココマデ ↑---------------------------