Dim olApp,olns,olMail,olMailItem 

Set olApp = CreateObject("Outlook.Application")
Set olns = olApp.GetNamespace("MAPI")

Set olMail = olApp.CreateItem(olMailItem)
olMail.To = "Put email address here"
olMail.Subject = "Put subject of email here"
olMail.Body = "Put body message here"
olMail.Attachments.Add("Add attachment location here")
olMail.Send
    
Set olns = Nothing
Set olMail = Nothing
Set olApp = Nothing