IdSMTP

0

Witam. Jak wyslac maila przez tego komponenta, aby dochodzil do kazdego?? bo mnie tylko wysyla maile do mnie ode mnie :(, na ktore sie zalogowalem :(


eee.. cofam to co wyzej ;) tzn chodzi o to, ze jak juz maila posle to przy drugim idzie blad... kod z ksiazki Delphi 7. Ćwiczenia zaawansowane ;) strona 43

0

sie normalnie wciska F1 albo sie sciaga przyklady z http://www.nevrona.com
ale ty to powinienes wiedziec :-/ - wkoncu podobno piszesz ksiazke o programowaniu w Delphi...tylko jak to stwierdziles-"..brakuje tylko 96 stron i wysylam do Helionu" [glowa] [glowa] [glowa]

0

Ok juz znalazlem bleda w ksiazce ;)
na stronie 43 przed Message.Subject.... cza dac Message.Clear

0

Ok juz znalazlem bleda w ksiazce ;)
na stronie 43 przed Message.Subject.... cza dac Message.Clear

napisz moze kawalek kodu w ktorym ci miejscu wysypuje blad..
poza tym mozesz napisac jaki to blad

0

Ok juz znalazlem bleda w ksiazce ;)
na stronie 43 przed Message.Subject.... cza dac Message.Clear

napisz moze kawalek kodu w ktorym ci miejscu wysypuje blad..
poza tym mozesz napisac jaki to blad

Prawidlowo powinno byc tak:

try
IdSMTP.Connect;
except
raise Exception.Create('Błąd! Nie można nawiązać połączenia z serwerem!');
end;
SendBtn.Enabled := False;

IdMessage.Clear;            // Te
IdMessage.ClearBody;     // Trzy linijki
IdMessage.ClearHeader;  // Dopisujemy ;)
IdMessage.Subject := temat;
IdMessage.From.Address := mail;
IdMessage.From.Name := mail;
IdMessage.From.Name := mail;


IdMessage.Recipients.Add;
IdMessage.Recipients.Items[0].Address := adresat;
IdMessage.Recipients.Items[0].Text := adresat;
IdMessage.Recipients.Items[0].Name := adresat;

IdMessage.Body.Assign(tresc);

try
IdSMTP.Send(IdMessage);
finally
SendBtn.Enabled := True;
IdSMTP.Disconnect;

1 użytkowników online, w tym zalogowanych: 0, gości: 1