Bonjour a tous,

Me voila confronté à un problème : "Impossible d'envoyer un mail avec indy 10 & ssl / Gmail" les sujets ne manquent pas sur le net mais impossible de débloquer le problème

libeay32.dll & ssleay32.dll sont bien dans le répertoire de l'application.

Quand j’envoie un mail l'application reste bloquée et ne soulève aucune expression d'erreur.

Pièce jointe 167746

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
procedure TForm1.BtnEnvoyerClick(Sender: TObject);
begin
  IdSMTP.host := 'smtp.gmail.com'  ;
  IdSMTP.username := 'greg.ory51.gp@gmail.com';
  IdSMTP.Password := '******';
  IdSMTP.port := 587;
  IdSMTP.UseTLS := utUseExplicitTLS;
 
  with IdSSLGMail do
   begin
     SSLOptions.Mode := sslmClient;
     SSLOptions.Method:= sslvTLSv1;
     SSLOptions.VerifyDepth := 2;
     SSLOptions.VerifyMode := [];
     Host := IdSMTP.Host;
     Port := IdSMTP.Port;
   end;
 
  with IdMessage do
   begin
     From.address := 'greg.ory51.gp@gmail.com';
     CClist.EMailAddresses := Adr.Text;
     Subject := Sujet.Text;
     Body.Clear;
     Body.Add(Msg.Text);
   end;
    try
      IdSMTP.Connect;
      IdSMTP.Authenticate;
     try
      idSMTP.Send(IdMessage);
      ShowMessage('Message envoyé');
     except on E:Exception do
       Log.Lines.Insert(0, 'ERROR: ' + E.Message);
     end;
    finally
     if idSMTP.Connected then idSMTP.Disconnect;
    end;
end;
Merci pour votre réponse.