Discussion :

[jano_dave]

Bonjour

Je cherche à créer une TStringList pour stock des lignes de log de mon application.
Je cherche ensuite à envoyer par mail le contenu de cette TStringList.

Voici le mail log que je cherche à faire :

============================================================#13#10
Start : 16/09/2009 16:43:39 #13#10
(ligne vide) #13#10
[PDF] Name : R_ECG_1_4_0401_-UNIDENTIFIED-__20090806092940_20090812082755.pdf DateFile : 12/08/2009 08:33:20 Folder : D:\delphi\repertoire_test\4SC-201-1-2009\4\PDF\#13#10
[ZIP] #zip : 1 zipname : R_ECG_1_4_0401_-UNIDENTIFIED-__20090806092940_20090812082755.zip #13#10
[MAIL] #mail : 1 datemail : 16/09/2009 #13#10
(ligne vide) #13#10
Close : 16/09/2009 16:43:42 #13#10
============================================================#13#10

Mon problème les « #13#10 » ne sont pas interprétés comme des fin ligne saut ligne.
Du coup mon mail ressemble à cela :

============================================================#13#10Start : 16/09/2009 16:43:39 #13#10[PDF] Name : R_ECG_1_4_0401_-UNIDENTIFIED-__20090806092940_20090812082755.pdf DateFile : 12/08/2009 08:33:20 Folder : D:\delphi\repertoire_test\4SC-201-1-2009\4\PDF\#13#10[ZIP] #zip : 1 zipname : R_ECG_1_4_0401_-UNIDENTIFIED-__20090806092940_20090812082755.zip #13#10[MAIL] #mail : 1 datemail : 16/09/2009 #13#10 #13#10Close : 16/09/2009 16:43:42 #13#10============================================================#13#10 #13#10

Voici le code que j utilise pour insérer les lignes de mon TStringList dans la variable idMessage.body.text de mon mail:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
var
msglog :IdMessage ;
LogList :TStringList
 
for l:=0 to LogList.Count-1 do
  Begin
    //  Ajout des lignes dans le mail
    corpmail := corpmail+LogList.strings[l];
  End; //for
 
  msglog.Body.Text := corpmail; //Corps du messag

Merci de votre aide et de vos remarques.

[sjrd]

Moi je ferais juste :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
var
  msglog: TIdMessage;
  LogList: TStringList;
begin
  ...
  CorpsMail := CorpsMail + LogList.Strings.Text;
  MsgLog.Body.Text := CorpsMail;
  ...
end;

[jano_dave]

Bah oui ta méthode et plus simple et donne en plus de cela le résultat escompté.

Alors simplement merci à toi.