Delphi 2010 et Gmail

Version imprimable

Voir 40 message(s) de cette discussion en une page

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:

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.

11/06/2016, 08h42
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
11/06/2016, 13h34
Just-Soft

Citation:

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 ?
11/06/2016, 14h38
SergioMaster

OUI mais il utilise/recommande le 587
12/06/2016, 01h44
Just-Soft

Citation:

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 !!!!
12/06/2016, 09h05
SergioMaster

il me semblait bien me souvenir d'un post avec un problème quasi identique, :yaisse: je ne suis pas encore atteint par Alzheimer voir ici

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 :arf:
(port=465; SSLOptions.Method=sslvTLSv1; aussi j'ai dû telecharger les dérniére version de dll de ssl

Code:

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 :aie:

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:

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;

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

Code:

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.

13/06/2016, 18h35
edam

tu as vu ma réponce?? jusqu'à la fin??
14/06/2016, 02h42
Just-Soft

Citation:

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 ?

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:

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;

14/06/2016, 09h55
edam

tu as telecharger les nouvelles dll?
chez moi sa marche trés bien
14/06/2016, 10h21
Just-Soft

Citation:

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.
14/06/2016, 10h46
edam

tu as configuré ta boite gmail?
surtout https://www.google.com/settings/security/lesssecureapps
14/06/2016, 11h06
Just-Soft

Citation:

Envoyé par edam

tu as configuré ta boite gmail?
surtout https://www.google.com/settings/security/lesssecureapps

Oui tout est bien configure ... je crois que je vais abandonner cette solution bien que je suis dans l'obligation de la mettre :aie:
14/06/2016, 11h13
edam

pourquoi tu as ajouter cette ligne avant la connection:

Code:

idSmtp.AuthType := satNone; //1
14/06/2016, 11h28
Just-Soft

Citation:

Envoyé par edam

pourquoi tu as ajouter cette ligne avant la connection:

Code:

idSmtp.AuthType := satNone; //1

même en enlevant ça marche toujours pas ... et cela pour les 6 possibilités !!!
14/06/2016, 14h00
edam

quel version delphi et de indy?
moi j'ai delphi 2010 et indy 10

antiverus?
[EDIT:]
remplace

Code:

IdMessage := TIdMessage.Create(NIL);

:aie::aie::aie::aie::aie::aie:
14/06/2016, 14h59
Just-Soft

Citation:

Envoyé par edam

quel version delphi et de indy?
moi j'ai delphi 2010 et indy 10

antiverus?
[EDIT:]
remplace

Code:

IdMessage := TIdMessage.Create(NIL);

:aie::aie::aie::aie::aie::aie:

même avec la correction de la ligne ci-dessous j'ai une erreur

Delphi 2010
Indy 10.5.5

Voir 40 message(s) de cette discussion en une page