Kako brzo kreirati fasciklu za pretragu za sve neodgovorene e-poruke putem Outlook VBA

Da biste lakše provjerili neodgovorene e-poruke u svom Outlooku, možete kreirati mapu za pretragu za takve e-poruke. Sada će vam ovaj članak predstaviti kako da ga nabavite pomoću Outlook VBA.

U prethodnom članku „Kako automatski istaknuti važne e-poruke na koje niste odgovorili u Outlooku“, možete naučiti način da pokažete vitalne poruke e-pošte na koje niste odgovorili određenom bojom. Ali, možda ćete smatrati da je i dalje problematično jer morate pregledavati sve foldere pošte jedan po jedan. Stoga biste željeli direktno prikupiti sve takve e-poruke u folder za pretraživanje. Sada, u nastavku, naučićemo vas da koristite VBA za brzo kreiranje takve fascikle za pretragu.

Kreirajte folder za pretragu za sve neodgovorene e-poruke

1. Na samom početku, start Outlook aplikacija.
2. Zatim pritisnite tipke “Alt + F11” da pristupite VBA editoru.
3. Zatim kopirajte sljedeći VBA kod u modul koji nije u upotrebi.

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

4. Nakon toga, stavite kursor u ovaj potprogram.
5. Nakon toga, kliknite na dugme "F5" da biste pokrenuli ovaj makro.
6. Kada se makro završi, prikazat će se poruka, kao na sljedećoj slici.
7. Konačno, možete vidjeti novu mapu za pretragu pod nazivom “E-poruke bez odgovora”, koja sadrži sve neodgovorene e-poruke u Inboxu.

Promijenite opseg pretraživanja foldera za pretraživanje

U mom VBA kodu, ova fascikla za pretragu pretražuje samo podrazumevanu fasciklu Inbox. Ako želite promijeniti opseg pretraživanja, možete slijediti dolje navedene korake.

1. Prvo kliknite desnim tasterom miša na fasciklu za pretragu.
2. Zatim odaberite "Prilagodi ovu mapu pretraživanja" iz kontekstnog izbornika.
3. Zatim, u iskačućem dijaloškom okviru „Folder za prilagođeno pretraživanje“, kliknite na dugme „Pregledaj“.
4. Kasnije će se prikazati novi dijaloški okvir „Odaberite folder(e)“. U njemu možete odabrati foldere u kojima će se tražiti e-poruke na koje niste odgovorili.
5. Konačno, nakon odabira, možete samo kliknuti nekoliko "OK" da biste primijenili promjene.

Uklonite česte Outlook greške

Uobičajeno je primanje poruka o greškama u vašem Outlooku, kao što su greške koje se odnose na greške u slanju/prijemanju, greške koje uključuju nedostupnu Outlook PST datoteku i tako dalje. Stoga, da biste se brzo i efikasno nosili sa ovim greškama, morate naučiti kako da locirate i iskoristite alat za popravku inboxa. Osim toga, u slučaju kvara ugrađenog alata, predlaže se nabaviti još jedan odličan vanjski uslužni program, kao npr. DataNumen Outlook Repair.

Uvod za autora:

Shirley Zhang je stručnjak za oporavak podataka DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući SQL Server Popravak i Outlook softverski proizvodi za popravku. Za više informacija posjetite www.datanumen.com