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