Private Sub CommandButton2_Click()
    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("B2").Value
        .From = "Служба поддержки"
        .Subject = Range("E2").Value
        .Body = Range("F2").Value
        .Attachments.Add Range("G2").Value
        'команду Send можно заменить на Display, чтобы посмотреть сообщение перед отправкой
        .Send
    End With
 
    On Error GoTo 0
    Set OutMail = Nothing
 
cleanup:
    Set OutApp = Nothing
    Application.ScreenUpdating = True
End Sub

.SetOnBehalfOfName = "email of Sender"