Outlookにアクセスしてメールを送信するVBAコード

Public Sub GenerateOutlookEmail()

Dim Outlook As Outlook.Application
Dim message As Outlook.MailItem

Set Outlook = CreateObject("Outlook.Application")

Set message = Outlook.CreateItem(0)


 With message

　.Subject = "Test Mail"

　.To = "foobar@foobar.com"

　.HTMLBody = "Good morning life"

　.Display
End With
End Sub