Discussion :

[fersouce]

Salut à tous, j'ai pris une semaine voir plus pour faire un petit programme qui permet de faire un envoi email. j'ai vu des exemples, j'ai suivi les débat dans les forum mais j'arrive pas à résoudre mon problème, voila un bout de code standard que j'ai trouvé et j'ai testé on variant les paramètres, mon meilleur message d'erreur c'est ('la connexion c'est terminée proprement') !!!

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
 
begin
IdMessage1.Clear; //liberez le corps du message
IdMessage1.From.Text :=Edit4.Text; //Adresse email de l'expéditeur
IdMessage1.ReplyTo.EMailAddresses:=Edit4.Text; //Adresse email pour la réponse
IdMessage1.Recipients.EMailAddresses:=Edit1.Text; //Adresse email du destinataire
IdMessage1.Date:=Date; //Date de l'envoi du message
IdMessage1.Subject:=Edit3.Text; //Sujet du message
IdMessage1.Priority:=mpNormal; //Priorité du message
IdMessage1.Body.Assign(Memo1.Lines); //text du message
if not (Edit2.Text='') then TIdAttachment.Create(IdMessage1.MessageParts,Edit2.Text); //attacher la pieces jointe
IdSMTP1.AuthenticationType:=atLogin; //Type d'authentification
IdSMTP1.Host:=Edit5.Text;//Hôte (par exemple pour smtp.mail.yahoo.fr pour yahoo)
IdSMTP1.Port:=StrToInt(Edit6.Text); //Port (par exemple 587 pour gmail , 25 pour yahoo, 25 pour free)
 
IdSMTP1.UserName:=Edit7.Text; //Nom d'utilisateur
IdSMTP1.Password:=Edit8.Text; //Mot de passe
Screen.Cursor:=crHourGlass; //Curseur sablier
IdSMTP1.Connect; //Connexion au serveur
try
IdSMTP1.Send(IdMessage1); //Envoi du message
finally
IdSMTP1.Disconnect; //Déconnexion de serveur
end;
Screen.Cursor:=crDefault; //Curseur par défaut
Showmessage('Message envoyés avec succès');
end;

je suis toujours fidèle à delphi 7....Aidez moi SVP.

[Papy214]

L'email est arrivé à bon port ?

Pour le problème il faut "catcher" le type d'exception correspondant sans rien faire d'autre

http://www.swissdelphicenter.ch/en/showarticle.php?id=1

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
 
procedure TForm1.IdCmdTCPServer1Execute(AContext: TIdContext);
begin
  try
    // Your server-client thread stuff go here...
  except
    on E: EIdConnClosedGracefully do begin
      // Do your own handling of the gracefully disconnect exception here...
    end;
    on E: Exception do raise;
  end;
end;

http://www.indyproject.org/KB/index....ngeidconnc.htm

[SergioMaster]

Bonjour,

A mon avis un des hics vient de l'authentification, la plupart des messageries utilisent SSL maintenant D'où la nécessité d'un SSLIOHandler, l'installation des bibliothèques SSL etc...

[fersouce]

Bonjour,

A mon avis un des hics vient de l'authentification, la plupart des messageries utilisent SSL maintenant D'où la nécessité d'un SSLIOHandler, l'installation des bibliothèques SSL etc...

Es ce que vous parlé de ça libeay32.dll ssleay32.dll ?

[fersouce]

J'ai essayé d'envoyer avec mon compte mail dans mon site web j'ai eu un autre message

[SergioMaster]

Es ce que vous parlé de ça libeay32.dll ssleay32.dll ?

Oui, entre autres choses