Hilfe bei Einbindung von Outlook 2003!!

[mize1973]

OK. Hier der Quellcode:

Delphi-Quellcode:

uses Outlook2003; 
procedure SendMail;  
var  
  TOA:TOutlookApplication;  
  MI: MailItem;  
  I:integer;  
begin  
  TOA:=  TOutlookApplication.Create(Self);  
  TOA.ConnectKind := ckRunningOrNew;  
  TOA.Connect;  
  MI:= TOA.CreateItem(olMailItem) as MailItem;  
  for I:=0 to Liste.Items.Count-1 do  
    MI.Recipients.Add(New.Items[i]);
  MI.HTMLBody:=MyBody;
  MI.Subject:='Mailsubject';  
  MI.Companies:= 'Optional';  
  MI.Display(1);
  TOA.Disconnect;  
end;

[edit=r_kerber]Delphi-Tags eingefügt. Das nächste mal bitte selbst machen. Mfg, r_kerber[/edit]