Outlook VBA - 如何为收件箱和子文件夹运行脚本[重复]答案

【问题标题】：Outlook VBA - How to run a script for Inbox and subfolders [duplicate]Outlook VBA - 如何为收件箱和子文件夹运行脚本[重复]
【发布时间】：2020-05-16 03:01:02
【问题描述】：

如何让宏在收件箱和任何子文件夹上运行？

这仅适用于根文件夹

Set xInboxFld = Outlook.Application.Session.GetDefaultFolder(olFolderInbox)

【问题讨论】：

For Each Folder in xInboxFld
这能回答你的问题吗？ Excel vba: Looping through all subfolders in Outlook email to find an email with certain subject
这就是我解决问题的方法：Set xInboxFld = Outlook.Application.Session.GetDefaultFolder(olFolderInbox) Set xCurrentFld = Outlook.Application.ActiveExplorer.CurrentFolder If xCurrentFld.Parent = xInboxFld Then Set xInboxFld = xCurrentFld End If

标签： vba outlook

【解决方案1】：

dim subFolder 
for each subFolder in xInboxFld.Folders
  MsgBox subFolder.Name
next

【讨论】：