質問: 下記のようにOutlookのメールと添付ファイルを保存するマクロを作成したのですが、添付がメッセージ形式だとエラーが出てしまいます。 どなたかメッセージファイルでも保存できる方法を教えてください。
回答: 最低限、エラーになる行、エラーメッセージは書いた方がいいです。 なんとなく怪しそうなのはこの行で、 objmailItem.Attachments(k).SaveAsFile (path1 & "\" & objmailItem.Attachments(k).DisplayName) これを objmailItem.Attachments(k).SaveAsFile (path1 & "\" & objmailItem.Attachments(k).FileName) こうすると解消しませんか。