Тема поднималась сотни раз.
Но я пока не нашел идеальный вариант для себя :)
В инете нашел такой вот код на рассылку писем с Excel, немного подстроил для своих диапазонов
Но, пока не работает
Подозреваю что возможно проблема в строке For i = 1 To addrcount
Подскажите, как исправить макрос?
Но я пока не нашел идеальный вариант для себя :)
В инете нашел такой вот код на рассылку писем с Excel, немного подстроил для своих диапазонов
Но, пока не работает
Подозреваю что возможно проблема в строке For i = 1 To addrcount
Подскажите, как исправить макрос?
Скрытый текст |
---|
Sub mailing() Dim OutApp As Object Dim OutMail As Object Dim cell As Range Application.ScreenUpdating = False Set OutApp = CreateObject("Outlook.Application" ) OutApp.Session.Logon i = 1 sTo = Range("A2:A3" ) .Value sSubject = Range("B2:B3" ) .Value sBody = Range("C2:C3" ).Value sAttachment = Range("D2:D3") .Value For i = 1 To addrcount Set OutMail = OutApp.CreateItem(0) On Error Resume Next With OutMail .To = sTo .Subject = sSubject .body = sBody .Attachments.Add sAttachment .Display End With On Error GoTo 0 Set OutMail = Nothing Next i cleanup: Set OutApp = Nothing Application.ScreenUpdating = True End Sub |