如何在Outlook中为所有未答复的电子邮件创建搜索文件夹?
如果要在Outlook中检查未答复的电子邮件,则要一一搜索它们将花费很多时间。 在本文中,我将讨论为所有未回复的邮件创建搜索文件夹。
使用VBA代码为Outlook中所有未回复的电子邮件创建搜索文件夹
使用VBA代码为Outlook中所有未回复的电子邮件创建搜索文件夹
以下VBA代码可以帮助您创建一个搜索文件夹,该文件夹将放置所有未回复的电子邮件,请按以下步骤操作:
1。 按住 ALT + F11 键打开 Microsoft Visual Basic应用程序 窗口。
2。 点击 插页 > 模块,然后将以下宏粘贴到 模块 窗口。
VBA代码:为未回复的电子邮件创建搜索文件夹:
Sub CreateSearchFolder_AllNotRepliedEmails()
Dim xSearch As Outlook.Search
Dim xScope As String, xFilter As String
Dim xRepliedProperty As String
Dim xFolder As Folder, xSubFolder As Folder
On Error Resume Next
xScope = ""
For Each xFolder In Outlook.Application.Session.Folders
Set xSubFolder = xFolder.Folders("Inbox")
xScope = "'" + xSubFolder.FolderPath + "'"
xRepliedProperty = "http://schemas.microsoft.com/mapi/proptag/0x10810003"
xFilter = Chr(34) & xRepliedProperty & Chr(34) & " <> 102" & "AND" & Chr(34) & xRepliedProperty & Chr(34) & " <> 103"
Set xSearch = Outlook.Application.AdvancedSearch(Scope:=xScope, Filter:=xFilter, SearchSubFolders:=True, Tag:="SearchFolder")
xSearch.Save("Not Replied Emails").ShowItemCount = olShowTotalItemCount
Set xSearch = Nothing
Set xSubFolder = Nothing
Next
MsgBox "Search folder is created successfully!", vbInformation + vbOKOnly, "Kutools for Outlook"
End Sub
3。 然后按 F5 键运行此代码,并弹出一个提示框,如以下屏幕截图所示:
4。 点击 OK 按钮,现在,您将获得一个 未回复的电子邮件 文件夹下 搜索文件夹 为Outlook中的每个帐户提供的信息,所有未回复的电子邮件都显示在此处,请参见屏幕截图:
Kutools for Outlook-为Outlook带来100个高级功能,并使工作更加轻松!
- 自动CC / BCC 根据规则发送电子邮件; 自动转发 自定义多封电子邮件; 自动回复 没有交换服务器,还有更多自动功能...
- BCC警告 -当您尝试全部答复时显示消息 如果您的邮件地址在“密件抄送”列表中; 缺少附件时提醒,还有更多提醒功能...
- 在邮件对话中回复(全部)带有所有附件; 回复许多电子邮件 很快; 自动添加问候语 回复时将日期添加到主题中...
- 附件工具:管理所有邮件中的所有附件, 自动分离, 全部压缩,全部重命名,全部保存...快速报告, 计算选定的邮件...
- 强大的垃圾邮件 习俗 删除重复的邮件和联系人... 使您能够在Outlook中做得更聪明,更快和更好。

