扫描电子邮件的非默认Outlook收件箱？

我正在使用以下vba代码，检查具有特定主题标题的任何电子邮件。

问题是它检查我的默认outlook收件箱文件夹，当我需要它来检查我的其他电子邮件帐户的收件箱[e-mail]

有人可以告诉我如何做到这一点？ 提前致谢

Sub Macro1() Set olApp = CreateObject("Outlook.Application") Dim olNs As Outlook.Namespace Dim Fldr As Outlook.MAPIFolder Dim myItem As Outlook.MailItem Dim myAttachment As Outlook.Attachment Dim I As Long Dim olMail As Variant Set olApp = New Outlook.Application Set olNs = olApp.GetNamespace("MAPI") Set Fldr = olNs.GetDefaultFolder(olFolderInbox) Set myTasks = Fldr.Items Set olMail = myTasks.Find("[Subject] = ""New Supplier Request: Ticket""") If Not (olMail Is Nothing) Then For Each myItem In myTasks If myItem.Attachments.Count <> 0 Then For Each myAttachment In myItem.Attachments If InStr(myAttachment.DisplayName, ".txt") Then I = I + 1 myAttachment.SaveAsFile "\\uksh000-file06\Purchasing\NS\Unactioned\" & myAttachment End If Next End If Next For Each myItem In myTasks myItem.Delete Next Call Macro2 Else MsgBox "There Are No New Supplier Requests." End If End Sub 

outlook文件夹结构：

 [e-mail] Inbox Drafts Sent [e-mail] Inbox Drafts Sent 

Answer 1

假设您需要的文件夹在文件夹层次结构中处于同一级别，则需要使用以下内容

 Set Items = Session.GetDefaultFolder(olFolderCalendar).Parent.Folders("YouFolderName").Items 

在这里看到更多的细节… http://www.slipstick.com/developer/working-vba-nondefault-outlook-folders/

---

你有没有尝试从以上链接中的以下function…

 Function GetFolderPath(ByVal FolderPath As String) As Outlook.Folder Dim oFolder As Outlook.Folder Dim FoldersArray As Variant Dim i As Integer On Error GoTo GetFolderPath_Error If Left(FolderPath, 2) = "\\" Then FolderPath = Right(FolderPath, Len(FolderPath) - 2) End If 'Convert folderpath to array FoldersArray = Split(FolderPath, "\") Set oFolder = Application.Session.Folders.item(FoldersArray(0)) If Not oFolder Is Nothing Then For i = 1 To UBound(FoldersArray, 1) Dim SubFolders As Outlook.Folders Set SubFolders = oFolder.Folders Set oFolder = SubFolders.item(FoldersArray(i)) If oFolder Is Nothing Then Set GetFolderPath = Nothing End If Next End If 'Return the oFolder Set GetFolderPath = oFolder Exit Function GetFolderPath_Error: Set GetFolderPath = Nothing Exit Function End Function 

您可能首先需要使用此技术来查找实际的文件夹名称… https://msdn.microsoft.com/en-us/library/office/ff184607.aspx

---

在下面的图片中，“草稿箱”，“客户端”，“发件箱”文件夹都处于同一级别（它们共享相同的父文件夹james @ … com），但ChildFolder文件夹不是（它的父级是草稿箱）。

Answer 2

您应该能够将第二个邮箱的名称指定为文件夹。

 Set Fldr = olNs.Folders("My 2nd mailbox").Folders("Sub Folder") 

如果您需要第二个帐户的主收件箱，则将其指定为该帐户的子文件夹。

 Set Fldr = olNs.Folders("My 2nd Inbox").Folders("Inbox") 

请注意，这是您使用的邮箱的名称，而不是电子邮件地址。 让我知道你是怎么办的。