Потестил, все работает супер, единственно такой момент. Подскажите, как доработать код, чтобы была возможность вставлять в копию получателя и менять отправителя – у меня два почтовых ящика в Outlook, сейчас по умолчанию, отправка идет с одного из них. Уверен, доработанный макрос будет крутым и полезным очень, очень многим. Спасибо!!

код.

""Sub Send_Mail()

Dim objOutlookApp As Object, objTemlate As Object

Dim cl As Range

Application.ScreenUpdating = False

On Error Resume Next

   'Пробуем подключиться к Outlook, если он уже открыт

   Set objOutlookApp = GetObject(, "Outlook.Application")

   Err.Clear 'Outlook

   If objOutlookApp Is Nothing Then

       Set objOutlookApp = CreateObject("Outlook.Application")

   End If

   objOutlookApp.Session.Logon

   'Если не получилось создать приложение, выходим из процедуры

   If Err.Number <> 0 Then

       Set objOutlookApp = Nothing

       Exit Sub

   End If

   With Worksheets("Ëèñò1")

       lrow = .Cells(.Rows.Count, 1).End(xlUp).Row

   End With

   If lrow < 2 Then lrow = 2

   For Each cl In Range("A2:A" & lrow).Cells

       Set objTemlate = objOutlookApp.CreateItemFromTemplate(cl.Offset(, 2).Value)

       If Not objTemlate Is Nothing Then

           With objTemlate

               .To = cl.Value    'Кому

               .Subject = cl.Offset(, 1).Value 'Тема сообщения

               .Attachments.Add cl.Offset(, 3).Value   'вложение

               .Send 'Display, если необходимо просмотреть сообщение, а не отправлять без просмотра

           End With

           DoEvents

       End If

       Set objTemlate = Nothing

   Next

   Set objOutlookApp = Nothing

Application.ScreenUpdating = True

End Sub""