Umie ktoś wysłać e-mail bez wiedzy użytkownika przy pomocy Delphi 2007 Professional ? Wprawdzie jest artykuł o tym ale mi jakoś kompletnie nie wychodzi, przy połączeniu wychodzi timeout. Podejrzewam że to przez logowanie do serwera poczty a mianowicie autoryzację, dla przykładu załóżmy że mam pocztę na o2 o adresach od@tlen.pl i do@tlen.pl z hasłami od i do, jak powinny wyglądać ustawienia IdSMTP?
A może są lepsze darmowe komponenty do tego niż Indy10 ?
W efekcie moich prób zawsze dostaję taki błąd:
First chance exception at $7C812AFB. Exception class EIdSocketError with message 'Socket Error # 10060
Connection timed out.'. Process Project2.exe (2524)
Obecnie mój kod ma postać taką:
StatusMemo.Clear;
//setup SMTP
SMTP.Host := ledHost.Text;
//SMTP.Port := 25;
//setup mail message
MailMessage.Body.Append('treść');
MailMessage.From.Name := 'nadawca';
MailMessage.From.Address := 'junk6@o2.pl';
MailMessage.Recipients.EMailAddresses := 'junk6@o2.pl';
MailMessage.Subject := 'temat';
MailMessage.Organization:='blabla';
MailMessage.Encoding:=meMime;
SMTP.UserName := 'junk6';
SMTP.Password := 'junkmail';
SMTP.Host := 'poczta.o2.pl';
SMTP.AuthType := atDefault;
SMTP.ReadTimeout:=600000;
//send mail
try
try
SMTP.Connect();
SMTP.Send(MailMessage);
except on E:Exception do
StatusMemo.Lines.Insert(0, 'ERROR: ' + E.Message);
end;
finally
if SMTP.Connected then SMTP.Disconnect;
end;