'ich suche nach dem Ordner "Projekte"
For Each myFolder In myNameSpace.Folders
    If myFolder = "Persönliche Ordner" Then
     For Each f In myFolder.Folders
      If f = "Projekte" Then
        f.Display
      End If
     Next
    End If
Next

Sub neu()
 
 
Dim myOlApp As Application
Dim myNameSpace As NameSpace
 
Dim myFolder As MAPIFolder
Dim f As MAPIFolder
 
Set myOlApp = CreateObject("Outlook.Application")
Set myNameSpace = myOlApp.GetNamespace("MAPI")
 
For Each myFolder In myNameSpace.Folders
    If myFolder = "Persönliche Ordner" Then
     For Each f In myFolder.Folders
      If f = "Projekte" Then
        f.Display
      End If
     Next
    End If
Next
 
End Sub