按名称引用文件夹 [英] Reference a folder by name

问题描述

我需要按名称获取文件夹，而不是按文件夹数量计数.我尝试了各种方法.

I need to get a folder by name, not by folder number counts. I tried getting with various methods.

Dim olApp As Outlook.Application
Dim objNS As Outlook.NameSpace
'Dim OlFolder As Outlook.MAPIFolder
Dim objFolder As Outlook.Folder
Dim myolItems As Outlook.Items
Set olApp = Outlook.Application
Set objNS = olApp.GetNamespace("MAPI")
'Set myOlItems = objNS.GetDefaultFolder(37).Folders("Vijay Baswal").Items
'Open the folder
Set objFolder = olApp.Session.GetDefaultFolder("Vijay Baswal")

推荐答案

假设在收件箱下有一个名为 Clients 的文件夹，在该文件夹下有一个名为 Vijay Baswal 的文件夹

Say under the Inbox was a folder named Clients and under that was a folder named Vijay Baswal

设置 objFolder = objNS.GetDefaultFolder(olFolderInbox).Folders("Clients").Folders("Vijay Baswal")

Set objFolder = objNS.GetDefaultFolder(olFolderInbox).Folders("Clients").Folders("Vijay Baswal")

OlDefaultFolders 枚举 http://msdn.microsoft.com/en-us/library/office/bb208072(v=office.12).aspx

OlDefaultFolders Enumeration http://msdn.microsoft.com/en-us/library/office/bb208072(v=office.12).aspx

收件箱是 olFolderInbox 或 6.似乎没有 37.

The Inbox is olFolderInbox or 6. Appears there is no 37.

这篇关于按名称引用文件夹的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！