Écrire un e-mail au format HTML
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:
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.
