Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Пожалуйста, помогите организовать цикл!

Страницы: < 1 2 3
Pretender © (2006-04-11 11:51:00)
Доброго времнени суток всем! Я хочу написать программу, которая формировала бы письма с вложениями и ложила их в активный ящик. Количество файлов задается вручную, из формы. У меня возникла проблема с формированием цикла. Вот часть кода:

procedure TForm1.Button1Click(Sender: TObject);
var i,n: integer;
F1: TextFile;
St1: String;
begin
n:=StrToInt(Edit1.Text);
AssignFile(F1,'sm.ini');
Reset(F1);
Readln(F1,st1);
for i:=n downto 1 do

IdMessage1.Recipients.EMailAddresses:=st1;
IdMessage1.CharSet:='Windows-1251';
IdMessage1.ContentType:='text/plain';
idMessage1.Subject:='Пополение (часть ' + IntTostr(i) + ' из ' + IntTostr(n) + ')' ;
for i:=n downto 1 do Memo1.Lines.Insert(0,'Сформирован файл пополения № ' + IntTostr(i));

end;

Вот как сделать, чтобы последовательно формировалось сообщение от 1 до n (n вводится вручную). Т.е. сначала создается объкт - само сообщение, затем последовательно заполняется адрес (из ini-файла), тема (тоже генерируется соответствующие цифры в теме), присоединяется файл и письмо ложится в активный ящик (не отправляется, просто ложится), а затем формируется новое сообщение т.д. до n. Как это реализовать? Я уже совсем запутался... :(

Pretender (2006-04-11 16:07:00) [41]

> найми программиста

Не, я не работодатель, чтоб людей нанимать, это так, чисто для себя. Что ж, спасибо за помосщь, буду сам разбираться.

Сергей М. (2006-04-11 15:26:00) [42]

> А каким образом сформированное сообщение попадёт в каталог
> "Исходящие"?
> консольная версия архиватора rar при задании сооответствующего параметра в > командной строке, архивированные файлы пихает прямо в "Исходящие"

Средствами MapiSendMail().

Это ф-ция фигурирует в составе MS MAPI, к коему IdSMTP не имеет ни малейшего отношения - компонент этот работает с SMTP-сервисом напрямую, минуя любой из прочих SMTP-клиентов, установленных в системе.

Говорят же тебе - найми программиста, не парься)

Pretender (2006-04-11 15:07:00) [43]
А каким образом сформированное сообщение попадёт в каталог "Исходящие"? Вот, допустим, консольная версия архиватора rar при задании сооответствующего параметра в командной строке, архивированные файлы пихает прямо в "Исходящие". Как это можно реализовать?
А в коде естественно ничего нет, я пока не знаю как это делать :)

Сергей М. (2006-04-11 15:01:00) [44]

> Pretender © (11.04.06 14:54) [10]

Не в ту сторону копаешь.

IdSMTP знать не знает ни про какие TheBat и знать не обязан.

Pretender (2006-04-11 14:54:00) [45]
Активный ящик - у меня TheBat висит в трее, в нем ящик с каталогом "Исходящие", в этот каталог письмо и должно попасть.

Сергей М. (2006-04-11 14:48:00) [46]

> в ящик активный не кладётся

Что есть "активный ящик" и где в своем коде ты в него пытаешься что-то "накласть" ?

Anatoly Podgoretsky (2006-04-11 14:46:00) [47]
Это долго

Pretender (2006-04-11 14:39:00) [48]
Да я сам разобраться хочу...

Anatoly Podgoretsky (2006-04-11 14:37:00) [49]
Пригласите программиста, а не системного администратора.

Pretender (2006-04-11 14:22:00) [50]
Гм. Это поборол... А в ящик активный не кладётся... Куда посмотреть?

Pretender (2006-04-11 13:13:00) [51]

> Спамеры обнаглели!

Уважемый, я с Вами не знаком, поэтому скажу просто: не гоните! Я симтемный администратор и эта программа не для организации массовых рассылок, а для отправки пополнения нашим клиентам.

> for i:=n downto 1 do begin
>
> IdMessage1.Recipients.EMailAddresses:=st1;
> IdMessage1.CharSet:='Windows-1251';
> IdMessage1.ContentType:='text/plain';
> idMessage1.Subject:='Пополение (часть ' + IntTostr(i) +
> ' из ' + IntTostr(n) + ')' ;
> for i:=n downto 1 do Memo1.Lines.Insert(0,'Сформирован
> файл пополения № ' + IntTostr(i));
> end;

Вот спасибо, на работу приду - попробую.

tsa (2006-04-11 12:10:00) [52]

> [2] Вот так (11.04.06 12:08)

А ещё можно поливать пивом из пульверизатора тополя

Вот так (2006-04-11 12:08:00) [53]
for i:=n downto 1 do begin IdMessage1.Recipients.EMailAddresses:=st1; IdMessage1.CharSet:='Windows-1251'; IdMessage1.ContentType:='text/plain'; idMessage1.Subject:='Пополение (часть ' + IntTostr(i) + ' из ' + IntTostr(n) + ')' ; for i:=n downto 1 do Memo1.Lines.Insert(0,'Сформирован файл пополения № ' + IntTostr(i)); end;

tsa (2006-04-11 11:52:00) [54]
Спамеры обнаглели!

Страницы: < 1 2 3

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »