Kuinka löytää kansion nimellä Outlookissa?
Olet esimerkiksi luonut useita sähköpostikansioita Outlookissa. Kun tietty henkilökohtainen kansio on avattava, sinun on laajennettava useita kansioita, kunnes määritetty kansio tulee näkyviin. On hankalaa laajentaa useita kansioita yksitellen vain tietyn henkilökohtaisen kansion avaamista varten. Itse asiassa, jos muistat kansion nimen, kaikki asiat käyvät helposti. Tässä opetusohjelmassa tarjoamme sinulle menetelmän, jolla voit etsiä kansion nimen perusteella Outlookissa sen sijaan, että laajennat kansioita yksitellen kansion löytämiseksi.
Etsi kansio nimen mukaan Outlookista VBA-koodilla
Hae Kutools for Outlookin kansiota nimen mukaan eri tileistä Outlookissa
Etsi kansio nimen mukaan Outlookista VBA-koodilla
Seuraavalla VBA-koodilla voit löytää määritetyn kansion helposti sen nimen perusteella.
Huomautuksia: Sinun on muistettava kansion nimi, jotta voit käyttää tätä VBA-koodia.
1. paina muut + F11 avaimet näppäimistöltä avaa Microsoft Visual Basic for Applications ikkunassa.
2. Kaksoisnapsauta sitten Project1 > Microsoft Outlook -objekti > ThisOutlookSession avaa Project1 – ThisOutlookSession ikkuna. Katso kuvakaappaus:
3. Kopioi ja liitä seuraava VBA-koodi Project1 – ThisOutlookSession -ikkunaan.
VBA: etsi kansio nimen mukaan
Sub FindFolderByName()
Dim Name As String
Dim FoundFolder As Folder
Name = InputBox("Find Name:", "Search Folder")
If Len(Trim$(Name)) = 0 Then Exit Sub
Set FoundFouder = FindInFolders(Application.Session.Folders, Name)
If Not FoundFouder Is Nothing Then
If MsgBox("Activate Folder: " & vbCrLf & FoundFouder.FolderPath, vbQuestion Or vbYesNo) = vbYes Then
Set Application.ActiveExplorer.CurrentFolder = FoundFouder
End If
Else
MsgBox "Not Found", vbInformation
End If
End Sub
Function FindInFolders(TheFolders As Outlook.Folders, Name As String)
Dim SubFolder As Outlook.MAPIFolder
On Error Resume Next
Set FindInFolders = Nothing
For Each SubFolder In TheFolders
If LCase(SubFolder.Name) Like LCase(Name) Then
Set FindInFolders = SubFolder
Exit For
Else
Set FindInFolders = FindInFolders(SubFolder.Folders, Name)
If Not FindInFolders Is Nothing Then Exit For
End If
Next
End Function
4. Paina sitten F5 näppäimistön näppäintä suorittaaksesi VBA-koodin.
5. Vuonna Makrot valintaikkunassa, napsauta ajaa painiketta.
6. Ponnahdusikkunassa Etsi kansio -valintaikkunassa, kirjoita kansion nimi tekstiruutuun ja napsauta sitten OK -painiketta. Katso kuvakaappaus:
7. Sitten a Microsoft Outlook valintaikkuna avautuu, se näyttää haluamasi kansion polun ja napsauta sitten Kyllä painiketta.
8. Tämän jälkeen määritetty sähköpostikansio avautuu välittömästi.
Huomautuksia: Tätä VBA-koodia voidaan käyttää Outlook 2007:ssä, 2010:ssä ja 2013:ssa.
Hae Kutools for Outlookin kansiota nimen mukaan eri tileistä Outlookissa
Jos et ole hyvä VBA:ssa, voit kokeilla Kutools Outlookille's Siirry apuohjelma, joka voi etsiä ja etsiä kansion nimellä tai tietyllä merkillä ja siirtyä sitten suoraan kansioon
Vapaa asennus Kutools for Outlook ja tee sitten alla olevat vaiheet:
1. napsauttaa Kutools Plus > Kansio > Siirry.
2. Vuonna Siirry -valintaikkunassa, kirjoita kansion nimi tai tietyt merkit hakupalkkiin, niin suhteelliset kansiot ovat luettelossa.
3. Kaksoisnapsauta kansion nimeä, johon haluat siirtyä, ja avaa kansio, jolloin kansio avautuu.
esittely
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 ...
