Uspeo sam nesto,ne prijavljeje mi gresku od pre...Ali po grešci bih rekao da je u pitanju ono podesavanje gmail less secure,da se stavi na on,međutim nije.Evo koda:
IdSMTP1 := TIdSMTP.Create(nil);
try
SSLHandler := TIdSSLIOHandlerSocket.Create(IdSMTP1);
SSLHandler.SSLOptions.Method := sslvTLSv1;
SSLHandler.SSLOptions.Mode := sslmUnassigned;
SSLHandler.PassThrough := False;
IdMessage1 := TIdMessage.Create(IdSMTP1);
IdMessage1.From.Address := '
[email protected]';
IdMessage1.Recipients.EMailAddresses := '
[email protected]';
IdMessage1.Subject := Memo2.Lines.Text;
IdMessage1.Body.Text := Memo3.Lines.Text;
IdSMTP1.Host := 'smtp.gmail.com';
IdSMTP1.Port := 465;
IdSMTP1.Username := '
[email protected]';
IdSMTP1.Password := 'xxxx';
IdSMTP1.IOHandler := SSLHandler;
IdSMTP1.Connect;
try
IdSMTP1.Send(IdMessage1);
finally
IdSMTP1.Disconnect;
end;
finally
IdSMTP1.Free;
end;