MAPI Schnittstelle zu Outlook 2016 und höher

[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.

[BerndS]

Eine weiter Möglichkeit wär die Unit C:\Program Files (x86)\CodeGear\RAD Studio\5.0\OCX\Servers\OfficeXP.pas einzubinden und TOutlookApplication zu verwenden.
Ich benutze die Version von 10.4 und Office2016 und die Strg-Leertaste funktioniert hier.

[Sinspin]

Zitat von helste:

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

Strg-Leertaste liefert bei OLEVariant nichts.

Mein Outlookmodul basiert auf diesem Blogpost.
how to send email in delphi

Die MS Hilfe hat dann geholfen um den ganzen rest rauszufinden.

[helste]

Zitat von Sinspin:

Mein Outlookmodul basiert auf diesem Blogpost.
how to send email in delphi

Die MS Hilfe hat dann geholfen um den ganzen rest rauszufinden.

Ja, die MS Hilfe habe ich jetzt die letzten Tage auch genutzt. Da steht im Prinzip alles drinnen.

Das hat mir sehr geholfen.

[helste]

Kurzes feedback.

Dank eurer Hilfe konnte ich nun alles so erledigen, wie ich es mir vorstelle.

Eine kleine Hürde musste ich noch überwinden und für den Fall, dass auch mal jemand in die Problematik kommt, hier eine kurze Erklärung dazu.

Ich habe meine Importfunktion nun so erweitert, dass ich sämtliche Konten, die in Outlook angelegt sind, durch gehe und in die Posteingangsordner aller dieser Konten schaue, ob es da einen Unterordner mit einem bestimmten Namen gibt. Gibt es diesen, dann importiere ich alle Emails die darin enthalten sind.
Als ich das hatte, kam beim Import plötzlich eine Fehlermeldung, dass es in dem OLEObjekt keine Eigenschaft CC und BCC gibt.
Nach mühsamer Testerei bin ich dann dahinter gekommen, dass es bei Mails, die ich aus einem IMAP Konto hole, tatsächlich kein CC und BCC gibt.
Warum das so ist, erschließt sich mir nicht ganz, aber ich habe das pragmatisch gelöst, indem ich nur Mails aus POP3 und Exchange Konten importiere. Alles andere wird ignoriert.

if not VarIsNull (Account) and ((Account.AccountType = 0) or (Account.AccountType =2)) then // olExchange, olPop3 So funktionert es nun einwandfrei und mit der Einschränkung kann ich leben.

Eventuell hat ja wer einen Hinweis für mich, der erklärt warum es in IMAP Konten bei einem Mail-Objekt kein CC und BCC gibt.