Bonjour à tous,

Pour les besoins de mon application j'ai besoin d'intégrer une procédure d'envoi d'email et étant un débutant dans ce sujet j'ai pris la première procédure que j'ai trouvée sur le forum
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
var
  IdMessage: TIdMessage;
  IdSMTP: TIdSMTP;
  Message: TStrings;
  i: Integer;
begin
  IdMessage := TIdMessage.Create(nil); //création dynamique du composant
  IdMessage.From.Address :=adrexp.Text;
 
  IdMessage.ReplyTo.Add.Address := adrexp.Text;
  IdMessage.Recipients.Add.Address := adrdes.Text;
 
  IdMessage.Subject := obj.text;
 
  IdMessage.ContentType := 'multipart/alternative'; 
 
  Message := texte.Lines;
 
  With TIdText.Create(IdMessage.MessageParts, Message) Do
  Begin
    ContentType := 'text/plain';
    Body.Insert(0, 'Ce message est un message HTML. Configurez votre client de courrier électronique' +
  'pour le visionner de manière appropriée');
  end;
 
   with TIdText.Create(IdMessage.MessageParts, Message) do
    ContentType := 'text/html';
 
  for i := 0 to lpj.Items.Count-1 do
    TIdAttachmentfile.Create(IdMessage.MessageParts, lpj.Items[i]);
 
  IdSMTP := TIdSMTP.Create(nil) ; //Création dynamique du composant
 
  IdSMTP.Port := 25; //Le port SMTP standard...
  IdSMTP.Host := sermes.Text;  //Le serveur auquel se connecter
 
  //Ensuite on se connecte et on envoit le message, en gérant les erreurs, tant qu'à faire !
  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;
Mais il me signale une erreur "connect error to SMTP serveur 46.228..47.115 (46.228..47.115:25) connect error 10060