Outlook でメールを作成する

Sub MakeMessage()
    Dim OutlookMessage As Outlook.MailItem
    Set OutlookMessage = Application.CreateItem(olMailItem)
    OutlookMessage.Subject = "Hello World!"
    OutlookMessage.Display
    Set OutlookMessage = Nothing
End Sub

状況によっては、Outlook でメールを自動で作成することが必要になる場合もあります。この目的にはテンプレートも使用できます。