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

Dim ool As Outlook.Application