outlook一斉送信について

前提・実現したいこと

VBAを使ってoutlookメールの一斉送信がしたいです。
某サイトを参考にして設定して
「実行」ボタンをおしたらエラーメッセージが出ます。

発生している問題・エラーメッセージ

'C:\work\test.oft'を開けません。ファイルが既に開かれているか、またはファイル
を開くための権限がない可能性があります。
権限を確認するには、ファイルのフォルダーを右クリックし、[プロパティ]をクリック
します。

該当のソースコード

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