Discussion :

[shadow578]

Bonjour,
Je sais que le sujet à déjà était évoqué mais je n'arrive toujours pas à mon terme.

J'aimerai créer un envoie de mail capable de fonctionner sur toutes adresses.
Mon problème est sous Gmail, je sais qu'il faut une activation SSL mais je n'y arrive pas il me dit toujours le message : "impossible de chqrger lq bibliotheque SSL". Alors que j'ai bien mis les deux dll dans le dossier.

Help me

[Rayek]

Indiquer les composants utilisés pour l'envoi de mail ça pourrait aider.

Ainsi qu'un morceau de code montrant comment tu instancies les composants et comment tu les utilises, ça ne serait pas de trop

[shadow578]

J'utilise les composants:
- SSLSocket: TIdSSLIOHandlerSocket;
- MSG: TIdMessage;
- SMTP: TIdSMTP;
Je suis sous Delphi 7.

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
procedure TForm1.Button1Click(Sender: TObject);
begin
  try
    with SMTP do begin
      Host := 'smtp.gmail.com';
      Port := 465;
      IOHandler := SSLSocket;
      Username := '***@gmail.com';
      Password := '*****';
    end;
 
    try
      with MSG do begin
        subject := 'toto';
        From.Address := '***@gmail.com';
        From.Name := 'tooo';
        Recipients.EMailAddresses := '***@gmail.com';
        ReceiptRecipient.Name := '***@gmail.com';
      end;
 
      with SMTP do begin
        if not Connected then
          Connect;
        Send(MSG);
      end;
 
    finally
      MSG.Free;
    end;
  finally
    SMTP.Free;
    SSLSocket.Free;
  end;
end;

[Rayek]

As tu les bonnes DLL ? Quel version d'indy utilises tu ?

Voir la que j'ai écrite y a un moment, sur le problème de version des DLL que j'ai rencontré.

[shadow578]

J'utilise Indy 9 avec la openssl-1.0.0g-i386-win32.zip

Je pense pas que ça vient de là :/

[Rayek]

Vu qu'avec Indy 10.1.15 j'étais obligé d'utiliser la DLL 0.98a je doute qu'avec le 9 ça fonctionne avec une 1.0.0
Essai avec une version inférieure.

[shadow578]

Je viens d'essayer avec la version la plus petite.
openssl-0.9.8r-i386-win32-rev2.zip

Ca me met toujours le même message c'est comme si il allait même pas chercher les dll O_o


source des dll : http://indy.fulgan.com/SSL/

[Rayek]

Dans archives tu as la 0.96 (qui, si me souvenir son bon, fonctionnait avec indy 9 à ce moment)

Sinon tu mets à jour Indy sur ton poste, il ne devrait plus y avoir de problème de DLL avec les dernière version.

[shadow578]

Ah !

Avec la version 0.96 j'obtient un autre message d'erreur :

"Erreur lors de la connexion avec le protocole SSL"

??

[shadow578]

Alors j'ai enfin réussit à installer indy 10 .. enfin je l’espère...

Mon code est celui ci:

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
try
    with SMTP do begin
      Host      := 'smtp.gmail.com';
      Port      := 465;
      IOHandler := SSLSocket;
      Username  := '***@gmail.com';
      Password  := '***';
      UseTLS    := utUseExplicitTLS;
    end;
 
    try
      with MSG do begin
        subject                   := 'toto';
        From.Address              := '***@gmail.com';
        From.Name                 := 'tooo';
        Recipients.EMailAddresses := '***@gmail.com';
        ReceiptRecipient.Name     := '***@gmail.com';
      end;
 
      with SMTP do begin
        Button1.Caption := 'Connexion';
        if not Connected then
          Connect;
        Button1.Caption := 'Envoie';
        Send(MSG);
        Button1.Caption := 'Envoyé avec succés';
      end;
 
    finally
      MSG.Free;
    end;
  finally
    SMTP.Free;
    SSLSocket.Free;
  end;

Mon problème est que le catpion s'arrête à 'Envoie' donc il n'arrive toujours pas à envoyé le message, pourtant j'ai utilisé TLS. Help

Merci

[shadow578]

C'est bon c'est résolu, une histoire de dll >_<

Merci Rayek.

J'arrive à envoyé avec la pluspart des smtp sauf free...

Il m'affiche authentification failed dés que je veux envoyé.

[remixtech]

Même sans TLS ?
Regarde en rajoutant un TIDLogFile pour voir ce qui se passe (au moins la réponse du serveur Free).