Jump to userdefined folder in Outlook 2019

[Witzker]

Hi

by clicking the macro the Ol folder should be opened.
I can do this and jump to Inbox

Sub ChangeViewtoFolderPosteingang()
    Dim ns As Outlook.NameSpace
    Set ns = Application.GetNamespace("MAPI")
    Dim Exp As Outlook.Explorer
    Set Exp = Application.ActiveExplorer
    Dim myInbox As Folder
    Set myInbox = ns.GetDefaultFolder(olFolderInbox)
    Dim folder1 As Folder
    Set folder1 = myInbox
    Set Exp.CurrentFolder = folder1
End Sub

WORX!

And jump to subfolder of Inbox:

Sub ChangeViewtoFolderFAX()
    Dim ns As Outlook.NameSpace
    Set ns = Application.GetNamespace("MAPI")
    Dim Exp As Outlook.Explorer
    Set Exp = Application.ActiveExplorer
    Dim myInbox As Folder
    Set myInbox = ns.GetDefaultFolder(olFolderInbox)
    Dim folder1 As Folder
    Set folder1 = myInbox.Folders.Item("FAX")
    Set Exp.CurrentFolder = folder1
End Sub

WORX too!

But How to jump to user defined Folder # Datenbank?

The folder # Datenbank is in the main Tree!

Hope for help