HTML-Email in Outlook versenden lassen

[torud]

Hallo Wissende,

das man mit folgendem Code eine Mail an Outlook übergeben kann, ist klar:

Delphi-Quellcode:

uses
  ShellApi;


procedure TForm1.Button1Click(Sender: TObject);
var
  strEmail, strSubject, strBody, Param: string;
begin
  strEmail := '[e-mail]';
  strSubject := 'Your Subject';
  strBody := 'Your Message Text';

  Param := 'mailto:' + strEmail + '?subject=' + strSubject +
           '&Body=' + strBody;

  ShellExecute(Form1.Handle, 'open', PChar(Param), nil, nil, SW_SHOWNORMAL);
end;

Aber wie gehe ich vor, wenn ich eine HTML-Email an Outlook übergeben will. Was erwartet Outlook da? Kann ich da einfach ne HTML-Seite per Code in den Body schreiben? Das dürfte doch sicher nicht reichen, wenn Outlook standardmässig auf Textmails eingestellt ist. Oder?

//Nachtrag
Ich habe mal zu dem Thema gegooglet und auch hier die Suche bedient, aber es findet sich nichts brauchbares. Bei DelphiSwissCenter gab was ganz dolles, was nicht funzte und auch auf anderen Seiten taucht die Frage immer wieder auf, ohne Antwort zu finden. Bitte alles ohne INDY oder FastNet.

Den einzigen Codeschnipsel den ich fand, war dieser hier:

Delphi-Quellcode:

  //aber schon hier meldet sich meckernderweise der compiler
  //klasse nicht registriert
  Outlook := CreateOleObject('Outlook.Application');

  miMail := Outlook.CreateItem(olMailItem);
  miMail.Recipients.Add('[e-mail]');
  miMail.Subject := 'Hello Bill';

  // use this to send a plain text email (all versions of Outlook)
  miMail.Body := 'Attached is the list of email addresses.';

  // alternatively send an HTML email (not in Outlook 97)
  miMail.HTMLBody := '<font color=red>Attached is the [b]list of email[/b] addresses.</font>';

  //miMail.Attachments.Add('C:\temp\list.txt', EmptyParam, EmptyParam, EmptyParam);
  miMail.Send;

//Edit #2
Nachdem ich nun über 4 Stunden im Internet gesucht und gegooglet habe und NICHTS brauchbares zu diesem Thema finden konnte, gebe ich, zumindest für heute, auf.