如何按名称引用文件夹

Question

当我尝试打开一个非默认邮件文件夹时，我得到了

编译错误：类型不匹配

它发生在Set oMailBox。

Sub openSxxInbox()
Dim oOutlook As Outlook.Application
Dim oFolder As Outlook.Folder
Dim oMailBox As Outlook.Folder
Dim oFldr As Outlook.Folder
Set oOutlook = CreateObject("Outlook.Application")
Set oNS = oOutlook.GetNamespace("MAPI")
Set oMailBox = "Sxx"
Set oFldr = "Inbox"
oNS.Logon 'does not do anything if Outlook is already running
Set oFolder = oNS.Folders(oMailBox).Folders(oFldr)
If (oOutlook.ActiveExplorer Is Nothing) Then
oFolder.Display
Else
Set oOutlook.ActiveExplorer = oFolder
End If
End Sub

Answer 1

在代码中，您可以找到以下行：

Dim oMailBox As Outlook.Folder

然后您尝试分配一个不正确的字符串值：

Set oMailBox = "Sxx"
Set oFldr = "Inbox"

文件夹对象和字符串之间没有直接转换。您可以使用命名空间。GetDefaultFolder方法，返回一个Folder对象，该对象表示当前配置文件所请求类型的默认文件夹；例如，获取当前登录用户的默认收件箱文件夹。

注意，您可能会找到商店。GetDefaultFolder方法很有用，它返回一个Folder对象，该对象表示存储中的默认文件夹，并且属于FolderType参数指定的类型。此方法类似于NameSpace对象的GetDefaultFolder方法。不同之处在于，此方法获取与帐户关联的配送商店上的默认文件夹，而NameSpace.GetDefaultFolder返回当前配置文件的默认商店上的缺省文件夹。

您还可以在代码中将对象定义为字符串：

Sub openSxxInbox()
Dim oOutlook As Outlook.Application
Dim oFolder As Outlook.Folder
Dim oMailBox As string
Dim oFldr As string
Set oOutlook = CreateObject("Outlook.Application")
Set oNS = oOutlook.GetNamespace("MAPI")
oMailBox = "Sxx"
oFldr = "Inbox"
oNS.Logon 'does not do anything if Outlook is already running
Set oFolder = oNS.Folders(oMailBox).Folders(oFldr)
If (oOutlook.ActiveExplorer Is Nothing) Then
oFolder.Display
Else
Set oOutlook.ActiveExplorer = oFolder
End If
End Sub