Outlook VBA 2013 访问父文件夹

Question

好的，我正在阅读有关如何访问收件箱之外的父文件夹的教程，并注意到它使用的是 "Set"。据我所知，这个命令已被弃用，而且每当我尝试在我的代码中使用它时似乎也是如此。

http://blogs.technet.com/b/heyscriptingguy/archive/2006/08/03/how-can-i-get-access-to-a-mail-folder-that-isn-t-a-subfolder-of-my-outlook-inbox.aspx

    ' Set Outlook parameters
    objOutlook = CreateObject("Outlook.Application")
    iNameSpace = myOlApp.GetNamespace("MAPI")                       ' Set current NameSpace
    Dim oExp As Outlook.Explorer
    Dim oSel As Outlook.Selection
    oExp = objOutlook.ActiveExplorer
    oSel = oExp.Selection
    Dim strFolderName As Object
    Dim objInbox As Outlook.Folder
    Dim objMailbox As Outlook.Folder
    Dim objFolder As Outlook.Folder


    Const olFolderInbox = 6
    objInbox = iNameSpace.GetDefaultFolder(olFolderInbox)
    strFolderName = objInbox.Folders.Parent()
    objMailbox = iNameSpace.Folders(strFolderName)
    objFolder = objMailbox.Folders("Europe")

尝试上面的代码时，出现类型错误：附加信息：类型不匹配，在这一行：

    objMailbox = iNameSpace.Folders(strFolderName)

当我将其更改为 "Object" 时，我得到了同样的错误。

知道我做错了什么吗？

Answer 1

以下代码将不起作用。

 strFolderName = objInbox.Folders.Parent()

Folders 集合不提供 Parent 方法。

 objMailbox = iNameSpace.Folders(strFolderName)

Folders 属性不接受对象参数。

Answer 2

要访问收件箱文件夹的父文件夹，请尝试 iNameSpace.GetDefaultFolder(olFolderInbox).Parent

要访问与收件箱同级的文件夹，请尝试iNameSpace.GetDefaultFolder(olFolderInbox).Parent.Folders.Item("The Folder name")

Outlook VBA 2013 访问父文件夹

Outlook VBA 2013 Access Parent Folders

outlook

vba