Sub r__()
    Application.ScreenUpdating = 0
Dim objOL As Object
Dim objMail As Object
Set objOL = CreateObject("Outlook.Application")
Set objMail = objOL.CreateItem(0)
With objMail
'==============================================================================
'адрес получателя
.To = "......"
'==============================================================================
'текст письма
.Body = "......"
'==============================================================================
'тема письма
.Subject = "......"
'==============================================================================
'файл вложение
 .Attachments.Add "..\.........."
'==============================================================================
.Send
End With
Set objMail = Nothing
Set objOL = Nothing
End Sub