Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Win32/Win64 API (native code) (https://www.delphipraxis.net/17-win32-win64-api-native-code/)
-   -   Delphi Öffentliche Ordner per OLE ansteuern (https://www.delphipraxis.net/96480-oeffentliche-ordner-per-ole-ansteuern.html)

simlei 25. Jul 2007 09:13


Öffentliche Ordner per OLE ansteuern
 
Ich will kleines Programm schreiben, das mir helfen soll, in meinem Ferienjob das Auswerten der E-Mails zu beschleunigen. Was funktioniert: Zugriff auf alle E-Mails per OLE auf die rot markierten Ordner im Bild. ich kann durch die Ordner wechseln und alle E-Mails betrachten (und somit später auch auswerten, das dient hier erst einmal als Test). Es fehlt nur noch eine Kleinigkeit; ich schaffe es einfach nicht in den Ordner "Öffentliche Ordner" (markiert) zu kommen - bei anderen Accounts könnte es aber auch "Private Ordner" o.ä. sein, ich glaube sogar, dass man dort auch eigene Ordner erstellen kann.

Bis jetzt findet der Wechsel in höhere/niedrigere Ordnerebenen mit Folder := (Folder.Parent as MAPIFolder); soder Folder := Folder.Folders.Item(); tatt - funktioniert gut.
Mit "Folder := NmSpace.GetDefaultFolder(olFolderInbox);" kann ich in bestimmte Ordner wechseln, hier "Inbox", und mit anderen Konstanten auch in "Deleted Items", "Outbox" und "Sent Mails", jedoch nicht (und das ist mir wichtig) in andere, zum Beispiel eben Öffentliche Ordner.
Eine andere Variante scheint es zu sein, zum Beispiel aus dem Ordner "Mail" (grün markiert) (in den ich noch gelangen kann durch Eine Verzeichnisebene hochgehen aus Inbox, Outbox usw), eine Verzeichnuisebene hochzugehen, hier könnte ich dann in öffentliche Ordner wechseln.. leider klappt dies nicht in der Praxis, hier bekomme ich "Unsupportet Interface".

Die Frage ist klar - wie komme ich an die "Öffentlichen Ordner" ?

http://img185.imageshack.us/img185/6...benanntja7.png


Alle Zeitangaben in WEZ +1. Es ist jetzt 12:10 Uhr.

Powered by vBulletin® Copyright ©2000 - 2022, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2021 by Daniel R. Wolf