Discussion :

[bm1990]

Salut tous le monde, y a t'il un Tutorial qui explique comment utiliser le message Hello pour tester si une adresse email existe (valide ou réel) en utilisant les composants de Indy, parce que je ne sais pas vraiment par quoi je commence. merci.

[tourlourou]

Voici des pistes :

1) regarder la réference des commandes SMTP.
2) utiliser TIdSMTP et ses méthodes SendCmd
3) au total, envoyer HELO (ou utiliser Connect) puis MAIL FROM ton adresse, puis RCPT TO adresse à tester : adresse OK si on reçoit 250 OK ; finalement, envoyer RSET et enfin QUIT

voir aussi https://stackoverflow.com/questions/...ing-delphi-xe5.

[EDIT : correction des commandes SMTP au 3)]

[bm1990]

Juste pour confirmer est ce que c'est bien le résultat du message Hello qui nous montre si une adresse email quelconque existe ou non ?

[tourlourou]

Non : en cas de succès, on est sûr qu'il accepte le destinataire, et donc qu'il est valide. Mais il peut être valide et rejeté pour cause de quota dépassé ou autre raison.
[EDIT : j'ai retiré une affirmation dont je ne suis pas sûr, et finalement pê vaut-il mieux utiliser le code du second lien (Verify)]

[bm1990]

Non : en cas de succès, on est sûr qu'il accepte le destinataire, et donc qu'il est valide. Mais il peut être valide et rejeté pour cause de quota dépassé ou autre raison.
[EDIT : j'ai retiré une affirmation dont je ne suis pas sûr, et finalement pê vaut-il mieux utiliser le code du second lien (Verify)]

Merci tourlourou dès que je finis ce mini projet je vais poster le code pour l'étudier et je vais marquer la discussion comme résolu quand tous sera fini.

[bm1990]

J'ai trouvé cet exemple sur internet je l'ai pris pour commencer mon mailer, j'ai utilisé un SMTP qui utilise TLS alors j'ai ajouter cette instruction

Code :

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

IdSMTP1.SendCmd('STARTTLS', 220);

mais quand je tente d'envoyer l'email un email l'application reste figé sans envoyer l'email

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
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
unit Unit1;
 
//Programme par Yoann
//http://delphipage.free.fr/
 
interface
 
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, IdMessage, IdBaseComponent, IdComponent, IdTCPConnection,
  IdTCPClient, IdMessageClient, IdSMTP;
 
type
  TForm1 = class(TForm)
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    GroupBox3: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Memo1: TMemo;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    IdSMTP1: TIdSMTP;
    IdMessage1: TIdMessage;
    OpenDialog1: TOpenDialog;
    procedure Button3Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.DFM}
 
procedure TForm1.Button3Click(Sender: TObject);
begin
Close; //Ferme le programme
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
Edit3.Text:=OpenDialog1.FileName; //Edit affiche le fichier choisit
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
Screen.Cursor:=crHourGlass; //Curseur sablier
IdMessage1.Clear; //Efface l'entête et le corps du message
IdMessage1.From.Text :=Edit1.Text; //Adresse email de l'expediteur
IdMessage1.ReplyTo.EMailAddresses:=Edit1.Text; //Adresse email où le destinataire pourra répondre
IdMessage1.Recipients.EMailAddresses:=Edit2.Text; //Adresse email du destinataire
IdMessage1.Date:=Date; //Date de l'envoi du message
IdMessage1.Subject:=Edit4.Text; //Sujet du message
IdMessage1.Priority:=mpNormal; //Priorité du message
if not (Edit3.Text='') then TIdAttachment.Create(IdMessage1.MessageParts,Edit3.Text); //Attache le fichier
IdMessage1.Body.Assign(Memo1.Lines); //Corps du message
//Connexion au serveur smtp
IdSMTP1.AuthenticationType:=atLogin; //Type d'authentification
IdSMTP1.Host:=''; //Hôte (par exemple pour Free : smtp.free.fr)
IdSMTP1.Port:=587; //Port (par exemple pour Free : 25)
IdSMTP1.UserName:=''; //Nom d'utilisateur
IdSMTP1.Password:=''; //Mot de passe
IdSMTP1.Connect; //Connexion
IdSMTP1.SendCmd('STARTTLS', 220);
try
IdSMTP1.Send(IdMessage1); //Envoi du message
finally
IdSMTP1.Disconnect; //Déconnexion
end;
Screen.Cursor:=crDefault; //Curseur par défaut
end;
 
end.

Sans oublier que j'ai entrer les informations de mon serveur SMTP.

[bm1990]

Salut tous le monde y'a t'il une personne qui peut me répondre sur ma question !!!

[tourlourou]

Le code change sûrement selon la version des composants Indy : laquelle utilises-tu ?

[tourlourou]

Sous Berlin 10.1 avec Indy10, le code suivant m'a permis d'envoyer un message :

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
procedure TForm1.Button1Click(Sender: TObject);
begin
 
  with IdMessage1 do begin
    From.Text := MyAddress; 
    ReplyTo.EMailAddresses := MyAddress; 
    Recipients.EMailAddresses := DestAddress; 
    Priority := mpNormal; 
    Date := Now; 
    Subject := 'test'; 
    Body.Text := 'coucou !'; 
  end;
 
  with IdSMTP1 do begin
    Host := SMTPHost;
    Port := SMTPPort;
    UserName := SMTPUserName;
    Password := SMTPPassword;
    AuthType := satDefault;
    Connect;
    Send(IdMessage1);
    Disconnect;
  end;
end;

[tourlourou]

Pour TLS, en mettant Default comme option de type d'identification, je pense que le IdSMTP utilise l'information TLS qu'il reçoit du serveur, et que tu n'as pas besoin de lui spécifier. Mon envoi a réussi sur le port 587 d'orange.

[bm1990]

Moi j'utilise delphi version 7.0 et quand et j'ai ce message d'erreur:


Comment le résoudre

[bm1990]

On cherchant sur le forum j'ai trouver cette discussion j'ai compris qu'il faut utiliser les DLLs de OpenSSL après que je les ai utiliser j'ai eu ce message d'erreur


Comment y remédier à ce problème sachant que le serveur SMTP que j'utilise est bien fonctionnel !

[bm1990]

y a t'il une personne qui peut m'aider à corriger cette erreur !!!

[SergioMaster]

Bonjour

On cherchant sur le forum j'ai trouver cette discussion j'ai compris qu'il faut utiliser les DLLs de OpenSSL après que je les ai utiliser j'ai eu ce message d'erreur

Étrange de citer cette discussion ou vous indiquez vous même

Moi aussi j'ai eu ce problème mais j'ai réussi à le résoudre on utilisant ces fichiers DLL

AMHA il y a un joyeux mélange de DLL un peu partout, voir même de versions de INdy ! je vous rappelle que puisque votre programme est fait avec D7 il vaudrait mieux utiliser des dll 32 bits

[bm1990]

Bonjour

Étrange de citer cette discussion ou vous indiquez vous même

Je ne trouve rien d'étrange !!! et pour les DLL peux tu me donner ceux de la version 32 Bit

[SergioMaster]

Je ne trouve rien d'étrange !!!

Moi si puisque vous indiquiez que vous aviez réussi

et pour les DLL peux tu me donner ceux de la version 32 Bit

non, mais l'adresse de téléchargement (qu'une simple recherche google avec openssl+indy+download permet de trouver)
https://indy.fulgan.com/SSL/
après cela dépend de votre version Indy, d'où le vaste choix (sans parler qu'il y en a d'autres dans le répertoire archives !)

[bm1990]

Moi j'utilise delphi version 7.0 et quand et j'ai ce message d'erreur:


Comment le résoudre

J'ai réussi à dépasser cette erreur mais pas la dernière !!! malgré que j'ai mis les bons fichiers DLL