Hallo! Also mit den oldfolder Elementen greifst du auf die Standartordner zu.Du müsstest den eigenen Ordner dort nehmen. Könnte Postausgang heißen (meist so), ist aber unklar. Am besten mal Stück für Stück rantasten und vom Postfach nach unten durchtesten, wie die Folders heißen. Schau dazu mal hier
http://www.office-loesung.de/ftopic285341_0_0_asc.php
Set olApp = CreateObject("outlook.application")
With olApp.GetNameSpace("MAPI")
For i = 1 To .Folders.Count
msgbox .Folders(i).Name
Next
End With
So sollten die erstmal die Postfächer angezeigt werden. Wenn du das richtige hast, den Namen merken und dann ggf. so
Set olApp = CreateObject("outlook.application")
With olApp.GetNameSpace("MAPI").folders(POSTFACHNAME)
For i = 1 To .Folders.Count
msgbox .Folders(i).Name
Next
End With
Die Unterordner anzeige. Unterordner sind dabei Posteingang, Postausgang, Papierkor etc. Dort wieder schauen,wie es genau heißt. Habe hier kein OL, kann es deshalb nicht testen.
VG
|