Excel VBA 質問スレ Part49©2ch.net

[0623 620 (ｱｳｰｲﾓ MM9f-k5Qo) 2017/07/27(木) 22:07:28.99 ID:xCwJ4jCdM]

>>621
返信ありがとうございます！！
すみません、CreateItemでも変わらずエラーでした・・。
ちなみに下記のように.oftを指定しても同じでした。
これは本当に不思議です・・・。

---------------------------------------
Sub test03()

Dim OL As New Outlook.Application
Dim M As MailItem
Set M = OL.CreateItemFromTemplate("D:\本文.oft")

M.To = "[e-mail]"
M.SaveAs "D:\test03.msg"

End Sub
---------------------------------------