個別にファイルを添付してメールを一括送信したい。

###前提・実現したいこと
個別にファイルを添付してメールを一括送信したい。

###発生している問題・エラーメッセージ
エラーが出て実行できません。

エラーメッセージ
変数が定義されていません

###該当のソースコード
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」部分が青くなり「変数が定義されていません」と表示されるのですが、どう修正すればよろしいのでしょうか？