###前提・実現したいこと
個別にファイルを添付してメールを一括送信したい。
###発生している問題・エラーメッセージ
エラーが出て実行できません。
エラーメッセージ 変数が定義されていません ###該当のソースコード Enum 列 宛先 = 1 企業名 氏名 件名 添付ファイル1 End Enum Sub メール作成() Dim ol As New Outlook.Application Dim m As mailItem Dim MaxRow: MaxRow = Range("A1").End(xlDown).Row For i = 2 To MaxRow Set m = ol.CreateItemFromTemplate("c:\work\test.oft") m.To = Cells(i, 列.宛先).Value m.Subject = Cells(i, 列.件名).Value m.Attachments.Add "c:\work\" & Cells(i, 列.添付ファイル1).Value m.HTMLBody = Replace(m.HTMLBody, "□□", Cells(i, 列.企業名).Value) m.HTMLBody = Replace(m.HTMLBody, "●●", Cells(i, 列.氏名).Value) m.SaveAs "c:\work\" & Cells(i, 列.氏名).Value & ".msg" Next i End Sub
###試したこと
全くのVBA初心者なもので、色々と検索してみましたがさっぱり分かりませんでした。
###補足情報(言語/FW/ツール等のバージョンなど)
より詳細な情報
http://www.bnm.tokyo/entry/2016/05/02/125815
個別にファイルを添付してメールを一括送信したく、色々と検索していたら上のURLのページを見つけ試してみました。
しかしBの6の手順のところでエラーが出てそこから進めません。
For i = 2 To MaxRow
の「i」部分が青くなり「変数が定義されていません」と表示されるのですが、どう修正すればよろしいのでしょうか?
googleで「vba 変数 定義」で検索してみてください。「変数が定義されていません」の意味がわからないと今後も同じところで躓くと思いますので。
回答1件
あなたの回答
tips
プレビュー