Dim OutApp As Object
    Dim OutMail As Object
     Dim tt As String
    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 = Sheets("Данные").Cells(ComboBox4.ListIndex + 2, 4).Value  'Sheets("Данные").Cells(АудиторФИО.ListIndex + 2, 2)
        .cc = "KhitrovIA@biaxplen.ru"
        .Subject = "ПАБ " & "Автоматическая рассылка" '.Value

        .Body = "Добрый день " & Sheets("База").Cells(iRow, 15) & " " & vbCrLf & " " & Sheets("База").Cells(iRow, 1) & " " & vbCrLf & "во время: " & Sheets("База").Cells(iRow, 6) & vbCrLf & "мною была выявлена следующая опасная ситуация: " & Sheets("База").Cells(iRow, 9).Value & vbCrLf & "прошу Вас принать корректируюшие меры в виде: " & Sheets("База").Cells(iRow, 13) & vbCrLf & "Сроком до: " & Sheets("База").Cells(iRow, 17) & vbCrLf & "Если Вы уверены что Вас ошибочно назначили Ответственным за устранение данной опасной ситуации, перешлите письмо (добавив меня и ОТ,ПБ в копию) другому Ответственному который сможет/должен устранить эту ОС" '.Value
        .Attachments.Add Range("A4").Value
        'команду Send можно заменить на Display, чтобы посмотреть сообщение перед отправкой
        .Display 'Send
    End With
    On Error GoTo 0
    Set OutMail = Nothing
 
cleanup:
    Set OutApp = Nothing
    Application.ScreenUpdating = True