Create a new Outlook mail message using VBA

newOutlookMail.bas

Option Explicit

Public Sub CreateEmail(ByVal strSubject As String, ByVal strBody As String, ByVal strRecipient As String)
   
   Dim obApp As Object
   Dim NewMail As Variant
  
    
   'initialize Outlook objects
    Set obApp = CreateObject("Outlook.Application")
    Set NewMail = obApp.CreateItem(olMailItem)
       
    With NewMail
         .Subject = strSubject
         .To = strRecipient
         .Body = strBody
         '.Attachments.Add ("")
         .Importance = olImportanceHigh
         .Display
    End With
    
    ' clean up Outlook objects
    Set obApp = Nothing
    Set NewMail = Nothing
    
End Sub