从 Excel 宏打开特定 Outlook 文件夹

Question

我在 Excel 中有一个宏，它允许我在我的主收件箱的 outlook 文件夹收件箱中访问 select。 但是我想修改它，以便能够 select 在我的收件箱中的任何特定文件夹（或子文件夹）。 例如，我想修改我的宏，以便当我运行它时，它会在随附的屏幕截图中选择子文件夹“ALD”。 如果有人知道该怎么做，那就太好了！

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修改我的宏以 select 此其他邮件的任何特定文件夹或子文件夹。 假设我在我的 outlook 中有另一个 email，名为 xxxx@yyyy.com 和一个名为“aaaaa”的文件夹，我应该在子文件夹中修改我的宏我的子文件夹“bbbb”？ 请在下面找到我的宏的代码。 提前致谢。

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

类似于以下内容：

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...")

对于直接子文件夹访问，取消最后一行中的注释并更新路径

如果您想创建一个可搜索/可编辑的文件夹结构，那么我对这个问题的回答可能会很有趣： 如何遍历共享邮件收件箱文件夹的子文件夹的子文件夹？

Answer 2

最后，通过再次检查链接获取对附加收件箱的引用，我设法修改了我的宏，以便它按我的意愿工作和执行。 请在下面找到代码：

Sub OpenOutlookFolderworks()

将 xOutlookApp 调暗为 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