Public Sub SendMail()
Dim OL_App As Outlook.Application
Dim OL_ItemMail As Outlook.MailItem
Dim OL_NameSpace As Object

Set OL_App = CreateObject("Outlook.Application")

Set OL_NameSpace = OL_App.GetNamespace("MAPI")

Set OL_ItemMail = OL_App.CreateItem(olMailItem)
With OL_ItemMail
      .To = "aaa@mail.ru"
   .Subject = "Тема письма"
   .Body = "... Текст письма"
   .Send
End With

End Sub