Kuidas Outlook VBA kaudu kiiresti luua kõigi vastamata meilide otsingukaust

Outlooki lahendused September 29, 2025

Vastamata meilide hõlpsamaks kontrollimiseks Outlookis saate luua selliste meilide jaoks otsingukausta. See artikkel tutvustab teile, kuidas seda Outlook VBA abil hankida.

Eelmisest artiklist „Kuidas Outlookis automaatselt esile tõsta olulised meilid, millele te pole vastanud”, saate teada, kuidas kuvada olulised meilid, millele te pole vastanud, kindla värviga. Kuid võite tunduda, et see on endiselt tülikas, kuna peate kõik kirjakaustad ükshaaval läbi vaatama. Seetõttu soovite kõik sellised meilid otse otsingukausta koguda. Nüüd õpetame teile VBA-d sellise otsingukausta kiireks loomiseks kasutama.

Looge kõigi vastamata meilide jaoks otsingukaust

  1. Alguses käivitage Outlooki rakendus.
  2. Seejärel vajutage VBA redaktori avamiseks klahve Alt + F11.
  3. Järgmisena kopeerige järgmine VBA kood moodulisse, mida ei kasutata.
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

VBA kood – looge otsingukaust kõigi vastamata meilide jaoks

  1. Seejärel asetage kursor sellesse alamprogrammi.
  2. Pärast seda klõpsake selle makro käivitamiseks nuppu "F5".
  3. Kui makro on lõppenud, kuvatakse teade, nagu järgmine joonis.Küsi "Lõpeta" kohta
  4. Lõpuks näete uut otsingukausta nimega "Vastamata meilid", mis sisaldab kõiki postkasti vastamata e-kirju.Uus vastamata e-kirjade otsingukaust

Muutke otsingukausta otsingu ulatust

Minu VBA-koodis otsib see otsingukaust ainult sisendkausta vaikekausta. Kui soovite otsingu ulatust muuta, järgige alltoodud samme.

  1. Kõigepealt paremklõpsake otsingukaustal.
  2. Seejärel valige kontekstimenüüst "Kohanda seda otsingukausta".Kohandage seda otsingukausta
  3. Järgmisena klõpsake dialoogiboksis "Kohandatud otsingukaust" nuppu "Sirvi".
  4. Hiljem kuvatakse uus dialoogiboks "Kausta(de) valimine". Selles saate valida kaustad, millest otsitakse e-kirju, millele te pole vastanud.Valige Kaustad
  5. Lõpuks võite pärast valimist muudatuste rakendamiseks klõpsata mitut nuppu OK.

Välistage sagedased Outlooki vead

Tavaliselt saate Outlookis tõrketeateid, nagu saatmis-/vastuvõtutõrgetega seotud vead, Outlooki PST-faili ligipääsmatu tõrked ja nii edasi. Seetõttu peate nende vigadega kiireks ja tõhusaks käsitlemiseks õppima, kuidas leida ja kasutada postkasti parandamise tööriist. Lisaks on sisseehitatud tööriista rikke korral soovitatav hankida mõni muu suurepärane väline utiliit, näiteks DataNumen Outlook Repair.

Autori sissejuhatus:

Shirley Zhang on andmete taastamise ekspert DataNumen, Inc., mis on maailmas juhtiv andmete taastamise tehnoloogiate, sealhulgas SQL Server remont ja Outlooki remonditarkvaratooted. Lisateabe saamiseks külastage www.datanumenCom

Kommentaarid on suletud.