Discussion :

[BYALI]

Bonjour;
j'essaye d'envoyer un mail par delphi en utilisant les composant Indy

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
 
IdMessage1.Clear; 
   IdMessage1.From.Text :=Edit1.Text;
   IdMessage1.ReplyTo.EMailAddresses:=Edit1.Text; 
   IdMessage1.Recipients.EMailAddresses:=Edit2.Text; 
   IdMessage1.Date:=Date;
   IdMessage1.Subject:=Edit4.Text; 
   IdMessage1.Priority:=mpNormal; 
   IdMessage1.Body.Assign(Memo1.Lines);
   if not (Edit3.Text='') then
   TIdAttachment.Create(IdMessage1.MessageParts,Edit3.Text); 
 
   IdSMTP1.AuthenticationType:=atLogin;
   IdSMTP1.Host:='smtp.live.com';
   IdSMTP1.Port:=25; //Port (par exemple pour Free : 25)
   IdSMTP1.UserName:='utilisateur@hotmail.com'; //Nom d'utilisateur
   IdSMTP1.Password:=mpasse; //Mot de passe
 
     try
   IdSMTP1.Connect;   except   showmessage('Erreur de connexion');   end;
     IdSMTP1.Send(IdMessage1);

il s'arrête à l'envoi du message et affiche le message d'erreur suivant:
"5.7.0 Must issue a STARTTLS command first"

est ce possible de m'orienter, merci

[ShaiLeTroll]

le STARTTLS indique la communication sera chiffrée

Il te faut fournir au TidSMTP.IOHandler un objet TIdSSLIoHandlerOpenSll
Comment utiliser le SSL avec Indy ?

Le Port sera surement le 465 au lieu du 25

[BYALI]

merci pour la réponse rapide, mais j'ai pas trouvé ce composant dans la palette indy j'ai trouvé: IdSSLIOHandlerSocket

pour info j'ai Delphi 7

[ShaiLeTroll]

C'est proche mais il y a plus de code à fournir
Delphi 7 c'est Indy 9
Etant en XE2, je suis sous Indy 10, il y a des trucs qui changent

Embarcadero Discussion Forums » Delphi » Third Party Tools » General : SSL dlls for Indy 9
Voir la réponse de Remy Lebeau qui fourni un code Indy 9 (TIdSSLIOHandlerSocket) et un code Indy 10 (TIdSSLIOHandlerSocketOpenSSL)