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