前提・実現したいこと
Outlookで受信したメールから、特定の文字列"○○○yymm.xlsx"(〇=アルファベット3文字)というファイル名の添付ファイルを所定のフォルダに保存するようなマクロを組みたいです。
"yymm"のところをワイルドカードにして書いているのですが、その行でエラーが発生してしまいます。
発生している問題・エラーメッセージ
実行時エラー”5” プロシージャの呼び出し、または引数が不正です。
該当のソースコード
Sub SaveAttachmentFile2() Dim objItem As Object Dim strfile As String Dim strPath As String strPath = "C:\Users\Atsuki\Desktop\新しいフォルダー (2)\" 'ファイルを保存したいフォルダ Set objItem = Application.ActiveInspector.CurrentItem '今開いているメールオブジェクトを取得 With objItem If Not .Attachments.Item.FileName Like "DRF####.xlsx" Then Exit Sub Else strfile = strPath & .Attachments.Item.FileName Like ("DRF####") .Attachments.Item.SaveAsFile strfile End If End With
試したこと
さまざまなサイトを参考にしたのですが、私と同じ目的のマクロを組まれた方の事例が見当たりませんでした。
実行時エラー"5"は、関数の引数が間違っている際に表示されるエラーとのことですが、何が間違っているのかわかりません…お手数おかけしますが、何卒よろしくお願いいたします。
補足情報(FW/ツールのバージョンなど)
ここにより詳細な情報を記載してください。
回答1件
あなたの回答
tips
プレビュー