从 Excel 宏打开特定 Outlook 文件夹

Question

I have a macro in Excel, which allows me to select the outlook folder inbox of my main inbox. However I would like to modify it in order to be able to select any specific folder (or subfolder) in my inbox. For example, I would like to modify my macro in order that when I run it, it selects the subfolder “ALD” on screenshot enclosed. If someone know how to do it, that would be great!

Moreover, I have also another email in my outlook constituted with a lot of folders and subfolders (the one on the screenshot enclosed corresponds to my main email, this other email does not appear on the screenshot enclosed), I would like to be able to modify my macro in order to select any specific folder or subfolder of this other mail. Let´s say for example I have another email in my outlook called xxxx@yyyy.com and a folder called “aaaa” and inside a subfolder called “bbbb”, how should I modify my macro in order that when running it, it selects me the subfolder “bbbb”? Please find the code of my macro below. Thanks in advance.

Sub OpenOutlookFolder()
Dim xOutlookApp As Outlook.Application
Dim xNameSpace As Outlook.Namespace
Dim xFolder As Outlook.Folder
Dim xFolderType As OlDefaultFolders
On Error Resume Next

Set xOutlookApp = New Outlook.Application
Set xNameSpace = xOutlookApp.Session
Set xFolder = xNameSpace.GetDefaultFolder(olFolderInbox
xFolder.Display
Set xFolder = Nothing
Set xNameSpace = Nothing
Set xOutlookApp = Nothing
Exit Sub
End Sub

Answer 1

Something along the lines of:

Dim ThisNamespace As Outlook.NameSpace: Set ThisNamespace = Application.GetNamespace("MAPI")
Dim Inbox As Outlook.MAPIFolder: Set Inbox = ThisNamespace.GetDefaultFolder(olFolderInbox)

Dim BaseFolder As Outlook.MAPIFolder: Set BaseFolder = Inbox '.Folders("SubFolder1\SubFolder2...")

For direct subfolder access, uncomment within the last line and update the path

If you want to create a folder structure which is searchable/editable then my answer in this question may be of interest: How can one iterate through the subfolders of a subfolder of a shared mail inbox folder?

Answer 2

Finally by checking again the link Get reference to additional Inbox, I managed to modify my macro in order it works and does as I want. Please find the code below:

Sub OpenOutlookFolderworks()

Dim xOutlookApp As Outlook.Application

Dim xNameSpace As Outlook.Namespace
Dim xFolder As Outlook.Folder
 Dim vRecipient As Outlook.MAPIFolder
 Dim xFolderType As OlDefaultFolders
On Error Resume Next
Set xOutlookApp = New Outlook.Application
Set xNameSpace = xOutlookApp.Session
Set xFolder = xNameSpace.GetDefaultFolder(olFolderInbox)
Set xFolder = xFolder.Folders("payment office")
Set xFolder = xFolder.Folders("JIRA")
xFolder.display
Set xFolder = Nothing
Set xNameSpace = Nothing
Exit Sub
End Sub