如何在Outlook中為所有未答复的電子郵件創建搜索文件夾?
如果要在Outlook中檢查未答复的電子郵件,則要一一搜索它們將花費很多時間。 在本文中,我將討論為所有未回复的郵件創建搜索文件夾。
使用VBA代碼為Outlook中所有未回复的電子郵件創建搜索文件夾
使用VBA代碼為Outlook中所有未回复的電子郵件創建搜索文件夾
以下VBA代碼可以幫助您創建一個搜索文件夾,該文件夾將放置所有未回复的電子郵件,請按以下步驟操作:
1。 按住 ALT + F11 鍵打開 Microsoft Visual Basic for Applications 窗口。
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中做得更聰明,更快和更好。

