Отправка большого количества писем на один адрес

Задача была быстро отправить много файлов на 1 адрес, но каждый файл отдельным письмом.  Грабли, но думаю применимо много к чему.

dir /b|findstr .xml >f.txt&&FOR /F %%i in (f.txt) do (qmailer.exe smtp.server.ru from@mail.ru to@mail.ru «tema » » soder» %%i ping 127.0.0.1 -n 30>nul)


rem юзаем канал | и выпинываем имена файлов по маске *.xml в файл
dir /b|findstr .xml >f.txt
rem используем результаты , внимание в коммандной строке юзать %% с помощью qmailer отправляем по smtp все как надо.
FOR /F %%i in (f.txt) do (qmailer.exe smtp.server.ru from@mail.ru to@mail.ru "tema " " soder" %%i
rem мутим задержку с помощью ping , а то серв у нас не успевал пересылать 2х метровое файло
ping 127.0.0.1 -n 30>nul

>   — перенаправление потока в файл
&& — выполнение команды только если предыдущая выполнилась успешно

 

Bat-аника
Vbs-вариант
Delphi-indy

ЗЫ в работу ушла делфя, а жаль

Запись опубликована в рубрике Работа с метками , , . Добавьте в закладки постоянную ссылку.

Добавить комментарий

Ваш e-mail не будет опубликован. Обязательные поля помечены *