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