Bonjour à tous,

A partir des informations trouvée sur le forum, j'essaie de mettre en application le code suivant :
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
procedure TForm4.Button2Click(Sender: TObject); 
var 
  IdMessage: TIdMessage; 
  IdSMTP: TIdSMTP; 
begin 
  IdMessage := TIdMessage.Create(nil); 
  IdMessage.ContentType := 'multipart/alternative'; 
  IdMessage.From.Address := 'exp@free.fr'; 
 
  IdMessage.ReplyTo.Add.Address := 'exp@free.fr'; 
  IdMessage.Recipients.Add.Address := 'dest@free.fr' ; 
  IdMessage.Subject := 'Sujet du message'; 
  IdMessage.Body.Text := memo1.Text;
 
  IdSMTP := TIdSMTP.Create(nil) ; 
  IdSMTP.Port := 25; 
  IdSMTP.Host := 'smtp.free.fr'; 
  Try 
    Try 
      IdSMTP.Connect; 
      IdSMTP.Send(IdMessage); 
    except 
      on e: exception do MessageDlg(e.Message, mtError, [mbOK], 0); 
    end; 
  finally 
    IdSMTP.Disconnect; 
    IdSMTP.Free; 
    IdMessage.Free; 
  end; 
end;

Cela ne marche pas, j'ai essayé en ajoutant avant le IdSMTP.Connect;
les lignes suivantes:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
 
   IdSMTP.UserName := 'mylogin';
   IdSMTP.PassWord := 'mypwd';
A priori le IdSMTP.Connect se réalise correctement, aucune erreur ne s'affiche mais le message n'arrive jamais à son destinataire.

Qu' est ce que je fais de mal ?

Merci d'avance pour vos réponses.
Wilco