Discussion :

[Nicolas_SW]

J'envoie un mail en utilisant un TIdMessage, et par moment le mail que je reçois me supprime un caractère point, assez fréquemment quand celui-ci est le 80e caractère d'une ligne, mais parfois ailleurs.

Je vérifie, le mail qui part est correct, mais celui-reçu perd ce point.

Je suppose qu'il y a un problème d'encodage quelque part, mais je ne vois pas où.

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
 
    fIdMessage := TIdMessage.Create(Nil);
    fIdMessage.From.Text := '"' + InterpreteChaine(fNomExpediteur)
                          + '" <' + InterpreteChaine(fEmailExpediteur) + '>';
    fIdMessage.Recipients.EMailAddresses := fEmailDestinataire;
    fIdMessage.ReplyTo.EMailAddresses := fRepondreA;
    fIdMessage.Body.Add(fMessage.Text);
 
    IdHtml := TIdText.Create(fIdMessage.MessageParts);
    IdHtml.Body.Assign(fIdMessage.Body);
    IdHtml.ContentType := 'text/html';
 
 
    IdText := TIdText.Create(fIdMessage.MessageParts);
    IdText.Body.text := Utf8Encode(fMessageText.Text); 
    IdText.ContentType := 'text/plain;charset=utf-8';
 
    fIdMessage.ContentType := 'text/html';
    fIdMessage.CharSet := 'iso-8859-1';
    fIdMessage.ContentTransferEncoding := '7bit';
    fIdMessage.Encoding := meMIME;
    fIdMessage.AddHeader('MIME-Version: 1.0'); 
    fIdMessage.Subject := EncodeIso_8859_1(InterpreteChaine(fSujet));

Si quelqu'un a une suggestion

[ShaiLeTroll]

J'utilise aussi Indy pour envoyer des mails, mais j'écrit beaucoup moins de truc que toi pour l'encodage

Ce qui me surprend tu mélanges utf-8 et iso-8859-1, l'un pour le Texte et l'autre pour le sujet !

Dans un objet qui encapsule l'envoi de mail, j'ai un très basique

Code :

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

1
2
3
4
5
 
   IdMessage.CharSet := 'ISO-8859-1';
   IdMessage.ContentType := 'text/plain';
   IdMessage.Body.Text := FBodyMessage;
   IdMessage.Subject := FSubject;

Tu devrais commencer par là !
Il est vrai que l'on envoi que des mails textes basiques.

Ensuite affecter de l'UTF-8 à une TStringList, c'est courageux ! Je n'oserais pas !

[Nicolas_SW]

Merci.

J'ai essayé d'encoder tout en ISO ou tout en utf8, j'ai essayé de mettre ContentTransferEncoding à 7bit, 8bit et Base64, j'ai toujours le problème.

Au final j'ai remplacé mes points par de . et ça marche