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
Merci pour votre réponse.
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;
Partager