Kuinka luoda hakukansio kaikille vastaamattomille sähköpostiviesteille Outlookissa?
Jos haluat tarkistaa vastaamattomat sähköpostit Outlookissasi, niiden etsiminen yksitellen vie paljon aikaa. Tässä artikkelissa puhun hakukansion luomisesta kaikille viesteille, joihin ei ole vastattu.
Luo hakukansio kaikille vastaamattomille sähköpostiviesteille Outlookissa VBA-koodilla
Luo hakukansio kaikille vastaamattomille sähköpostiviesteille Outlookissa VBA-koodilla
Seuraava VBA-koodi voi auttaa sinua luomaan hakukansion, johon sijoitetaan kaikki vastaamattomat sähköpostit, toimi näin:
1. Pidä painettuna ALT + F11 avaimet avaamaan Microsoft Visual Basic for Applications ikkunassa.
2. Klikkaus liite > Moduulit, ja liitä seuraava makro Moduulit Ikkuna.
VBA-koodi: Luo hakukansio vastaamattomille sähköposteille:
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. Paina sitten F5 -näppäintä tämän koodin suorittamiseksi, ja kehoteruutu ponnahtaa esiin seuraavan kuvakaappauksen mukaisesti:
4. Klikkaus OK -painiketta, nyt saat a Ei vastattu sähköposteihin kansion alla Etsi kansiot Jokaisen Outlookin tilin kohdalla ja kaikki vastaamattomat sähköpostit näkyvät tässä, katso kuvakaappaus:
Parhaat toimiston tuottavuustyökalut
Breaking News: Kutools for Outlook julkaisee ilmaisen version!
Koe täysin uusi Kutools for Outlook ILMAINEN versio, jossa on yli 70 uskomatonta ominaisuutta, sinun käytössäsi IKUISESTI! Lataa nyt napsauttamalla!
📧 Sähköpostiautomaatio: Automaattinen vastaus (saatavilla POP:lle ja IMAP:lle) / Ajoita sähköpostien lähettäminen / Automaattinen CC/BCC sääntöjen mukaan lähetettäessä sähköpostia / Automaattinen edelleenlähetys (lisäsäännöt) / Automaattinen tervehdys / Jaa usean vastaanottajan sähköpostit automaattisesti yksittäisiksi viesteiksi ...
📨 Sähköposti Management: Muista sähköpostit / Estä huijaussähköpostit aiheiden ja muiden taholta / Poista päällekkäiset sähköpostit / Tarkennettu Haku / Yhdistä kansiot ...
📁 Liitteet Pro: Erätallennus / Erä Irrota / Eräpakkaus / Automaattinen tallennus / Automaattinen irrotus / Automaattinen pakkaus ...
🌟 Interface Magic: 😊Lisää kauniita ja siistejä emojia / Muistuttaa sinua tärkeistä sähköpostiviesteistä / Minimoi Outlook sulkemisen sijaan ...
???? Yhden napsautuksen Wonders: Vastaa kaikkiin liitteillä / Tietojenkalastelun vastaiset sähköpostit / 🕘Näytä lähettäjän aikavyöhyke ...
👩🏼🤝👩🏻 Yhteystiedot ja kalenteri: Erä Lisää yhteystietoja valituista sähköpostiviesteistä / Jaa yhteysryhmä yksittäisiin ryhmiin / Poista syntymäpäivämuistutukset ...
