bonsoir j'ai fais une application qui me permet d'envoyer des email
mais ça fonctionne pas j’obtiens l’erreur de type (ereur de soket n11001 Hote non trouvé) voila mon code
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
procedure TForm1.Button1Click(Sender: TObject);
 
begin
  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:=edit3.Text; //Sujet du message
  IdMessage1.Priority:=mpNormal; //Priorité du message
  IdMessage1.Body.Assign(Memo1.Lines); //Corps du message
  if not (Edit4.Text='') then TIdAttachment.Create(IdMessage1.MessageParts,Edit3.Text);
  IdSMTP1.Host :='smtp.live.com  ';
  IdSMTP1.Port := 25;
  IdSMTP1.Connect;
  try
    IdSMTP1.Send(IdMessage1); //Envoi du message
  finally
    IdSMTP1.Disconnect; //Déconnexion
  end;
end;
et aussi pour la ligne d'attachement le programme ne se compile pas probleme d'identification de idattachement
voila attend votre réponse