質問: wsMail.Range("B2").Value 'メール本文 ObjMail.Display 'Outlookの下書きをDisplayする End With Next i End With End Sub ``` ### 試したこと 438エラー自体はよく遭遇します。 今回、デバッガが49行目の `Call ObjMail.Attachments.Add(attachmentPath)` で止まるので、 添付ファイルのアップロード処理を記述したfpath近辺のVBAがおかしいと思い試行錯誤しております。 また、前半のDim objOutlookとDim ObjMailの変数宣言でも同一の処理を入力してしまっていると思い、 今手入力で新しくVBAを作り直してデバッグしています。 もしこの438エラーの原因等がおわかりになれば教えてください。 よろしくお願いします。 ### 補足情報(FW/ツールのバージョンなど) Windows10 Excel 2019 Outlook 2019
回答: kunifさん 解決しました。別サイトでも解答を頂き、添付ファイルをOutlookではなく作成するメールに対して添付するよう記述した所、正常に動作しました。ご協力ありがとうございました。 – r-o 4分前 編集 削除