Problème de IdSMTP Indy et Delphi 6

Bonjour à tous,

J'ai une ppli pour envoyer des mails en utilisant IdSMTP, l'appli ne fonctionne pas en utilisant un compte gmail (smtp.gmail.com et port 25/587) avec neuf box (j'y ai désactivé le filtrage)

Pourriez vous m'indiquer un compo free SVP

j'envoie aussi des pièces jointes avec les mails

Merci

Pour Gmail il te faut utiliser le SSL sinon tu ne pourras pas t'y connecter.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

IDSMTP:= TIDSMTP.Create(nil); FIDSSL := TIdSSLIOHandlerSocketOpenSSL.Create(nil); FIDSSL.SSLOptions.Method := sslvSSLv23; IDSMTP.IOHandler := FIDSSL;   IDSMTP.Host := AHost; // a tester cete config IDSMTP.Port := 993; IDSMTP.UseTLS := utUseImplicitTLS;   // ou Port 25 et UseTLS := utUseExplicitTLS   IDSMTP.Username := AUser; IDSMTP.Password := APassWord;   IDSMTP.Connect;   // Le mail a envoyé   FIDSSL.Free; IDSMTP.Free;

---

Après il te faut deux DLLs dans le répertoire de l'application ou dans le répertoire system de windows.
Tu les trouveras ici (pour D6 je crois qu'il faut les 0.98)

Même réponse que dans Comment utiliser IdSMTP pour envoyer un message

As-tu fourni le login\pw ?

Code:

---

1 2	IdSMTP1.Username = ...; IdSMTP1.Password = ...;

---

Pour GMAIL c'est obligatoire, contrairement au SMTP de Neuf qui utilise probablement tes identifiants de connexion Internet pour confirmer ton identité !
C'est une différence classique entre un SMTP fourni par le FAI et un SMTP externe

satDefault est la valeur par défaut depuis Indy 10 mais ce n'est pas le cas en Indy 9 en atNone par défaut, faut forcer atLogin

Code:

---

IdSMTP1.AuthType := satDefault; // Indy 10

---

Code:

---

IdSMTP1.AuthType := atLogin; // Indy 9 de D6

---

Bonjour,

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

Le TIdSSLIOHandlerSocketOpenSSL n'est identifié ?

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

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;