Slik oppretter du raskt en søkemappe for alle ubesvarte e-poster via Outlook VBA

Outlook-løsninger September 29, 2025

For å lettere sjekke ubesvarte e-poster i Outlook, kan du opprette en søkemappe for slike e-poster. Nå vil denne artikkelen introdusere deg hvordan du får det med Outlook VBA.

I den forrige artikkelen "Hvordan automatisk fremheve de viktige e-postene du ikke har svart i Outlook", kan du lære hvordan du kan vise de viktige e-postene du ikke har svart i en bestemt farge. Men du kan føle det fortsatt plagsomt ved at du må se gjennom alle e-postmappene én etter én. Derfor ønsker du å samle alle slike e-poster direkte i en søkemappe. Nå, i det følgende, vil vi lære deg å bruke VBA for raskt å lage en slik søkemappe.

Opprett en søkemappe for alle ubesvarte e-poster

  1. Helt i begynnelsen, start Outlook-applikasjonen.
  2. Trykk deretter "Alt + F11"-tastene for å få tilgang til VBA-editor.
  3. Deretter kopierer du følgende VBA-kode til en modul som ikke er i bruk.
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-kode - Lag en søkemappe for alle ubesvarte e-poster

  1. Deretter setter du markøren i denne subrutinen.
  2. Etter det klikker du på "F5"-tasten for å utløse denne makroen.
  3. Når makroen er ferdig, vises en melding, som den følgende figuren.Spør om "Fullfør"
  4. Til slutt kan du se en ny søkemappe kalt "Not Replied Emails", som inneholder alle ubesvarte e-poster i Inbox.Ny søkemappe for ubesvarte e-poster

Endre søkeomfang for søkemappen

I min VBA-kode søker denne søkemappen bare i standard innboksmappen. Hvis du vil endre søkeomfanget, kan du følge trinnene nedenfor.

  1. Først av, høyreklikk på søkemappen.
  2. Deretter velger du "Tilpass denne søkemappen" fra hurtigmenyen.Tilpass denne søkemappen
  3. Deretter klikker du på "Bla gjennom"-knappen i dialogboksen "Egendefinert søkemappe".
  4. Senere vil en ny dialogboks med "Velg mappe(r)" vises. I den kan du velge mappene som skal søkes etter e-poster du ikke har svart på.Velg Mapper
  5. Til slutt, etter å ha valgt, kan du bare klikke flere "OK" for å bruke endringene.

Eliminer hyppige Outlook-feil

Det er vanlig å motta feilmeldinger i Outlook, for eksempel feil knyttet til sending/mottaksfeil, feil som involverer utilgjengelig Outlook PST-fil og så videre. Derfor, for å håndtere disse feilene raskt og effektivt, må du lære hvordan du finner og bruker verktøy for reparasjon av innboks. Dessuten, i tilfelle det innebygde verktøyet feiler, foreslås det å få tak i et annet utmerket eksternt verktøy, som f.eks. DataNumen Outlook Repair.

Forfatterintroduksjon:

Shirley Zhang er en datagjenopprettingsekspert innen DataNumen, Inc., som er verdensledende innen datagjenopprettingsteknologier, inkludert SQL Server reparasjon og Outlook-reparasjonsprodukter. For mer informasjon besøk www.datanumen. Med

Kommentarer er stengt.