Discussion :

[batseb]

Bonjour,

J'essaie d'envoyer des mails avec des accents dans le message en delphi 7. Cela fonctionne bien. Mais dès que je rajoute une pièce jointe, les accents repassent en 'carrés'.

Voici un bout de 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
21
22
23
24
25
26
27
28
29
30
31
32
33
procedure TMailerForm.btnSendMailClick(Sender: TObject);
begin
  StatusMemo.Clear;
 
  //setup SMTP
  SMTP.Host := ledHost.Text;
  SMTP.Port := 25;
 
  //setup mail message
  MailMessage.From.Address := ledFrom.Text;
  MailMessage.Recipients.EMailAddresses := ledTo.Text + ',' + ledCC.Text;
 
  MailMessage.Subject := ledSubject.Text;
  MailMessage.Body.Text := Body.Text;
 
  if FileExists(ledAttachment.Text) then
  begin
    TIdAttachment.Create(MailMessage.MessageParts, ledAttachment.Text);
  end;
 
  //send mail
  try
    try
      SMTP.Connect(1000);
      SMTP.Send(MailMessage);
    except on E:Exception do
      StatusMemo.Lines.Insert(0, 'ERROR: ' + E.Message);
    end;
  finally
    if SMTP.Connected then SMTP.Disconnect;
  end;
 
end; (* btnSendMail Click *)

J'ai mis dans les propriétés de TIdMessage :
Charset : iso-8859-1
ContentType : text/plain

Cordialement,
Sébastien

[Rayek]

Essai de rajouter après la création de la pièce jointe

Code :

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

1
2
3
4
5
6
7
8
9
10
 
// Permet de remplir toutes les parties texte d'un mail quand il y a une pièce jointe
for i := 0 to MailMessage.MessageParts.count -1 do
begin
  if MailMessage.MessageParts[i] is TIdText then
  begin
    MailMessage.MessageParts[i].ContentType = 'Text/Plain';
    MailMessage.MessageParts[i].Body.Text := MailMessage.Body.Text;
  end;
end;

[batseb]

J'ai essayé de rajouter ton code mais .body n 'existe pas.
J'ai mis la source en pièce jointe.

Peux tu faire le test sur ton PC?

Merci
Sébastien

[Rayek]

Petite erreur de ma part

Code :

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

1
2
3
4
5
6
7
8
9
10
 
// Permet de remplir toutes les parties texte d'un mail quand il y a une pièce jointe
for i := 0 to MailMessage.MessageParts.count -1 do
begin
  if MailMessage.MessageParts[i] is TIdText then
  begin
    TIdText (MailMessage.MessageParts[i]).ContentType = 'Text/Plain';
    TIdText (MailMessage.MessageParts[i]).Body.Text := MailMessage.Body.Text;
  end;
end;

Faut pas oublier de caster en TIdText

[batseb]

J'ai essayé avec ta modification mais cela ne fonctionne pas mieux.