Outlook: Email mit Signatur erstellen

[toms]

Hallo Frank

Leider ist deinem Beitrag nicht zu entnehmen, um was für eine Outlook Version es sich handelt.
Habe den Code unter Outlook 2003 getestet. Funktioniert ohne Probleme.

Mein ausführbarer Code, falls ihn jemand noch mit einer anderen Outlook Version testen mag.

Delphi-Quellcode:

uses
  ComObj;

var 
  FOutlookApplication: Variant;
  FMailitem: OleVariant;

procedure TForm1.Button1Click(Sender: TObject);
const
  olMailItem = 0;
  olFormatHTML = $00000002;
var
  s, Emailtext: string;
begin
  FOutlookApplication := CreateOleObject('Outlook.Application');
  Emailtext := 'hier steht ein Text';
  FMailitem := FOutlookApplication.CreateItem(olMailItem);
  FMailitem.subject := 'Betreff';
  FMailitem.ReadReceiptRequested := true;
  FMailitem.Recipients.Add('[e-mail]');

  FMailitem.BodyFormat := olFormatHTML;
  FMailitem.getinspector;
  showmessage(FMailitem.htmlbody);

  s := FMailitem.htmlbody;
  FMailitem.HtmlBody := '[b]Tes[/b]t';
  FMailitem.display;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  FMailitem := Unassigned;
  FOutlookApplication.Quit;
  FOutlookApplication := Unassigned;
end;