Moin.
ich möchte gerne eine Mail aus Delphi heraus in den Postausgang von Outlook stellen.
Ich hoffe, damit um die nervigen Sicherheitsabfragen beim direkten Versenden herumzukommen.
Zum direkten Versenden verwende ich folgenden Code:
Delphi-Quellcode:
function TDlgEMailForm.SendOutlookEMailDirect(empfaenger, betreff, HTMLText : string): boolean;
var i:integer;
Outlook, NmSpace, Folder: OleVariant;
miMail: Variant;
begin
Outlook := CreateOleObject('Outlook.Application');
miMail := Outlook.CreateItem(olMailItem);
miMail.Recipients.Add(empfaenger);
miMail.Subject := EdSubject.Text;
miMail.HTMLBody := HTMLText;
for i := 0 to lvFiles.Items.Count - 1 do
miMail.Attachments.Add(lvFiles.Items[i].Caption,EmptyParam,EmptyParam,EmptyParam);
try
// miMail.Save; // --Ablage in Entwürfe
miMail.Send;
result := true;
except
result := false;
end;
end;
Ich hätte es versucht mit
miMail.Move(NmSpace.GetDefaultFolder(olFolderOutbox))
aber dann bekomme ich als Fehler "Undeklarierter Bezeichner:'olfolderOutbox'" zurück.
Was fehlt mir hier?
Welche Möglichkeiten gibt denn überhaupt Mails ohne Sicherheitsabfrage über Outlook zu versenden?
Danke und Gruß
Markus