emlファイルから添付ファイルを抽出するスクリプト

emlファイルから添付ファイルを抽出するスクリプト

当該スクリプトをvbsファイルに保存し、emlファイルをドラッグ＆ドロップでデスクトップに添付ファイルが保存されます。
添付ファイルは受信日時と添付ファイル名がくっつくようにしています。



*********ここから***************

Dim EmlFileName
Dim Message,Stm,Attachment,Dtime,strDtime
Dim SaveFile,objShell

'第一引数をemlファイルとして読込
EmlFileName = WScript.Arguments(0)
Set Message = CreateObject("CDO.Message")
Set Stm = CreateObject("ADODB.Stream")
Set objShell = WScript.CreateObject("WScript.Shell")

'emlファイルを開く
Stm.Open
Stm.LoadFromFile EmlFileName

Message.DataSource.OpenObject Stm, "_Stream"

'受信日時の取得と変形
Dtime = Message.ReceivedTime
strDtime = FormatDateTime(Message.ReceivedTime, vbShortDate)
strDtime = Replace(strDtime, "/", "")

'添付ファイルを日時とファイル名を付してデスクトップに保存
For Each Attachment In Message.Attachments
    SaveFile = objShell.SpecialFolders("Desktop") &_
        "\\" & strDtime & "_" & Attachment.FileName
    Attachment.saveToFile SaveFile
Next
Stm.Close

****************ここまで*****************