Sub SendMail()
    Dim objOL As New Outlook.Application
    Dim objMail As MailItem
    Dim objAttach As Outlook.Attachments
    Dim mailIn As Outlook.MailItem, mailOut As Outlook.MailItem
    Set objOL = New Outlook.Application
    Set objMail = objOL.CreateItem(olMailItem)
    Set objAttach = objMail.Attachments
 objAttach.Add ("адрес, где енто лежит)")
 With objMail
        .To = olMailItem '"ваське@пошта.ru"
        .Body = "Это текст тестового письма, отправленного средствами VBA"
        .Subject = "Тема"
        .Display
        .Send
    End With