Enum 列
宛先 = 1
企業名
氏名
件名
添付ファイル1
添付ファイル2
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.Attachments.Add "c:\work" & Cells(i, 列.添付ファイル2).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
某サイト参考にさせて頂き実行してみました。
何度やってもコンバイルエラーと出ています。
原因が分かりません。
サイト上と同じExcelファイルを例として作成し
VBAを書いてみています。
どこに原因があるのか、わかる方いらっしゃいましたら
教えて頂きたいです。
回答2件
あなたの回答
tips
プレビュー