Discussion :

[Gregory666]

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.

[Gregory666]

j'ai trouvé d'où vient le problème j'ai ajouté la ligne : PassThrough := True; & IdSSLGMail.StartSSL; puis activé l'accès pour les applications moins sécurisées Gmail

Mais à la fermeture du programme un message d'erreur apparait "runtime error 216 at" aucune idée d'où ça peut venir

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
40
41
42
43
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 := 0;
     SSLOptions.VerifyMode := [];
     Host := IdSMTP.Host;
     Port := IdSMTP.Port;
     PassThrough := True;
     IdSSLGMail.StartSSL;
   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;
   idSMTP.Disconnect;
   IdLogEvent.Active := false;
end;

[Ph. B.]

Bonjour,

Mais à la fermeture du programme un message d'erreur apparait "runtime error 216 at" aucune idée d'où ça peut venir

Peut-être que la a la solution à votre problème ?
http://delphi.developpez.com/faq/?pa...sseur-Intel-P4

[SergioMaster]

Bonjour,

j'arrive un peu tard (moi aussi j'ai à nouveau des problèmes d'envoi mail) mais aviez vous lu ceci

[Gregory666]

Bonjour Philippe & SergioMaster.

merci de votre aide

SergioMaster : Oui j'ai vu ce lien , mais je n'ai plus de problème d’envoi , le problème maintenant vient de la fermeture de la forme.

Philippe : j'ai du mal a comprendre pourquoi ce message d'erreur ? c'est la premièrer fois que j'ai ce problème de fermeture d'application

Runtime error 216 sur des PC équipés de processeur Intel P4 J'ai un processeur AMD multicore 4.40 Ghz en 8 est pas de Intel P4

- Je vois vraiment pas d'où peu venir le problème ou alors cela vient des DLLs (libeay32.dll & ssleay32.dll) il y a des dans l'une des dlls.


Merci pour votre réponse.

[Gregory666]

J'ai téléchargé la nouvelle version 2015 des dlls , Monday, January 12, 2015 5:14 PM 863731 openssl-0.9.8zd-i386-win32.zip
Résultat plus possible d’envoyer un mail (G mail) l'application reste bloquée et ne soulève aucune expression.

Donc j'ai téléchargé la version 2002 mais toujours le problème "runtime error 216"

[ALWEBER]

Tu utilise un accès à une base de donnée dans cette appli ?

[SergioMaster]

Re,

j'ai eu plus de mal à retrouver mon mot de passe gmail et désactiver certaines fonctions (déblocage pour envoyer via une application desktop) que de faire le test
qui s'est passé nickel (oserai-je dire comme une lettre à la poste ?) pas d'erreur 216 à l'horizon

comme promis le programme (sans prétention) utilisé en pj

[anapurna]

salut


attend tu bien la fin de tout tes messages pour fermer ta fenêtre ?
comment la ferme tu ?
a priori tu as une demande d’accès a un composant alors que celui ci n'existe plus

[Gregory666]

Re,

j'ai eu plus de mal à retrouver mon mot de passe gmail et désactiver certaines fonctions (déblocage pour envoyer via une application desktop) que de faire le test
qui s'est passé nickel (oserai-je dire comme une lettre à la poste ?) pas d'erreur 216 à l'horizon

comme promis le programme (sans prétention) utilisé en pj

bonjour SergioMaster

Je viens de tester ton petit programme donc j'ai télécharger la dernière version des fichier dll & mise les port en 465 pour une connexion ssl gmail sa marche impeccable.

Merci SergioMaster sujet résolu.