Discussion :

[fveto]

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

[Rayek]

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

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
 
  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)

[ShaiLeTroll]

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

As-tu fourni le login\pw ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

IdSMTP1.AuthType := satDefault; // Indy 10

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[fveto]

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;