Snel een zoekmap maken voor alle niet-beantwoorde e-mails via Outlook VBA

Outlook-oplossingen 29 september 2025

Om de onbeantwoorde e-mails gemakkelijker in uw Outlook te kunnen controleren, kunt u voor dergelijke e-mails een zoekmap aanmaken. Dit artikel laat u nu zien hoe u het kunt krijgen met Outlook VBA.

In het vorige artikel "Hoe u belangrijke e-mails die u niet hebt beantwoord in Outlook automatisch kunt markeren", leert u hoe u de belangrijke e-mails die u niet hebt beantwoord, in een specifieke kleur kunt weergeven. Maar misschien vindt u het nog steeds lastig omdat u alle e-mailmappen één voor één moet doorzoeken. Daarom wilt u al dergelijke e-mails rechtstreeks in een zoekmap verzamelen. In het volgende zullen we u leren hoe u VBA kunt gebruiken om snel zo'n zoekmap te maken.

Maak een zoekmap voor alle onbeantwoorde e-mails

  1. Start allereerst de Outlook-applicatie.
  2. Druk vervolgens op de toetsen "Alt + F11" om toegang te krijgen tot de VBA-editor.
  3. Kopieer vervolgens de volgende VBA-code naar een module die niet in gebruik is.
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-code - Maak een zoekmap voor alle onbeantwoorde e-mails

  1. Plaats vervolgens de cursor in deze subroutine.
  2. Klik daarna op de toets "F5" om deze macro te activeren.
  3. Wanneer de macro is voltooid, wordt een bericht weergegeven, zoals in de volgende afbeelding.Vraag over 'Voltooid'
  4. Ten slotte ziet u een nieuwe zoekmap met de naam 'Niet-beantwoorde e-mails', die alle onbeantwoorde e-mails in Inbox bevat.Nieuwe zoekmap voor onbeantwoorde e-mails

Wijzig het zoekbereik van de zoekmap

In mijn VBA-code zoekt deze zoekmap alleen naar de standaardmap Inbox. Als u het zoekbereik wilt wijzigen, kunt u de onderstaande stappen volgen.

  1. Klik eerst met de rechtermuisknop op de zoekmap.
  2. Kies vervolgens "Deze zoekmap aanpassen" in het contextmenu.Pas deze zoekmap aan
  3. Klik vervolgens in het pop-upvenster “Aangepaste zoekmap” op de knop “Bladeren”.
  4. Later wordt een nieuw dialoogvenster met “Selecteer map(pen)” weergegeven. Daarin kunt u de mappen kiezen waarin u wilt zoeken naar e-mails die u nog niet hebt beantwoord.Selecteer Mappen
  5. Ten slotte kunt u na het selecteren eenvoudigweg op meerdere “OK” klikken om de wijzigingen toe te passen.

Elimineer frequente Outlook-fouten

Het is gebruikelijk dat u foutmeldingen ontvangt in uw Outlook, zoals fouten met betrekking tot mislukte verzending/ontvangst, fouten met betrekking tot een ontoegankelijk Outlook PST-bestand, enzovoort. Om deze fouten snel en effectief te kunnen aanpakken, moet u daarom leren hoe u de inbox reparatieprogramma. Bovendien wordt, in het geval van een defect aan het ingebouwde gereedschap, voorgesteld om een ​​ander uitstekend extern hulpprogramma te bemachtigen, zoals DataNumen Outlook Repair.

Auteur Introductie:

Shirley Zhang is een expert op het gebied van gegevensherstel in DataNumen, Inc., de wereldleider in technologieën voor gegevensherstel, waaronder SQL Server reparatie en Outlook-reparatiesoftwareproducten. Voor meer informatie bezoek www.datanumen.com

Reacties zijn gesloten.