Guten Abend,
Ich habe folgenden Quelltext, den ich schon mit einigen hier im Forum abgegliechen habe, in der Hoffnung, dass es endlich funktioniert, aber Fehlanzeige...
Delphi-Quellcode:
procedure TOutlook.EmailErstellen;
Var OutlookApp: Variant;
Mailitem,ObjectInspector,Editor : OleVariant;
begin
try
OutlookApp := GetActiveOleObject('Outlook.Application'); // hier erscheint eine Fehlermeldung 'Vorgang Abgebrochen' und die except-Anweisung wird nicht ausgeführt
except
OutlookApp := CreateOleObject('Outlook.Application');
end;
try
Mailitem := OutlookApp.CreateItem(olMailItem);
try
Mail.subject := sBetreff;
Mail.Recipients.Add(sEmpfaenger);
Mail.Body := sNachricht;
ObjectInspector := Mail.Getinspector;
Editor := ObjectInspector.Editor;
Editor.Characters.item(1).InsertBefore(Mail.Body); //der Text steht in der Email, allerdings ohne Signatur
Mail.send;
finally
Mail := Unassigned;
end;
finally
OutlookApp := Unassigned;
end;
end;
Lasse ich mir die E-Mail allerdings anzeigen, statt sie direkt zu verschicken (Mail.Display), ist die Signatur vorhanden...
Ich weiß einfach nicht weiter und hoffe ihr könnt mir helfen!
Vielen Dank im Vorraus.
E: Gelöst, lasse mir die Mail vorher doch anzeigen und der Benutzer verschickt die Mail