Discussion :

[samuel44]

Bonjour à tous,

J'envoie un mail en utilisant SMTP et port 587.

mon programme marche bien sur mon poste (Windows 10). Par contre, sur d'autre ordi (win7) , il retourne une exception: erreur de négociation SLL.

Mon code est le suivant:

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
72
73
74
75
76
77
78
79
80
 SMTPPort = ini->ReadString("Configuration","SMTPPort", "");
  SMTP->AuthType = 1;
  SMTP->Username = Login; // "adr@gmail.com";//ajout login
  SMTP->Password = Passwd; //
  SMTP->Host = ServerSMTP; // "smtp.gmail.com"; //adresse de l'hote
  SMTP->Port = SMTPPort.ToInt(); // port SMTP
  SSLMethod = ini->ReadString("Configuration","SSLMethod", "");
  SSLOption = ini->ReadString("Configuration","SSLOption", "");
 
  TIdSSLIOHandlerSocketOpenSSL* ioHandler =new TIdSSLIOHandlerSocketOpenSSL(Form1);
  SMTP->IOHandler = ioHandler;
    SMTP->UseTLS = utUseImplicitTLS;
    SMTP->AuthType = satDefault;
   // SMTP->Authenticate();
  // sécurité en plus pour gmail
  //TIdSSLIOHandlerSocketOpenSSL* ioHandler =new TIdSSLIOHandlerSocketOpenSSL(NULL);
  ioHandler->SSLOptions->Mode = sslmClient;
  ioHandler->SSLOptions->VerifyDepth = 0;
  if(SSLOption=="sslvSSLv2")
   ioHandler->SSLOptions->SSLVersions << sslvSSLv2 ; // sslvSSLv2, sslvSSLv23, sslvSSLv3, sslvTLSv1, sslvTLSv1_1, sslvTLSv1_2
  else if(SSLOption=="sslvSSLv23")
   ioHandler->SSLOptions->SSLVersions << sslvSSLv23 ;
  else if(SSLOption=="sslvSSLv3")
   ioHandler->SSLOptions->SSLVersions << sslvSSLv3 ;
  else if(SSLOption=="sslvTLSv1")
   ioHandler->SSLOptions->SSLVersions << sslvTLSv1 ;
  else if(SSLOption=="sslvTLSv1_1")
   ioHandler->SSLOptions->SSLVersions << sslvTLSv1_1 ;
  else if(SSLOption=="sslvTLSv1_2")
   ioHandler->SSLOptions->SSLVersions << sslvTLSv1_2 ;
 
   //ioHandler->SSLOptions->VerifyMode = TIdSSLVerifyModeSet();
 
  if(SSLMethod=="sslvSSLv2")
  ioHandler->SSLOptions->Method =sslvSSLv2  ;// sslvSSLv2, sslvSSLv23, sslvSSLv3, sslvTLSv1, sslvTLSv1_1, sslvTLSv1_2
  else if(SSLMethod=="sslvSSLv23")
  ioHandler->SSLOptions->Method<< sslvSSLv23 ;
  else if(SSLMethod=="sslvSSLv3")
  ioHandler->SSLOptions->Method << sslvSSLv3 ;
  else if(SSLMethod=="sslvTLSv1")
  ioHandler->SSLOptions->Method << sslvTLSv1 ;
  else if(SSLMethod==u"sslvTLSv1_1")
  //ioHandler->SSLOptions->Method << sslvTLSv1_1 ;
 /* else if(SSLMethod=="sslvTLSv1_2")
  ioHandler->SSLOptions->Method << sslvTLSv1_2 ;*/
  //ioHandler->SSLOptions->Method = sslvSSLv23 ;
  ioHandler->PassThrough = false;
  SMTP->IOHandler = ioHandler;
  SMTP->UseTLS =1;
  SMTP->UseTLS = utUseExplicitTLS; // a decom
 
  // rajouté
    SMTP->AuthType = satDefault;
    SMTP->IOHandler = ioHandler;
  //SMTP->UseTLS = utUseImplicitTLS; // il f le comme
  ioHandler->DefaultPort =  443;
  //ioHandler->SSLOptions->Method = sslvSSLv3 ;   //3    //587
  ioHandler->SSLOptions->Mode = sslmClient;
 
  try
  {
 
    SMTP->UseEhlo = True;  
    SMTP->UseVerp = False;    
    SMTP->ReadTimeout = 100000;
    SMTP->Connect();
    SMTP->Authenticate();
    SMTP->Send(Message); 
  }
  catch (Exception &e)
  {
    ShowMessage("problème d'envoi de mail : " + e.Message);
  }
  SMTP->Disconnect(true);
 
  delete ptrAttachmentFile;
  delete Message;
  delete SMTP;
  delete ini;
  delete ioHandler ;

Pourriez-vous m'aider SVP?
Merci!

[gandf]

Bonjour,

Quelle est la ligne qui provoque l'exception et quel est le message d'erreur exact ?

Sinon, tu peux directement lire des integer depuis un fichier ini. Je ne vois pas l'intérêt de passer par une chaîne intermédiaire. Et pour le port, tu peux mettre une valeur par défaut si la valeur n'est pas dans le fichier ini (dernier paramètre de la fonction).

Autre détail, personnellement, je mets toujours les instructions new dans le try quand il y en a un car il peut arriver parfois que l'application ou Windows n'arrive pas à allouer l'espace mémoire ou que le constructeur de l'objet lance une exception.
Dans ce cas, ton application crash.
Et ça peut arriver plus particulièrement si tu as des fuites de mémoire ou si la mémoire de Windows est déjà saturée.

Pour SSLOption, tu lis depuis un fichier ini, le plus simple étant de le gérer en integer comme pour le port et ensuite d'utiliser un switch pour appliquer la bonne valeur à la propriété.

Je crois qu'il y a une dll qui est nécessaire avec indy pour gérer le SSL. Est-ce qu'elle est bien présente sur le pc en Windows 7 est est-ce la bonne version ?

[PocoYote]

Bonjour,

Je crois qu'il y a une dll qui est nécessaire avec indy pour gérer le SSL. Est-ce qu'elle est bien présente sur le pc en Windows 7 est est-ce la bonne version ?

Oui il faut ajouter les dll d'OpenSSL.