Bonjour à tous,

Je suis sous Delphi 3 Professionnel sous Windows XP Professionnel et je n'arrive pas à écrire des e-mails en format HTML correctement.

Voici mon code (très basique vu que je ne fais que commencer le programme):
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
 
procedure TForm1.Button1Click(Sender: TObject);
var
  Destinataire, Sujet, Texte, Email: String;
begin
  Destinataire := 'destinataire@destinataire.com';
  Sujet := 'Test e-mail HTML';
  Texte := '<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">' + chr(13) + chr(10) +
           '<HTML><HEAD>' + chr(13) + chr(10) +
           '<META http-equiv=Content-Type content="text/html; charset=iso-8859-1">' + chr(13) + chr(10) +
           '<META content="MSHTML 6.00.2900.2668" name=GENERATOR>' + chr(13) + chr(10) +
           '<STYLE></STYLE>' + chr(13) + chr(10) +
           '</HEAD>' + chr(13) + chr(10) +
           '<BODY bgColor=#ffffff>' + chr(13) + chr(10) +
           '<DIV>Test e-mail HTML</DIV></BODY></HTML>';
  Email := 'mailto:' + Destinataire + '?subject=' + Sujet+ '&body=' + Texte;
  ShellExecute(Handle,'open',PChar(Email),nil,nil,SW_SHOW);
end;
Cette procédure fait afficher le code HTML comme si c'était du texte. Comment faire pour que ce soit traité comme du HTML et non pas comme du texte? Pour mieux cibler c'est certain que c'est dans le '&body=' + Texte.

Merci à l'avance pour votre réponse!

Balises de code ajoutées par Pierre Castelain.
Pensez-y à l'avenir.