Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 1 Then Exit Sub
   Dim R&: R = Target.Row: If R < 3 Then Exit Sub
    With CreateObject("Outlook.Application")
       With .CreateItem(0)
          .To = [AE1]
         .Subject = "ВНИМАНИЕ! НОВЫЙ ВХОДЯЩИЙ ЗВОНОК. НЕОБХОДИМО СВЯЗАТЬСЯ С КЛИЕНТОМ В ТЕЧЕНИЕ 15 МИНУТ!"
        .Body = "Контрагент: " & Cells(R, 4) & vbCrLf & _
              "ЛПР: " & Cells(R, 5) & vbCrLf & _
              "Телефон для связи с клиентом: " & Cells(R, 6) & vbCrLf & _
              "Адрес электронной почты: " & Cells(R, 7) & vbCrLf & _
              [AF1] & ": " & Cells(R, 9) & vbCrLf & _
              "Статус работы с клиентом: " & Cells(R, 14) & vbCrLf & _
              "НУЖНО СВЯЗАТЬСЯ С КЛИЕНТОМ. ВРЕМЯ ПОШЛО. ТИК ТАК ТИК ТАК!!!"
           .Display ' если нужно посмотреть письмо
            .Send
        End With
   End With
End Sub