VBA Excel - 在 Outlook 中打开特定文件夹或子文件夹

Question

我正在尝试从 Excel 中的 VBA 宏打开 Outlook。我能够打开它，但如何使它进入特定文件夹？比如说“已发送邮件”、“草稿文件夹”等。另外，在另一个邮箱中选择一个文件夹怎么样？我的 Outlook 中有两个邮箱。

这是我目前的代码：

Sub my_prov_openOutlook()

Dim oOutlook As Object

On Error Resume Next
Set oOutlook = GetObject(, "Outlook.Application")
On Error GoTo 0

If oOutlook Is Nothing Then
    Shell ("OUTLOOK")
    '''I would like to open a specific folder under the inbox or under a subfolder
Else
    oOutlook.ActiveWindow.Activate
    '''I would like to open a specific folder under the inbox or under a subfolder
End If

Answer 1

不要在 Outlook 中使用 GetObject - 使用 CreateObject。 Outlook 是一个单例：如果它已经在运行，您将获得一个指向现有实例的指针。如果它没有运行，它将启动。 也不要使用On Error Resume Next - 你不会知道你是否收到错误以及它发生在哪里。

Set oOutlook = CreateObject("Outlook.Application")
set oNS = oOutlook.GetNamespace("MAPI")
oNS.Logon 'does not do anything if Outlook is already running
set oFolder = oNS.GetDefaultFolder(6) 'olFolderInbox
if (oOutlook.ActiveExplorer Is Nothing) Then
  oFolder.Display
Else
  set oOutlook.ActiveExplorer = oFolder
End If