Create a mail by Outlook sample code (tested by Outlook2010)

CreateMail2.bas

Sub CreateMailByOutlook(address As String, _
                        subject As String, body As String)
    Dim OL: Set OL = CreateObject("Outlook.Application")
    Dim ML: Set ML = OL.CreateItem(olMailItem)
    
    ML.To = address
    ML.subject = subject
    ML.Body = body
    
    'ML.Save
    ML.Display
End Sub