Delphi 2010 et Gmail

**Just-Soft** · 11/06/2016, 03h51

Bonjour

Je voudrais envoyer des mails à partir de mon application, pour cela j'ai utilisé les composants Indy. Le code est assez simple et très classique je me suis inspiré de la FAQ Delphi mais je ne parviens toujours pas à envoyer de mails. Quand je clique sur le bouton envoyer, l'application prend un moment (un peu plus de 1 mn) puis me fait sortir le message "connection closed gracefully".

La 1ère question est tout naturellement pourquoi ai-je cette erreur ? Je me suis documenté mais toute les modifications que j'ai faite ont aboutit au même message.
ma 2ème question concerne le temps de réponse qui me parait excessivement long !

Voici le code

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
44
45
procedure Tfm_ActivexMEDIC.RzDialogButtons1ClickOk(Sender: TObject);
var
  IdMessage: TIdMessage;
  IdSMTP: TIdSMTP;
  IMessage: TStrings;
  SSLHandler: TIdSSLIOHandlerSocketOpenSSL;
begin
 
  IdMessage := TIdMessage.Create(nil); //création dynamique du composant
 
  IdMessage.From.Address := 'monmail@gmail.com';
 
 
  IdMessage.Subject := 'Test';
 
  IdMessage.ContentType := 'multipart/alternative'; //Message 'découpé' en plusieurs parties
 
  IMessage := TStringList.Create;
  IMessage.Add('Bonjour comment vous allez ?'); //par exemple... il faut juste que ce soit un TStrings !
 
  //On passe ensuite à l'envoi du message:
  IdSMTP := TIdSMTP.Create(nil) ; //Création dynamique du composant
  SSLHandler:= TIdSSLIOHandlerSocketOpenSSL.Create(fm_ActivexMEDIC);
  IdSMTP.IOHandler:= SSLHandler;
  IdSMTP.Port := 465; //Le port SMTP standard... ou le 587
  IdSMTP.Host := 'smtp.gmail.com';  //Le serveur auquel se connecter
  IdSMTP.UseTLS:= utUseExplicitTLS;
 
  //Ensuite on se connecte et on envoit le message, en gérant les erreurs, tant qu'à faire !
  try
    try
      IdSMTP.Connect;
      IdSMTP.Send(IdMessage);
    except
      on e : EIdConnClosedGracefully do
      begin
          ShowMessage(e.Message);
      end;
    end;
  finally
    IdSMTP.Disconnect;
    IdSMTP.Free;
    IdMessage.Free;
  end;
end;

Toute idée est la bienvenue.
Merci d'avance.

**SergioMaster** · 11/06/2016, 08h42

Bonjour,

ce n'est pas vraiment un problème de version de Delphi, mais plutôt lié à Gmail, ce qui répond déjà en partie à la première question.
Pour le deuxième, c'est le délai (timeout modifiable) du à l'erreur, avec d'autres fournisseurs c'est quasi instantané.

pour en revenir au problème GMail c'est parce que les paramètres utilisés ne sont pas bons . (port 587)

voici un truc de Marco Cantu

**Just-Soft** · 11/06/2016, 13h34

Envoyé par SergioMaster

Bonjour,

ce n'est pas vraiment un problème de version de Delphi, mais plutôt lié à Gmail, ce qui répond déjà en partie à la première question.
Pour le deuxième, c'est le délai (timeout modifiable) du à l'erreur, avec d'autres fournisseurs c'est quasi instantané.

pour en revenir au problème GMail c'est parce que les paramètres utilisés ne sont pas bons . (port 587)

voici un truc de Marco Cantu

J'ai essayé avec le port 25 et 465 mais j'y arrive pas j'ai toujours le même message.
Pour le truc de Macro Cantu il est semblable au code que j'ai posté, d'ailleurs tout les codes sont presque identiques d'où ma question : Est-ce que quelqu'un a réussi à utiliser Gmail avec ou sans Indy ?

**SergioMaster** · 11/06/2016, 14h38

OUI mais il utilise/recommande le 587

**Just-Soft** · 12/06/2016, 01h44

Envoyé par SergioMaster

OUI mais il utilise/recommande le 587

Même avec le 587 .... d'ailleurs j'avais fait le 1er test avec le port 587 !!!!

**SergioMaster** · 12/06/2016, 09h05

il me semblait bien me souvenir d'un post avec un problème quasi identique,

je ne suis pas encore atteint par Alzheimer voir ici

**edam** · 12/06/2016, 10h38

Bonjour
j'avais le même problème, et je l'avais réglé (après 2 jour de recherche et de teste) à peut prés comme indiqué par sergio dans le lien

