B-) の独り言 - emlファイル内容のリスト化
今週はシアトルに行けないぶんスクリプトとか頑張る週なのです。というわけで、なければ作ってしまいましょう。
maillog.vbs とかって名前で保存して、コマンドラインから C:\> maillog.vbs foo.eml とかで eml の主要なヘッダを表示します。表示したいヘッダとか出力する形式とかは自由に書き換えられますね。
Dim FileName Dim Msg Dim Src Dim Attach FileName = WScript.Arguments( 0 ) Set Msg = CreateObject( "CDO.Message" ) Set Src = CreateObject( "ADODB.Stream" ) Src.Open Src.LoadFromFile FileName Msg.DataSource.OpenObject Src, "_Stream" WScript.Echo "Subject: " & Msg.Subject WScript.Echo "From: " & Msg.From WScript.Echo "To: " & Msg.To For Each Attach In Msg.Attachments WScript.Echo "Attach: " & Attach.FileName Next Src.Close