Discussion :

[fveto]

Bonjour,

J'ai placé les fichiers DLL (libeay32.dll et ssleay32.dll) dans le dossier projet;

Le TIdSSLIOHandlerSocketOpenSSL n'est identifié ?

J'ai trouvé un code ou on utilise TIdSSLIOHandlerSocketOpenSSL, pref ça fonctionne pas

Voila 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
46
47
uses
 IdMessage, IdSMTP, IdSSLOpenSSL, IdGlobal, IdExplicitTLSClientServerBase;
 
 procedure SendEmail(const Recipients: string; const Subject: string; const Body: string);
 var
 SMTP: TIdSMTP;
 Email: TIdMessage;
 SSLHandler: TIdSSLIOHandlerSocketOpenSSL;
 begin
 SMTP := TIdSMTP.Create(nil);
 Email := TIdMessage.Create(nil);
 SSLHandler := TIdSSLIOHandlerSocketOpenSSL.Create(nil);
 
 try
 SSLHandler.MaxLineAction := maException;
 SSLHandler.SSLOptions.Method := sslvTLSv1;
 SSLHandler.SSLOptions.Mode := sslmUnassigned;
 SSLHandler.SSLOptions.VerifyMode := [];
 SSLHandler.SSLOptions.VerifyDepth := 0;
 
 SMTP.IOHandler := SSLHandler;
 SMTP.Host := 'smtp.gmail.com';
 SMTP.Port := 587;
 SMTP.Username := 'yourusername@gmail.com';
 SMTP.Password := 'yourpassword';
 SMTP.UseTLS := utUseExplicitTLS;
 
 Email.From.Address := 'yourusername@gmail.com';
 Email.Recipients.EmailAddresses := Recipients;
 Email.Subject := Subject;
 Email.Body.Text := Body;
 
 SMTP.Connect;
 SMTP.Send(Email);
 SMTP.Disconnect;
 
 finally
 SMTP.Free;
 Email.Free;
 SSLHandler.Free;
 end;
 end;
 
 procedure TForm1.Button1Click(Sender: TObject);
 begin
 SendEmail('recipient@whatever.com', 'Subject', 'Body');
 end;

[Rayek]

Désoler la boule de crystal est en panne, c'est quoi l'erreur ?

(Puis c'est pas 995 le port SMTP en TLS chez Gmail ?)

[fveto]

Dans Indy 9 on a pas le compo TIdSSLIOHandlerSocketOpenSSL

Je suppose que ça existe dans Indy 10, j'utilise D6, donc, j'ai du supprimé Indy8 de mon D6 et installé Indy9

Le problème que je n'arrive pas à envoyer des mails avec NeufBox, bien sûr j'ai désactivé le filtrage de NeufBox !!!

Merci

[Rayek]

Le plus simple serait d'installer Indy10 car tu utilises une version des composants qui à quand même presque 10 ans.
Ce n'est pas étonnant que cela ne fonctionne pas avec les dernières évolutions du web et des mails.

[Pascal Fonteneau]

Où as-tu trouvé les DLLs libeay32.dll et ssleay32.dll. Ce n'est peut-être pas les bonnes. Pour ma part, j'utilise celles des dossiers de redistribution (déploiement) liés à la version courante de DELPHI que j'utilise.

a+
Pascal

[fveto]

Bonjour,

Pascal :

C'est fort possible que ça soit la version des DLL qui font ça, je les ai téléchargé à cette adresse : http://indy.fulgan.com/SSL/

[Pascal Fonteneau]

Pour delphi XE2 et XE3 , il y a un dossier de redistribution avec les bonnes dll . Pour D7, j'ai fouillé et testé plusieurs versions (en fonction des tailles ) et j'ai fini par trouver.

libeay32.dll de 692 224 octets
et
ssleay32.dll 151 552 octects

fonctionnent avec D7, c'est d'ailleurs au même endroit que toi que je les ai trouvées.

Par contre pour D6, je ne sais pas qu'elles sont les bonnes.
a+

Pascal

[fveto]

Effectivement ca vient de la

merci