
答え1
試行錯誤しましたが、マクロは次のようになります。
Sub templateName()
Dim objMsg As MailItem
Set objMsg = Application.CreateItemFromTemplate("C:\Users\User\AppData\Roaming\Microsoft\Templates\templateName.oft")
With objMsg
.SentOnBehalfOfName = "[email protected]"
.Display
End With
End Sub
答え2
Outlookには、テンプレートの差出人フィールドを保存する組み込みオプションはありません。マクロによると、同様の議論別のフォーラムで、そこに記載されているマクロは機能しませんでした。