Здравствуйте Помогите пожалуйста. Как выставить паузу между отправками писем. Сервер отправляет в бан. Я не спамер, ни в коем случае. Нужно делать рассылку по подрядчикам, которые сотрудничают с компанией и по представительствам. А это более 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) & ""
Здравствуйте Помогите пожалуйста. Как выставить паузу между отправками писем. Сервер отправляет в бан. Я не спамер, ни в коем случае. Нужно делать рассылку по подрядчикам, которые сотрудничают с компанией и по представительствам. А это более 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) & ""