Upang mas madaling suriin ang mga hindi nasagot na email sa iyong Outlook, maaari kang lumikha ng folder ng paghahanap para sa mga naturang email. Ngayon, ipapakilala sa iyo ng artikulong ito kung paano ito makukuha sa Outlook VBA.
Sa nakaraang artikulong “Paano I-auto I-highlight ang Mga Mahahalagang Email na Hindi Mo Nasagot sa Outlook”, maaari kang matuto ng paraan upang ipakita ang mahahalagang email na hindi mo pa sinasagot sa isang partikular na kulay. Ngunit, maaari mong maramdaman na mahirap pa rin ito dahil kailangan mong tingnan ang lahat ng mga folder ng mail nang paisa-isa. Samakatuwid, gusto mong direktang kolektahin ang lahat ng naturang email sa isang folder ng paghahanap. Ngayon, sa mga sumusunod, ituturo namin sa iyo na gumamit ng VBA upang mabilis na makagawa ng naturang folder ng paghahanap.
Gumawa ng Folder ng Paghahanap para sa Lahat ng Hindi Nasagot na Email
- Sa pinakasimula, simulan ang application ng Outlook.
- Pagkatapos, pindutin ang "Alt + F11" key upang ma-access ang VBA editor.
- Susunod, kopyahin ang sumusunod na VBA code sa isang module na hindi ginagamit.
Sub CreateSearchFolder_AllNotRepliedEmails()
Dim strScope As String
Dim strRepliedProperty As String
Dim strFilter As String
Dim objSearch As Outlook.Search
'Specify the folders to be searched
'Here we use Inbox folder for an example
strScope = "'" & Application.Session.GetDefaultFolder(olFolderInbox).FolderPath & "'"
'Search filter
strRepliedProperty = "http://schemas.microsoft.com/mapi/proptag/0x10810003"
strFilter = Chr(34) & strRepliedProperty & Chr(34) & " <> 102" & "AND" & Chr(34) & strRepliedProperty & Chr(34) & " <> 103"
Set objSearch = Outlook.Application.AdvancedSearch(Scope:=strScope, Filter:=strFilter, SearchSubFolders:=True, Tag:="SearchFolder")
'Save the search folder
objSearch.Save ("Not Replied Emails")
MsgBox "Search folder is created successfully!", vbInformation + vbOKOnly, "Search Folder"
End Sub
- Pagkatapos, ilagay ang cursor sa subroutine na ito.
- Pagkatapos nito, i-click ang "F5" key button para ma-trigger ang macro na ito.
- Kapag natapos na ang macro, magpapakita ang isang mensahe, tulad ng sumusunod na figure.
- Sa wakas, makakakita ka ng bagong folder ng paghahanap na tinatawag na "Not Replied Emails", na naglalaman ng lahat ng hindi nasagot na email sa Inbox.
Baguhin ang Saklaw ng Paghahanap ng Folder ng Paghahanap
Sa aking VBA code, hinahanap lamang ng folder ng paghahanap na ito ang default na folder ng Inbox. Kung gusto mong baguhin ang saklaw ng paghahanap, maaari mong sundin ang mga hakbang sa ibaba.
- Una, i-right click ang folder ng paghahanap.
- Pagkatapos, piliin ang "I-customize ang Folder ng Paghahanap na Ito" mula sa menu ng konteksto.
- Susunod, sa popup na "Custom Search Folder" na dialog, i-click ang "Browse" na button.
- Sa ibang pagkakataon, lalabas ang isang bagong dialog box ng "Piliin ang (Mga) Folder". Sa loob nito, maaari mong piliin ang mga folder na hahanapin para sa mga email na hindi mo pa nasagot.
- Sa wakas, pagkatapos pumili, maaari mo lamang i-click ang ilang "OK" upang ilapat ang mga pagbabago.
Tanggalin ang Madalas na Mga Error sa Outlook
Karaniwang makatanggap ng mga mensahe ng error sa iyong Outlook, tulad ng mga error na nauugnay sa pagpapadala/pagtanggap ng mga pagkabigo, mga error na kinasasangkutan ng hindi naa-access na Outlook PST file at iba pa. Samakatuwid, upang mabilis at epektibong matugunan ang mga error na ito, kailangan mong matutunan kung paano hanapin at gamitin ang tool sa pag-aayos ng inbox. Bukod, sa kaso ng inbuilt tool failure, iminumungkahi na kumuha ng isa pang mahusay na panlabas na utility, tulad ng DataNumen Outlook Repair.
Panimula ng May-akda:
Si Shirley Zhang ay isang dalubhasa sa pagbawi ng data sa DataNumen, Inc., na pinuno ng mundo sa mga teknolohiya sa pagbawi ng data, kasama ang SQL Server magkumpuni at pananaw sa pag-aayos ng mga produktong software. Para sa karagdagang impormasyon pagbisita www.datanumen. Sa