Как выставить паузу между отправками писем. the bat

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Как выставить паузу между отправками писем. the bat (Макросы/Sub)

logic

Дата: Четверг, 18.09.2014, 17:06 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 4

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Здравствуйте
Помогите пожалуйста.
Как выставить паузу между отправками писем. Сервер отправляет в бан.
Я не спамер, ни в коем случае.
Нужно делать рассылку по подрядчикам, которые сотрудничают с компанией и по представительствам. А это более 300 ящиков каждый день.
И мне приходиться заниматься тупой рутиной по 30-40 мин.
Спасибо

Ссылка на тему: http://www.excelworld.ru/forum/10-3556-2
Код отправки письма из екселя через БАТ.

[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 Адрес, Текст, Тема, AttachFilename

[/vba]