Preskoči na glavno vsebino

 Kako ustvariti mapo za iskanje za vsa neodgovorjena e-poštna sporočila v Outlooku?

Avtor: Xiaoyang Zadnja sprememba: 2018-12-10

Če želite preveriti e-poštna sporočila, na katera niste odgovorili, v Outlooku, bo iskanje po njih trajalo veliko časa. V tem članku bom govoril o ustvarjanju iskalne mape za vsa neodgovorjena sporočila.

Ustvarite iskalno mapo za vsa neodgovorjena e-poštna sporočila v Outlooku s kodo VBA


Ustvarite iskalno mapo za vsa neodgovorjena e-poštna sporočila v Outlooku s kodo VBA

Naslednja koda VBA vam lahko pomaga ustvariti mapo za iskanje, kamor bodo vstavljena vsa neodgovorjena e-poštna sporočila. Naredite to:

1. Držite tipko ALT + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.

2. Kliknite Vstavi > Moduliin v mapo prilepite naslednji makro Moduli Okno.

Koda VBA: Ustvari iskalno mapo za neodgovorjena e-poštna sporočila:

Sub CreateSearchFolder_AllNotRepliedEmails()
    Dim xSearch As Outlook.Search
    Dim xScope As String, xFilter As String
    Dim xRepliedProperty As String
    Dim xFolder As Folder, xSubFolder As Folder
    On Error Resume Next
    xScope = ""
    For Each xFolder In Outlook.Application.Session.Folders
        Set xSubFolder = xFolder.Folders("Inbox")
        xScope = "'" + xSubFolder.FolderPath + "'"
        xRepliedProperty = "http://schemas.microsoft.com/mapi/proptag/0x10810003"
        xFilter = Chr(34) & xRepliedProperty & Chr(34) & " <> 102" & "AND" & Chr(34) & xRepliedProperty & Chr(34) & " <> 103"
        Set xSearch = Outlook.Application.AdvancedSearch(Scope:=xScope, Filter:=xFilter, SearchSubFolders:=True, Tag:="SearchFolder")
        xSearch.Save("Not Replied Emails").ShowItemCount = olShowTotalItemCount
        Set xSearch = Nothing
        Set xSubFolder = Nothing
    Next
    MsgBox "Search folder is created successfully!", vbInformation + vbOKOnly, "Kutools for Outlook"
End Sub

3. Nato pritisnite F5 tipko za zagon te kode in se prikaže pozivno okno, kot je prikazano na sliki spodaj:

mapa za iskanje dokumentov za neodgovorjene 1

4. Kliknite OK gumb, zdaj boste dobili Neodgovorjena e-poštna sporočila mapo pod Iskanje po mapah za vsak račun v Outlooku in tukaj so prikazana vsa neodgovorjena e-poštna sporočila, glejte posnetek zaslona:

mapa za iskanje dokumentov za neodgovorjene 2


Najboljša pisarniška orodja za produktivnost

Obvladajte Outlook s Kutools: močan, raznolik & Za vedno svoboden!

Odklenite več kot 100 vrhunskih funkcij za 30-dnevno brezplačno preskusno obdobje; nadaljujte z dostopom 70 + zmogljiva orodja za nedoločen čas brez stroškov po koncu preizkusa!

🤖 Kutools AI : Takojšnja profesionalna e-poštna sporočila z umetno inteligenco – z enim klikom do genialnih odgovorov, popoln ton, večjezično znanje. Preoblikujte pošiljanje e-pošte brez napora! ...

📧 Avtomatizacija e-pošte: Samodejni odgovor (na voljo za POP in IMAP)  /  Načrtujte pošiljanje e-pošte  /  Samodejna CC/BCC po pravilih pri pošiljanju e-pošte  /  Samodejno naprej (napredna pravila)   /  Samodejno dodaj pozdrav   /  E-poštna sporočila več prejemnikov samodejno razdeli na posamezna sporočila ...

📨 Email upravljanje: Odpoklic e-pošte  /  Blokiraj prevarantska e-poštna sporočila glede na teme in druge  /  Izbriši podvojena e-poštna sporočila  /  napredno iskanje  /  Združite mape ...

📁 Priloge ProShrani paket  /  Batch Detach  /  Paketno stiskanje  /  Samodejno shranite   /  Samodejno loči  /  Samodejno stiskanje ...

🌟 Vmesnik Magic: 😊Več lepih in kul emojijev   /  Opomni vas, ko pridejo pomembna e-poštna sporočila  /  Minimizirajte Outlook, namesto da bi ga zaprli ...

???? Čudeži z enim klikom: Odgovori vsem z dohodnimi prilogami  /   E-poštna sporočila proti lažnemu predstavljanju  /  🕘Pokaži pošiljateljev časovni pas ...

👩🏼‍🤝‍👩🏻 Stiki in koledar: Paketno dodajanje stikov iz izbranih e-poštnih sporočil  /  Razdelite skupino stikov na posamezne skupine  /  Odstranite opomnike za rojstni dan ...

Takoj odklenite Kutools za Outlook z enim klikom—trajno brezplačno. ne čakaj, prenesite zdaj in povečajte svojo učinkovitost!

 

 

Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations