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
et aussi pour la ligne d'attachement le programme ne se compile pas probleme d'identification de idattachement
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;
voila attend votre réponse
Partager