Как отобразить в ProgressBar процесс отправки писем через SMTP

[leon2009]

а можно без отключения????????????

ладно но хоть сюда подскажете что можно написать???? idsmpt->>> onwork i onworkbegin e onworkend???????????
думаю что так не придется останавливать отправку?

[KORN]

ну в принципе можно и без отключения, тогда получается подключился отправляешь все и отключаешься... и почему сразу на workbegin? пытайся думать... код у тебя где находится7

mail.connect;
for i:=0 to ss.count-1 do
begin
mail.from:=ss.strings[i];
// далее указываешь доп параметры
mail.sendmail;
end;
mail.disconect;

вот так у тебя должен примерно выглядеть исходник, этот пример работать не будет... переделывай свой...

[leon2009]

сделал так

for i:=0 to Memo2.Lines.Count-1 do
ProgressBar1.max:=Memo2.Lines.Count-1;
IdMessage1.Recipients.EMailAddresses := Memo2.Lines.Strings[i]; ProgressBar1.Position:=Memo2.Lines.Count-1;

выдает ошибку?

[KORN]

ты хоть понял что сам написал7 зачем ты в цикле присваиваешь максимальное значение прогрессбару? даже индусы так не напишут, просто нет слов

[leon2009]

да сам не понил....

ProgressBar1.max := Memo2.Lines.Count;
for i:=0 to Memo2.Lines.Count-1 do
begin
  IdMessage1.Recipients.EMailAddresses := Memo2.Lines.Strings[i];
  ProgressBar1.Position := i + 1;
     end;

отпровляет только на последний емайл в списке. на все не хочит?


IdMessage1.Recipients.EMailAddresse s - видет текст а не Strings, когда пишешь Strings значит в Recipients.EMailAddresses записывается номер строки а не маил

[KORN]

http://*************/readarticle.php?article_id=727
http://*************/readarticle.php?article_id=728
вот сиди и разбирайся, и прежде чем писать что то стоит думать...