質問: appol.createitemfromtemplate(path) for each atc in msg.attachments atc.saveasfile path & "." & atc.displayname next next 'file path & "." & atc.displayname msgbox "抽出完了しました。"
回答: 急いでたようですが、 こんな感じでは? ご質問のvbscriptコードに手を加えました。 set allowedextensions = createobject("scripting.dictionary") allowedextensions.add "msg", 0 set args = wscript.arguments ' 引数のチェック。対象ファイル以外が混ざっている場合終了。 set fobj = createobject("scripting.filesystemobject") for each arg in args ext = fobj.getextensionname(arg) if not allowedextensions.exists(ext) then msgbox "msgファイル以外が指定されました。終了します。" wscript.quit end if next const savefolderpath = "c:\test\" ’追加、保存先アドレス。ここを変更してください。最後の¥忘れずに set appol = createobject("outlook.application") for each path in args set msg = appol.createitemfromtemplate(path) for each atc in msg.attachments atc.saveasfile savefolderpath & atc.filename ’ここを変更しました next next msgbox "抽出完了しました。"