Discussion :

[m44tgui]

Je veux via TNMSMTP ou SMTP mettre en mail un fichier word (déjà formatè , logo , texte ...) , je ne veux pas passer par un fichier joint donc ne pas utiliser
TIdAttachment.Create(IdMessage.MessageParts, 'W:\toto.doc'); ou
PostMessage.Attachments.add('W:\toto.doc);
Suis-je restreint à écrire ? avec :
PostMessage.Body.Add('Bonne réception.');ou
Body.Insert(0, 'Ce message est un message...');
Merci

[ShaiLeTroll]

Converti ton word en HTML, et essaye de l'insérer ...

[m44tgui]

Qu'elle ligne de commande mettrais-tu car effectivement je suis parti à l'origine avec un fichier word enregistré en html mais je n'arrive qu'à insérer du text et attacher le fichier , d'où mon prbm ...

[Whiler]

J'avais fait ça à une époque... mais en Indy... si ça peut te donner une piste...

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
var
  html: TStringList;
begin
  Screen.Cursor := crHourGlass;
  //Curseur sablier
  IdMessage1.Clear;
  IdMessage1.From.Text := Edit1.Text;
  //Adresse email de l'expediteur
  IdMessage1.ReplyTo.EMailAddresses := edReplyTo.Text;
  //Adresse email où le destinataire pourra répondre
  IdMessage1.Recipients.EMailAddresses := email;
  //Adresse email du destinataire
  IdMessage1.Date := Date;
  //Date de l'envoi du message
  IdMessage1.Subject := Edit4.Text;
  //Sujet du message
  IdMessage1.Priority := mpNormal;
  IdMessage1.CharSet := 'iso-8859-1';
  IdMessage1.Encoding := meMIME;
  IdMessage1.ContentType := 'text/html';
  //Ajout du message au format HTML (en supposant que Message contient du HTML) :
  html := TStringList.Create;
  html.LoadFromFile(LabeledEdit1.Text);
  with TIdText.Create(IdMessage1.MessageParts, html) do
    ContentType := 'text/html';
  html.Free;
  IdSMTP1.Port := 25;
  //Port (par exemple pour Free : 25)
  IdSMTP1.Connect;
  //Connexion
  try
    IdSMTP1.Send(IdMessage1);
    Writeln(logfile, email);
    Gauge1.AddProgress(1);
  finally
    //Envoi du message
    IdSMTP1.Disconnect;
  end;
  Screen.Cursor := crDefault;

[ShaiLeTroll]

Tu lit le fichier avec une TStringList par Exemple, et tu fait pour chaque ligne un PostMessage.Body.Add(HTMLStrings[i]);