Kuinka nopeasti luoda hakukansio kaikille vastaamattomille sähköpostiviesteille Outlook VBA:n kautta

Voit tarkistaa vastaamattomat sähköpostit helpommin Outlookissasi luomalla hakukansion tällaisille sähköposteille. Nyt tässä artikkelissa esitellään, kuinka saat sen Outlook VBA:n avulla.

Edellisessä artikkelissa "Tärkeiden sähköpostien automaattinen korostaminen, joihin et ole vastannut Outlookissa" voit oppia, miten voit näyttää tärkeät sähköpostit, joihin et ole vastannut, tietyllä värillä. Mutta saatat tuntea sen edelleen hankalaksi, koska sinun on selattava kaikki postikansiot yksitellen. Siksi haluat kerätä kaikki tällaiset sähköpostit suoraan hakukansioon. Seuraavassa opetamme sinua käyttämään VBA:ta sellaisen hakukansion luomiseen nopeasti.

Luo hakukansio kaikille vastaamattomille sähköposteille

1. Käynnistä aivan aluksi Outlook-sovellus.
2. Paina sitten "Alt + F11" -näppäimiä päästäksesi VBA-editoriin.
3. Kopioi seuraavaksi seuraava VBA-koodi moduuliin, joka ei ole käytössä.

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. Laita sitten kohdistin tähän aliohjelmaan.
5. Napsauta sen jälkeen "F5"-näppäintä käynnistääksesi tämän makron.
6. Kun makro on valmis, seuraavan kuvan mukainen viesti tulee näkyviin.
7. Lopuksi näet uuden hakukansion nimeltä "Ei vastatut sähköpostit", joka sisältää kaikki Inboxin vastaamattomat sähköpostit.

Muuta hakukansion hakulaajuutta

VBA-koodissani tämä hakukansio hakee vain oletusarvoisesta Saapuneet-kansiosta. Jos haluat muuttaa haun laajuutta, voit seurata alla olevia ohjeita.

1. Napsauta ensin hiiren kakkospainikkeella hakukansiota.
2. Valitse sitten pikavalikosta "Muokkaa tätä hakukansiota".
3. Napsauta seuraavaksi ponnahdusikkunassa "Custom Search Folder" -valintaikkunassa "Selaa" -painiketta.
4. Myöhemmin näkyviin tulee uusi "Valitse kansio(t)" -valintaikkuna. Siinä voit valita kansiot, joista etsitään sähköpostit, joihin et ole vastannut.
5. Lopuksi valinnan jälkeen voit napsauttaa useita "OK" ottaaksesi muutokset käyttöön.

Poista toistuvat Outlook-virheet

On yleistä saada Outlookiin virheilmoituksia, kuten lähetys-/vastaanottovirheisiin liittyviä virheitä, virheitä, joihin liittyy Outlookin PST-tiedosto, jota ei voi käyttää, ja niin edelleen. Siksi, jotta voit käsitellä nämä virheet nopeasti ja tehokkaasti, sinun on opittava paikantamaan ja käyttämään Saapuneet-kansion korjaustyökalu. Lisäksi sisäänrakennetun työkalun vian sattuessa on suositeltavaa hankkia toinen erinomainen ulkoinen apuohjelma, kuten DataNumen Outlook Repair.

Tekijän esittely:

Shirley Zhang on tietojen palauttamisen asiantuntija DataNumen, Inc., joka on maailman johtava tietojen palautustekniikoissa, mukaan lukien SQL Server korjaus ja Outlookin korjausohjelmistotuotteet. Lisätietoja osoitteessa www.datanumen.com