Próbuję wysłać e-maila przez indy 9. Kod wygląda następująco
IdMessage1.Clear;
IdSMTP1.Host :='serwer smtp';
IdSMTP1.Username := 'login';
IdSMTP1.Password := 'hasło';
IdSMTP1.AuthenticationType := atLogin;
if not IdSMTP1.Connected then
begin
try
IdSMTP1.Connect(-1);
sleep(2000);
label1.Caption := 'Połączony ...';
except
on exception do
begin
label1.Caption :='BŁĄD !!! Wysyłanie poczty !!! Polączenie z serwerem ' + IdSMTP1.Host + ' niepowiodło się !!!';
end;
end;
end;
if IdSMTP1.Connected then
begin
IdMessage1.Body.Add('123456');
IdMessage1.Recipients.EMailAddresses := 'adres docelowy';
IdMessage1.From.Address := 'od kogo';
label1.Caption := 'Wysyłanie wiadomości ...';
Try
IdSMTP1.Send(IdMessage1);
label1.Caption := 'Wiadomość wysłana.';
IdMessage1.Clear;
except
on exception do
begin
showmessage('Błąd przy wysyłaniu wiadomości !!!');
label1.Caption := 'Błąd przy wysyłaniu wiadomości !!!';
IdMessage1.Clear;
end;
end;
end;
I pojawia się problem - jak chcę wysłać maila przez skrzynkę na GMailu, to wyświetla mi się taki komunikat błędu: 5.7.0 Musst Issue a STARTTLS comand first.
To serwera smtp na tlen.pl nie można się tym połączyć w ogóle, a przy łączeniu do poczty onetu pojawia się "Account temporary unavailable". Innych skrzynek już nie próbowałem.
Proszę o pomoc