Option Explicit

Sub
SendMail_sub()

    Dim OutApp As Object

    Dim OutMail As Object

    Dim cell As Range

    Application.ScreenUpdating = False

    Set OutApp =
CreateObject("Outlook.Application")  
'запускаем
Outlook в скрытом режиме

    OutApp.Session.Logon

    On Error GoTo cleanup  'если не запустился - выходим

    Set OutMail = OutApp.CreateItem(0)   'создаем новое сообщение

    On Error Resume Next

    'заполняем поля сообщения

    With OutMail

        .To = Range("A1").Value

        .Subject = Range("A2").Value

        .Body = Range("A3").Value

        .Attachments.Add
Range("A4").Value

        'команду Send можно заменить на
Display, чтобы посмотреть сообщение перед отправкой

        .Display

    End With

    On Error GoTo 0

    Set OutMail = Nothing

cleanup:

    Set OutApp = Nothing

    Application.ScreenUpdating = True

End Sub

        .Attachments.Add Range("A4").Value