按名称引用文件夹

Question

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

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

Answer 1

收件箱下面说的是一个文件夹命名为客户端和下，这是一个名为维杰Baswal

设置objFolder = objNS.GetDefaultFolder（olFolderInbox）.Folders（ “客户”）。文件夹（“维杰 - 文件夹Baswal“）

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

收件箱是olFolderInbox或6.将出现没有37.

Answer 2

见下面的VBA代码段检查如何从特定的文件夹读取邮件

Dim olApp As Outlook.Application 
Dim olNs As Outlook.NameSpace 
Dim olFldr As Outlook.MAPIFolder 
Dim olItms As Outlook.Items 
Dim olMail As Variant 
Dim outFolder As Outlook.Folder 

Dim olItem As Outlook.MailItem 


Dim i As Long 

Set olApp = New Outlook.Application 
Set olNs = olApp.GetNamespace("MAPI") 
Set olFldr = olNs.Folders("folder1").Folders("fol2") 
Set olItms = olFldr.Items 


olItms.Sort "Subject" 

i = 1 

For Each olItem In olItms 
    'If InStr(olMail.Subject, "Criteria") > 0 Then 

     Dim szVar As String 
     szVar = olItem.Body 
     szVar1 = olItem.Subject 
     i = i + 1 
    'End If 
Next olItem 

Set olFldr = Nothing 
Set olNs = Nothing 
Set olApp = Nothing