Select Outlook Folder via COM

[ShubhamM]

Good Day,

I am trying to open an Outlook folder based on a user input. I have the following code, which does display the folder but opens it in a new window. How do I adjust this such that a new window is not opened and just active explorer/selection changes to the folder I wish to have displayed?

Code: Select all

User_Input := "Client Projects"

Outlook_App := ComObjActive("Outlook.Application")
Namespace := Outlook_App.GetNamespace("MAPI")
Inbox_Folder := Namespace.GetDefaultFolder(6)

Folder_To_Open := Inbox_Folder.Folders(User_Input)
Folder_To_Open.Display
Return

Thanks for any help you are able to provide! Have a great day!

[bjagasia]

I'd love to know how to do this too!

[ronstudy1]

change "inboxSubFolderName" to some folder name under Inbox

Code: Select all

olApp := ComObjActive("Outlook.Application")
Explorer := olApp.ActiveExplorer()

Folder := olApp.Session.GetDefaultFolder(6).Folders("inboxSubFolderName")
Explorer.SelectFolder(Folder)