Chcę wysłać przy pomocy Delphi maila na gmail i użyłem tego:
procedure TForm1.Button1Click(Sender: TObject);
begin
IdMessage1.Body.Append('Treść maila');
IdMessage1.Recipients.EMailAddresses := 'mojmail@gmail.com';
IdMessage1.Subject := 'Temat';
idSMTP1.AuthenticationType:=atLogin;
idSMTP1.Password := 'mojehaslo';
idSMTP1.Username := 'mojmail@gmail.com';
idSMTP1.Host := 'smtp.google.com';
IdSMTP1.Port := 465; //użyłem też 587
IdSMTP1.Connect;
try
IdSMTP1.Send(IdMessage1);
finally
IdSMTP1.Disconnect;
ShowMessage('Wiadomość wysłana');
end;
end;
i jak klikam na button to programik na chwile się zawiesza i wyskakuje okienko z komunikatem:
Socket Error # 10060
Connection time out.