MAPI Schnittstelle zu Outlook 2016 und höher

[helste]

Hallo,

ich habe Probleme mit einer Verbindung zu Outlook 2016 und höher. Soll angeblich daran liegen, dass Outlook2016 nur noch MAPI/http aber nicht mehr MAPI/RPC unterstützt.
Leider konnte ich keine Dokumentation finden, mit der ich weiter kommen.
Ich brauche eine Möglichkeit Mails über Outlook zu senden und eine Möglichkeit Mails aus einem bestimmten Ordern von Outlook zu übernehmen.

Unten ein Beispiel, wie ich aktuell auf Outlook zugreife um Mails aus einem bestimmten Ordner abzuholen. Das funktioniert bisher wie es soll, aber ab Outlook 2016 nicht mehr.

Was gibt es für Alternativen, bzw. wie kann ich das gleiche für neuere Outlookversionen erreichen? Wäre super, wenn mir jemand weiter helfen könnte.
Ich verwende Delphi 2007 und Delphi XE 10.1 Berlin.

Delphi-Quellcode:

uses
   ......,
   Outlook2000;

procedure mailimport;

var
   inboxfolder,
   importfolder : mapifolder;
   Outlook      : TOutlookapplication;
   items        : _items;

begin
.....

Outlook := TOutlookapplication.create (self);
if assigned (Outlook) then
   begin
   try
      inboxfolder := outlook.getNamespace ('MAPI').GetDefaultFolder (olfolderinbox);
      if assigned (inboxfolder) then
         begin
         i := 1;
         while (i <= inboxfolder.Folders.Count) and not assigned (importfolder) do
            begin
            if uppercase (inboxfolder.Folders.Item(i).Name) = 'IMPORT' then
               importfolder := inboxfolder.Folders.Item(i)
            else
               inc (i);
            end;
         if assigned (importfolder) then
            begin
            items := importfolder.Get_Items;
            i := items.Count;
            while i > 0 do
               begin
               if items.item(i).QueryInterface(_mailitem, opmi) = s_ok then
                  begin
                  mi := items.item(i) as mailitem;

                  mi.Subject,
                  mi.Body, etc. in Datenbank speichern

                  mi.Delete;
                  mi := nil;
                  if items.count < i then
                     i := items.Count;
                  end;
               dec (i);
               end;
            end;
         end;
   except
      end;
   Outlook.free;
   end;
end;

[Sinspin]

Hallo.

Ich verwende aktuell ActiveX/OLE und bin damit ganz zufrieden.
Es geht alles was ich brauche. Mailbody is HTML, eingebettete Bilder sind möglich, etc... auch
Das einzige was an braucht ist Outlook lokal installiert. Die Outlook App reicht.

Delphi-Quellcode:

  Outlook: OLEVariant;
  MailItem: Variant;
  MailInspector : Variant;
  Recipient: Variant;

begin
  try
    Outlook := GetActiveOleObject('Outlook.Application');
  except
    Outlook := CreateOleObject('Outlook.Application');
  end;
  try
    MailItem := Outlook.CreateItem(0);  // 0 = mail folder
....
end;

[helste]

Danke erstmal für die Antwort.
Ich meine mich erinnern zu können, dass ich das auch mal so gemacht habe. Aus einem mir nicht mehr erinnerlichem Grund habe ich das dann auf die aktuelle Art geändert.

Und das funktioniert auch mit Outlook 2016, 2019 und 365?

Ich werde es mal probieren. Lokales Outlook ist da wo ich das brauche eh installiert. Sollte also kein Problem sein,

[Sinspin]

Outlook 2019 habe ich auf meinem Rechner am rennen und mit 365 geht es auch. Das verwenden meine Anwender.

Bei älteren Versionen habe ich auch MAPI bevorzugt. Da war ActiveX ein nicht zu gewinnender Kampf.
MAPI läuft auf Win10 nicht mehr rund. Irgendwie hat die Schnittstelle weniger Funktionen als vorher und MAPI CDO konnte ich nicht installieren.
Ich habe noch POP3/SMTP via Komponente von /NSoftware drinne.

