Project Project1.exe raised exception class EIdSocketError with message 'Socket Error # 10060 Connection time out.'
begin
//podanie parametrów do message...
IdMessage1.From.Address:= '[email protected]';
IdMessage1.Recipients.EMailAddresses:= '[email protected]';
IdMessage1.From.name:= 'od Franka';
IdMessage1.Subject:= 'Temat';
IdMessage1.Body.Append('to jest tekst maila');
IdSMTP1.Host := 'poczta.o2.pl';
IdSMTP1.Username:= '[email protected]';
IdSMTP1.Password:= '123abc';
IdSMTP1.AuthenticationType:= atLogin;
REPEAT
Inc(x);
Try
label1.Caption:= 'łączenie...';
Application.ProcessMessages;
IdSMTP1.Connect;
label1.Caption:= 'wysyłanie...';
IdSMTP1.Send(IdMessage1);
label1.Caption:= 'mail został wysłany';
Status:= True;
except
Status:= False;
label1.Caption:= 'Błąd !'; //tylko dla podglądu
if IdSMTP1.Connected then IdSMTP1.Disconnect;
end;
UNTIL (Status = True) or (x = 3);
if IdSMTP1.Connected then IdSMTP1.Disconnect;
End;
End;
I o co tu chodz ??? czemu mi sie nie laczy z poczta.o2.pl ??