Dim ool as Outlook.Application
oMail As Outlook.MailItem
 
Set ool = CreateObject("Outlook.Application")
Set oMail = ool.CreateItem(olMailItem)
 
With oMail
    .Body = "..."
    .To = "..."
    .CC =  "...."
 
    .Send
End with
 
Set oMail = Nothing
Set ool = Nothing