[helste]

Super. Vielen Dank. Ich probiere es mal aus. Bei mir habe ich Outlook 2007 installiert. Damit geht es schon mal. Ältere Versionen hat von meinen Anwendern keiner mehr. Jetzt muss ich es nur noch auf 2016, 2019 und 365 probieren.

Vielen Dank nochmal.

[himitsu]

Wir hatten uns nach ewigem Krampf mit der MAPI eine Konsolenanwendung gebastelt.

C# .NET und mit den Mailschnittstellen der Microsoft.Office.Interop.Outlook.dll darin, die zum Office des selben Herstellers gut funktionieren.


In der Anwendung gibt es dann eine Option, wo zwischen MAPI und dieser ConsolenApp gewählt werden kann.

[Papaschlumpf73]

Bei mir hat ein kleiner Eingriff in die Registry geholfen - siehe angefügten Schnipsel. Da ist Microschrott wohl mit 32 und 64 bit durcheinander geraten.

[helste]

Danke schon mal für die Antworten. Ich bin gerade dabei was auszuprobieren. Funktioniert auch schon teilweise.

Was mir fehlt ist einfach eine Referenz, wo ich die ganzen Variablen finde, die ich abfragen kann.

Strg-Leertaste liefert bei OLEVariant nichts.

Ich habe mir mal was aus Fundstücken im Netz zusammen gebastelt. Ich weiß da wo die ???? sind nicht wie ich zu den entsprechenden Daten komme. Wären auch noch weitere interessand wo replyto, etc.
Wo finde ich eine komplette Aufzählung aller möglichen Daten, die ich aus dem OLEVariant eMail bekomme? Das gleiche interessiert mich auch für die übrigen Variants, wie Inbox und z.B. importfolder.


Bitte fehlende Fehlerbehandlung und Aufräumarbeiten ignorieren. Ist nur quick and dirty, um die Funktionsweise zu testen.

Delphi-Quellcode:

function getEmails(var Subject, Sender, Adress, CC, BB, Body, Attachment : string):boolean;

var
   oleOutlook   : OLEVariant;
   oleNameSpace : OLEVariant;
   importfolder : OLEVariant;
   Inbox        : OLEVariant;
   eMail        : OLEVariant;
   i            : integer;
   ok           : boolean;

begin
Result := False;
CoInitialize(NIL);
try
   oleOutlook := GetActiveOleObject('Outlook.Application');
except
   oleOutlook := CreateOleObject('Outlook.Application');
   end;
try
   oleNameSpace := oleOutlook.GetNameSpace('MAPI');
   ok := false;
   Inbox := oleNameSpace.GetDefaultFolder(olFolderInbox);
   i := 0;
   while i < Inbox.Folders.Count do
      begin
      if uppercase (Inbox.Folders[i+1].Name) = 'IMPORT' then
         begin
         importfolder := Inbox.Folders[i+1];
         ok := true;
         i := Inbox.Folders.Count;
         end;
      end;
   if ok and (importfolder.Items.Count > 0) then
      begin
      email := importfolder.Items (1);
      Subject := eMail.Subject;
//      Sender := eMail.from;   ?????     Wie kriege ich den Absender
      Adress := eMail.to;
      cc := eMail.cc;
      bb := eMail.bcc;
      body := eMail.body;
//      Attachment := eMail.Attachments.text;  ?????   Wie kriege ich eine Liste der Anhänge
      Result := TRUE;
      email.delete;
      end;
except
   end;
oleOutlook  := NULL;
end;

[himitsu]

Zitat von helste:

Strg-Leertaste liefert bei OLEVariant nichts.

Das kann auch nicht gehen, da diese Infos erst zur Laufzeit bekannt sind.

Zitat von helste:

Was mir fehlt ist einfach eine Referenz, wo ich die ganzen Variablen finde, die ich abfragen kann.

Beim Hersteller nachsehn?
https://docs.microsoft.com/de-de/off...ok.application

[helste]

Super. Vielen Dank. Das habe ich gesucht. Werde mich da mal durchkämpfen.