Почтовая рассылка с Вложением

Почтовая рассылка с Вложением, рассылка списка

Пользователь

Сообщений: 9 Регистрация: 15.01.2015

19.03.2015 10:34:15

Необходимо отправить по списку рассылку писем со вложением.
Использую 2013, Сливание все проходит идеально письма готовы к отправке , но ни как не могу добавить вложение к каждому из адресатов.Если только отдельно письмо,письмо "ручками" .... не дело.
В форуме нашем вот такое объяснение ( снимок , идеальное по моему мнению ) , но как выйти на него не как не могу понять.
Объясните путь создание рассылки со вложением.
Благодарю!

http://www.planetaexcel.ru/plex/plex-features.php#mail

googlogmob

Пользователь

Сообщений: 148 Регистрация: 21.12.2013

19.03.2015 12:04:23

Код

Sub mailing_OPER()
    Dim OutApp As Object
    Dim OutMail As Object
    Dim cell As Range
    Dim asTo, asSubject, asBody, asAttachment
 
    Application.ScreenUpdating = False
    Set OutApp = CreateObject("Outlook.Application")
    OutApp.Session.Logon
 
    asTo = Range("B2:B36").Value
    asSubject = Range("C2:C36").Value
    asBody = Range("D2:D36").Value
    asAttachment = Range("E2:E36").Value
 
    For i = 1 To UBound(asTo, 1)
        Set OutMail = OutApp.CreateItem(0)
        On Error Resume Next
        With OutMail
            .To = asTo(i, 1)
            .Subject = asSubject(i, 1)
            .body = asBody(i, 1)
            .Attachments.Add asAttachment(i, 1)
            .Send 'Display
        End With
        On Error GoTo 0
        Set OutMail = Nothing
    Next i
 
cleanup:
    Set OutApp = Nothing
    Application.ScreenUpdating = True
End Sub

Изменено: googlogmob - 19.03.2015 12:06:45

kipod Пользователь Сообщений: 9 Регистрация: 15.01.2015	#3 23.03.2015 10:52:50 Добавил...... но отправка не получается все равно...... просьба Гур excel объяснить пошагова как.....

Игорь

Пользователь

Сообщений: 3695 Регистрация: 23.12.2012

23.03.2015 12:34:01

Цитата
но отправка не получается все равно......

что конкретно не получается?
если в 5 столбце находятся полные пути к файлам - они будут прикреплены к письмам:
asAttachment = Range("E2:E36").Value

а если надо готовое решение для рассылки, - можете здесь посмотреть:
http://excelvba.ru/programmes/FillDocuments
Письма формируется по шаблону, можно прикреплять разные файлы (в т.ч. и заполненные по шаблону), рассылка выполняется через Outlook или TheBAT

Надстройки для Excel Парсинг сайтов Мониторинг цен конкурентов

Facelia Пользователь Сообщений: 1 Регистрация: 25.04.2019	#5 25.04.2019 15:46:08 Спасибо googlogmob. Сработало даже у чайника.(у меня). Изменено: Facelia - 25.04.2019 15:46:51

Читают тему