在VBA中引用Outlook的公用文件夹

下面的VBA代码映射到Outlook中我的收件箱中的“testing”文件夹。 我需要它映射到我的Outlook（公用文件夹> ABC文件夹> 123文件夹> Tat监视器文件夹）中的公用文件夹中的“TAT监视器”文件夹。 我尝试插入“olPublicFoldersAllPublicFolders”来代替“olFolderInbox”，但它不能识别它。

Public Sub GetAttachments() Dim Inbox As MAPIFolder Dim Item As MailItem Dim Atmt As Attachment Dim FileName As String Dim firstDate As Date Dim secondDate As Date Dim i As Integer Set Inbox = GetNamespace("MAPI").GetDefaultFolder(olFolderInbox).Parent.Folders.Item("Test") firstDate = Date - 1 + TimeValue("8:00:00am") secondDate = Date - 1 + TimeValue("8:30:00am") For Each Item In Inbox.Items For Each Atmt In Item.Attachments If Item.SentOn > firstDate And Item.SentOn < secondDate Then FileName = "C:\Users\user1\Desktop\TEST2\" & Atmt & ".xlsx" Atmt.SaveAsFile FileName Else End If Next Next Set Inbox = Nothing End Sub 

Answer 1

请参阅https://msdn.microsoft.com/en-us/library/office/ff867877.aspx

 Set Inbox = GetNamespace("MAPI").GetDefaultFolder(olPublicFoldersAllPublicFolders).Folders.("ABC Folder").Folders.("123 Folder").Folders.("Tat Monitor Folder") 

删除默认的“项目”

 Set Inbox = GetNamespace("MAPI").GetDefaultFolder(olPublicFoldersAllPublicFolders).Folders("ABC Folder").Folders("123 Folder").Folders("Tat Monitor Folder") 

与…一样

 Set Inbox = GetNamespace("MAPI").GetDefaultFolder(olPublicFoldersAllPublicFolders).Folders.Item("ABC Folder").Folders.Item("123 Folder").Folders.Item("Tat Monitor Folder")