Я думаю, что пример вызова этой функции имеется в том же месте.
Написано что "Если задан параметр AttachFilename, к отправляемому письму прикрепляется файл" но как его задать я так и не понял. Перечитал уже наверно раз 100 здесь Может вы мне укажете где именно?
На всякий случай прикрепил файлик.
Добрый день, RAN.
Цитата
Я думаю, что пример вызова этой функции имеется в том же месте.
Написано что "Если задан параметр AttachFilename, к отправляемому письму прикрепляется файл" но как его задать я так и не понял. Перечитал уже наверно раз 100 здесь Может вы мне укажете где именно?
Благодаря вам понял что искал не там. Но все равно не могу сообразить
попробовал по аналогии "Тема" добавить в процедуре
[vba]
Код
AttachFilename = "" & ro.Cells(3) & ""
[/vba] и код стал
[vba]
Код
Sub Формирование_и_Отправка_Писем() Dim ro As Range, ra As Range: On Error Resume Next If ПутьКФайлуПрограммыTheBAT = "" Then MsgBox "Программа TheBAT! не установлена!", _ vbCritical, "Отправка почты невозможна": Exit Sub
' таблица с заполненными ячейками в первом столбце Set ra = Range([A2], Range("A" & Rows.Count).End(xlUp))
For Each ro In ra.EntireRow ' перебираем все заполненные строки Адрес = Trim$(ro.Cells(1)) If Адрес Like "*?@?*.?*" Then ' если в первой ячейке указан корректный адрес почты
' формируем тему письма из 2-й ячейки строки Тема = "" & ro.Cells(2) & ""
AttachFilename = "" & ro.Cells(3) & ""
ОтправитьПисьмоЧерезTheBat Адрес, Текст, Тема
End If Next ro End Sub
[/vba]
но что то безрезультатно. Может путь к файлу это не AttachFilename? Правильно ли я иду?
Заранее спасибо.
Благодаря вам понял что искал не там. Но все равно не могу сообразить
попробовал по аналогии "Тема" добавить в процедуре
[vba]
Код
AttachFilename = "" & ro.Cells(3) & ""
[/vba] и код стал
[vba]
Код
Sub Формирование_и_Отправка_Писем() Dim ro As Range, ra As Range: On Error Resume Next If ПутьКФайлуПрограммыTheBAT = "" Then MsgBox "Программа TheBAT! не установлена!", _ vbCritical, "Отправка почты невозможна": Exit Sub
' таблица с заполненными ячейками в первом столбце Set ra = Range([A2], Range("A" & Rows.Count).End(xlUp))
For Each ro In ra.EntireRow ' перебираем все заполненные строки Адрес = Trim$(ro.Cells(1)) If Адрес Like "*?@?*.?*" Then ' если в первой ячейке указан корректный адрес почты
' формируем тему письма из 2-й ячейки строки Тема = "" & ro.Cells(2) & ""
AttachFilename = "" & ro.Cells(3) & ""
ОтправитьПисьмоЧерезTheBat Адрес, Текст, Тема
End If Next ro End Sub
[/vba]
но что то безрезультатно. Может путь к файлу это не AttachFilename? Правильно ли я иду?
Здравствуйте Помогите пожалуйста. Как выставить паузу между отправками писем. Сервер отправляет в бан. Я не спамер, ни в коем случае. Нужно делать рассылку по подрядчикам, которые сотрудничают с компанией и по представительствам. А это более 300 ящиков каждый день. И мне приходиться заниматься тупой рутиной по 30-40 мин. Спасибо
Sub Формирование_и_Отправка_Писем() Dim ro As Range, ra As Range: On Error Resume Next If ПутьКФайлуПрограммыTheBAT = "" Then MsgBox "Программа TheBAT! не установлена!", _ vbCritical, "Отправка почты невозможна": Exit Sub
' таблица с заполненными ячейками в первом столбце Set ra = Range([A2], Range("A" & Rows.Count).End(xlUp))
For Each ro In ra.EntireRow ' перебираем все заполненные строки Адрес = Trim$(ro.Cells(1)) If Адрес Like "*?@?*.?*" Then ' если в первой ячейке указан корректный адрес почты
' формируем тему письма из 2-й ячейки строки Тема = "" & ro.Cells(2) & ""
AttachFilename = "" & ro.Cells(3) & ""
ОтправитьПисьмоЧерезTheBat Адрес, Текст, Тема, AttachFilename [moder]Закрыта тема. Нарушение п. 5q Правил форума
Здравствуйте Помогите пожалуйста. Как выставить паузу между отправками писем. Сервер отправляет в бан. Я не спамер, ни в коем случае. Нужно делать рассылку по подрядчикам, которые сотрудничают с компанией и по представительствам. А это более 300 ящиков каждый день. И мне приходиться заниматься тупой рутиной по 30-40 мин. Спасибо
Sub Формирование_и_Отправка_Писем() Dim ro As Range, ra As Range: On Error Resume Next If ПутьКФайлуПрограммыTheBAT = "" Then MsgBox "Программа TheBAT! не установлена!", _ vbCritical, "Отправка почты невозможна": Exit Sub
' таблица с заполненными ячейками в первом столбце Set ra = Range([A2], Range("A" & Rows.Count).End(xlUp))
For Each ro In ra.EntireRow ' перебираем все заполненные строки Адрес = Trim$(ro.Cells(1)) If Адрес Like "*?@?*.?*" Then ' если в первой ячейке указан корректный адрес почты
' формируем тему письма из 2-й ячейки строки Тема = "" & ro.Cells(2) & ""
AttachFilename = "" & ro.Cells(3) & ""
ОтправитьПисьмоЧерезTheBat Адрес, Текст, Тема, AttachFilename [moder]Закрыта тема. Нарушение п. 5q Правил форумаlogic