HTML Seite in Outlook Express importieren

[bundy]

Hallo hier ein kleiner SourceCode:

Delphi-Quellcode:

procedure SendOutlookMail;
const
  olMailItem = 0;
var
  Outlook: OleVariant;
  vMailItem: variant;

begin
  try
    Outlook := GetActiveOleObject('outlook.Application');
  except
    Outlook := CreateOleObject('outlook.Application');
  end;
  vMailItem := Outlook.CreateItem(olMailItem);
  vMailItem.Recipients.Add('RECIPIENTS');
  vMailItem.Subject :='SUBJECT'; 
  vMailItem.Body := 'HTML DATEINAME';

  vMailItem.Attachments.Add(filename);
  vMailItem.Send;

  VarClear(Outlook);
end;

PS: EMAIL Programm muss laufen bevor du procedure ausführst.

[Edit=Sakura]Delphi-Tags eingefügt[/Edit]