Задача была быстро отправить много файлов на 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
ЗЫ в работу ушла делфя, а жаль