EMail in Outlook Postausgang stellen

[Markus70]

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