(port=465; SSLOptions.Method=sslvTLSv1; aussi j'ai dû telecharger les dérniére version de dll de ssl

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
Function  FSSlHandle:TIdSSLIOHandlerSocketOpenSSL;
begin
      Result := TIdSSLIOHandlerSocketOpenSSL.Create(nil);
      with Result do
        begin
          Destination :='smtp.gmail.com:465';
          Host := 'smtp.gmail.com';
          MaxLineAction := maException;
          Port :=465;
          SSLOptions.Method :=sslvTLSv1;
          SSLOptions.Mode := sslmUnassigned;//sslmClient ;//
          SSLOptions.VerifyMode := [];//[sslvrfClientOnce];
          SSLOptions.VerifyDepth := 0;
      //    OnStatusInfo := IdSSLIOHandlerSocketOpenSSL1StatusInfo;
        end;
end;
Function  FIDSMTP:TIdSMTP;
begin
     Result:=TIdSMTP.Create(nil);
     with Result do
       begin
        //  UseEhlo:=True;
          IOHandler := FSSlHandle;
          UseTLS := utUseImplicitTLS;
          AuthType:=satDefault;//JMode[ParamMail.Mode]; //satDefault; //Type d'authentification
          HeloName:=ParamMail.Host;   
          Host:=ParamMail.Host; //
          Port:=465;
          UserName:=ParamMail.User; //Nom d'utilisateur
          Password:=ParamMail.pass; //Mot de passe
       end;
end;

j’espère que la faq de delphi sera mis à jour pour la méthode d’envoi de mail

**Just-Soft** · 12/06/2016, 16h17

Re

Merci edam et Serge mais quelque chose m'échappe toujours .... pour ne pas se perdre, est-ce que quelqu'un peut essayer ça chez lui et me dire s'il reçoit une message d'erreur ou pas ?

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
procedure Tfm_ActivexMEDIC.btn1Click(Sender: TObject);
var
  IdSMTP1 : TIdSMTP;
  SSLHandler: TIdSSLIOHandlerSocketOpenSSL;
  IdMessage1 : TIdMessage;
begin
  IdSMTP1 := TIdSMTP.Create(nil);
try
  SSLHandler := TIdSSLIOHandlerSocketOpenSSL.Create(IdSMTP1);
  SSLHandler.SSLOptions.Method := sslvTLSv1;
  SSLHandler.SSLOptions.Mode   := sslmUnassigned;
  SSLHandler.PassThrough       := False;
 
  IdMessage1 := TIdMessage.Create(IdSMTP1);
  IdMessage1.From.Address := '***@gmail.com';
  IdMessage1.Recipients.EMailAddresses := '***@gmail.com';
  IdMessage1.Subject      := '';
  IdMessage1.Body.Text    := '';
 
  IdSMTP1.Host      := 'smtp.gmail.com';
  IdSMTP1.Port      := 465;
  IdSMTP1.Username  := '****@gmail.com';
  IdSMTP1.Password  := '***';
  IdSMTP1.IOHandler := SSLHandler;
 
  IdSMTP1.Connect;
  try
    IdSMTP1.Send(IdMessage1);
  finally
    IdSMTP1.Disconnect;
  end;
finally
  IdSMTP1.Free;
end;
end;

**Just-Soft** · 13/06/2016, 12h44

Bon voici le dernier code avec quelques modifications et une inspiration du code fourni par Serge

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
44
45
46
47
48
49
50
51
52
53
54
procedure Tfm_ActivexMEDIC.btn1Click(Sender: TObject);
var
  idSmtp : TidSmtp;
  IdMessage1 : TIdMessage;
  msg : string;
  useTLS : Boolean;
  SSLHandler: TIdSSLIOHandlerSocketOpenSSL;
  begin
    useTLS := chk1.Checked;
    Screen.Cursor:=crHourGlass;
    idSmtp := TIdSMTP.Create(nil);
    idSmtp.Host:='smtp.gmail.com';
    idSmtp.Username:='moi@gmail.com';
    idSmtp.Password:='MonMDP';
    idsmtp.Port := StrToInt(cbb1.Text);
 
    SSLHandler := TIdSSLIOHandlerSocketOpenSSL.Create(IdSMTP);
    SSLHandler.SSLOptions.Method := sslvTLSv1;
    SSLHandler.SSLOptions.Mode := sslmUnassigned;
    SSLHandler.PassThrough := False;
 
    if useTLS then
    begin
      idSMTP.IOHandler := SSLHandler;
      idSMTP.UseTLS := utUseImplicitTLS; // 1
    end
    else begin
      idSMTP.UseTLS:=utNoTLSSupport; // 0
    end;
 
    //// Envoi Smtp
    IdMessage1 := TIdMessage.Create(IdSMTP);
    IdMessage1.Clear; //Efface l'entête et le corps du message
    IdMessage1.From.Text :='moi@gmail.com'; //Adresse email de l'expéditeur
    IdMessage1.ReplyTo.EMailAddresses:= 'moi@gmail.com'; //Adresse email où le destinataire pourra répondre
    IdMessage1.Recipients.EMailAddresses:='moi@gmail.com'; //Adresse email du destinataire
    idMessage1.ContentType := 'multipart/mixed';
 
    try
      idSMTP.Connect;
      idSMTP.Send(idMessage1);
      idSMTP.Disconnect;
      msg := 'SMTP Ok, le message a été envoyé à l''adresse indiquée';
      MessageBox(0, Pchar(msg), 'Confirmation', MB_ICONINFORMATION or MB_OK);
    except
     on e : Exception do
      begin
        Screen.Cursor:=crdefault;
        msg:='Impossible de se connecter au serveur SMTP' + sLineBreak + e.Message;
        MessageBox(0,Pchar(msg), 'Erreur', MB_ICONERROR or MB_OK);
      end;
    end;
    Screen.Cursor:=crdefault;
end;

Je récapitule les erreurs à l'exécution :

UseTLS = True

Port 25 : Socket Error # 10060 Connection time out
Port 465 : Socket Error # 10060 Connection time out
Port 587 : Socket Error # 10060 Connection time out

UseTLS = False

Port 25 : Must Issue a STARTTLS command first.
Port 465 : Connection Closed Gracefully
Port 587 : Must Issue a STARTTLS command first.

Je récapitule, j'ai fait les 6 combinaisons possibles mais aucune d'entre elle ne m'a permis d'envoyer un mail ? une explication SVP.

**edam** · 13/06/2016, 18h35

tu as vu ma réponce?? jusqu'à la fin??

**Just-Soft** · 14/06/2016, 02h42

Envoyé par edam

tu as vu ma réponse?? jusqu'à la fin??

Oui je l'ai vu ...

La question est, j'ai fait les 6 combinaisons possibles, sauf erreur de ma part ou omission d'une commande ou appel d'une propriété mon code devrait, logiquement, marcher mais ce n'est pas le cas, alors où est le problème dans le code ?

**Just-Soft** · 14/06/2016, 03h36

Pour preuve edam voici le code avec tes deux fonctions intégrées mais j'ai toujours les mêmes erreurs à l'exécution !

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
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
procedure Tfm_ActivexMEDIC.btn1Click(Sender: TObject);
var
  idSmtp : TidSmtp;
  IdMessage : TIdMessage;
  msg : string;
  useTLS : Boolean;
  SSLHandler: TIdSSLIOHandlerSocketOpenSSL;
begin
  useTLS := chk1.Checked;
  Screen.Cursor:=crHourGlass;
 
  SSLHandler := TIdSSLIOHandlerSocketOpenSSL.Create(nil);
  with SSLHandler do
  begin
    Destination :='smtp.gmail.com:465';
    Host := 'smtp.gmail.com';
    MaxLineAction := maException;
    Port := StrToInt(cbb1.Text);
    SSLOptions.Method :=sslvTLSv1;
    SSLOptions.Mode := sslmUnassigned;//sslmClient ;//
    SSLOptions.VerifyMode := [];//[sslvrfClientOnce];
    SSLOptions.VerifyDepth := 0;
  end;
 
  idSmtp := TIdSMTP.Create(nil);
  with idSmtp do
  begin
    IOHandler := SSlHandler;
    UseTLS := utUseImplicitTLS;
    AuthType := satDefault;
    HeloName := 'smtp.gmail.com';
    Host := 'smtp.gmail.com';
    Port := StrToInt(cbb1.Text);
    UserName := 'monmail@gmail.com'; //Nom d'utilisateur
    Password := 'monMDP'; //Mot de passe
  end;
 
  if useTLS then
  begin
    idSMTP.IOHandler := SSLHandler;
    idSMTP.UseTLS := utUseImplicitTLS; // 1
  end
  else begin
    idSMTP.UseTLS:=utNoTLSSupport; // 0
  end;
 
  //// Envoi Smtp
  IdMessage := TIdMessage.Create(IdSMTP);
  IdMessage.Clear; //Efface l'entête et le corps du message
  IdMessage.From.Text :='monmail@gmail.com'; //Adresse email de l'expediteur
  IdMessage.ReplyTo.EMailAddresses:= 'monmail@gmail.com'; //Adresse email où le destinataire pourra répondre
  IdMessage.Recipients.EMailAddresses:='monmail@gmail.com'; //Adresse email du destinataire
  idMessage.ContentType := 'multipart/mixed';
 
  try
    idSmtp.AuthType := satNone; //1
    idSMTP.Connect;
    idSMTP.Send(idMessage);
    idSMTP.Disconnect;
    msg := 'SMTP Ok, le message a été envoyé à l''adresse indiquée';
    MessageBox(0, Pchar(msg), 'Confirmation', MB_ICONINFORMATION or MB_OK);
  except
     on e : Exception do
     begin
       Screen.Cursor:=crdefault;
       msg:='Impossible de se connecter au serveur SMTP' + sLineBreak + e.Message;
       MessageBox(0,Pchar(msg), 'Erreur', MB_ICONERROR or MB_OK);
     end;
  end;
  Screen.Cursor:=crdefault;
end;

**edam** · 14/06/2016, 09h55

tu as telecharger les nouvelles dll?
chez moi sa marche trés bien

**Just-Soft** · 14/06/2016, 10h21

Envoyé par edam

tu as telecharger les nouvelles dll?
chez moi sa marche trés bien

Oui et déposer dans le répertoire de l'application.

J'ai toujours cette erreur bizarre "Connextion Closed Gracefully". De ce fait, je vous demande edam si possible d'exécuter le code que j'ai fourni dans le post précédent chez vous et de me dire si vous avez la même erreur, merci par avance.