EMail über Outlook 2003 versenden

[HolgerCW]

Danke für die Hilfen. Meine Funktion sieht nun so aus:

Delphi-Quellcode:

function EMail_versenden_Outlook(An, Cc, Text: String; Subject:String; Anhang:String; Mit_Abfrage: Boolean):Boolean;
var
 TOA:TOutlookApplication;
 MI: MailItem;
begin

 Result := FALSE;

 TOA:=  TOutlookApplication.Create(Form_Email.Outlook);

 TOA.ConnectKind := ckRunningOrNew;
 try

  TOA.Connect;

 except

  TOA.Free;
  MessageDlg('Outlook kann nicht geöffnet werden!',mtError,[mbok],0);
  exit;

 end;

 MI:= TOA.CreateItem(olMailItem) as MailItem;
 MI.Attachments.Add(Anhang,emptyParam,EmptyParam,EmptyParam); 
 MI.Body:= Text;
 MI.Subject:= Subject;
 MI.Companies:= 'Your Company';
 MI.Categories:='HelpDesk';
 MI.Recipients.Add(An);
 MI.CC := Cc;
 MI.Display(1);
 TOA.Disconnect;
 TOA.Free;

 Result := TRUE;

end;

Wie kann ich nun abchecken ob die E-Mail wirklich versendet wurde, oder noch besser wie kann ich die E-Mail direkt versenden, ohne das der Anwender noch eingreifen kann ?

MfG

Holger