Ładny brzuch

Na swieta postanowilem stworzyc masowa wysylaczke maili. i mam taki kod:
var i:integer; begin form1.caption:='Ustawiam zawartosc wiadomosci...'; MessageM.From.name    := 'nick'; MessageM.From.Address := 'nick@serv'; MessageM.Subject      := 'temat'; idSMTP.UserName := 'nick'; idSMTP.Password := 'password'; idSMTP.Host :=  'serv'; form1.caption:='Lacze sie z serv...'; idSMTP.Connect; try     i:=0;     repeat      MessageM.Clear;      MessageM.Body.Append(Memo1.Text);      MessageM.Recipients.EMailAddresses := memo2.lines.strings[i];      form1.caption:='Polaczono. Wysylam wiadomosc do '+memo2.lines.strings[i]+'...';       idSMTP.Send(MessageM);      form1.caption:='Wyslano.';      i:=i+1;     until i=(memo2.lines.count-1);   end; finally  form1.caption:='Rozlaczam...';  idSMTP.Disconnect;  form1.caption:='Rozlaczono. Gotowy'; end; end;

krotki opis:
MessageM to idMessage, idSMTP to idSMTP ;) memo1 to zawartosc maila i memo2 to lista adresow email odbiorcow.

Ale nawet sie wysle jednej wiadomosci, a dostaje info 5.7.1 <> Sender Aderss Rejected: Access denied.

jak mam zrobic, aby aplikacja dzialala poprawnie?
(prosze o szybka odpowiedz!)

Po dlugim czasie kombinowania znalazlem odpowiedz! procedura idMessage.Clear czysci rowniez dane wprowadzone wczesniej, dotyczace nadawcy... temat DO ZAMKNIECIA ;) :offtopic:
Uytkownik DJ_ProG edytowa ten post 15 kwiecie 2006, 15:36
  • zanotowane.pl
  • doc.pisz.pl
  • pdf.pisz.pl
  • zsf.htw.pl
    •