Kuinka nopeasti siirtyä ja avata hakutuloskansio Outlookissa?
Outlookissa voit etsiä sähköposteja tietyn tekstin perusteella Haku-toiminnolla. Mutta jos haet kaikista Outlook-kohteista, et voi nopeasti löytää hakutuloksen kansiota. Tässä tapauksessa minulla on joitain temppuja, joiden avulla voit nopeasti siirtyä ja avata hakutuloksen kansioon.
Siirry kohtaan ja avaa hakutulosten kansio VBA:lla
Siirry ja avaa hakutulosten kansio hiiren kakkospainikkeella
Siirry kohtaan ja avaa hakutulosten kansio VBA:lla
Outlookissa ei ole mitään sisäänrakennettua toimintoa, joka voi käsitellä tätä työtä, paitsi VBA-koodi.
Ennen kuin käytät VBA-koodia, sinun on näytettävä kansion nimi haun tuloksissa.
1. napsauttaa Näytä > Lisää sarakkeita.
2. Vuonna Näytä sarakkeet dialogi ja sisään Valitse käytettävissä olevat sarakkeet avattavasta luettelosta Kaikki postikentät, valitse sitten Kansiossa vuonna Käytettävissä olevat sarakkeet lista.
3. napsauttaa Lisää lisätä Kansioissa että Näytä nämä sarakkeet tässä järjestyksessä luettelo ja napsauta sitten Liiku ylös -painiketta siirtyäksesi Kansiossa kohteeseen huippu.
4. napsauttaa OK sulkeaksesi dialogin. Nyt kun etsit sähköposteja, kansion nimi näkyy hakutuloksissa.
5. Paina nyt Alt + F11 näppäimiä ottaaksesi käyttöön Microsoft Visual Basic for Applications -ikkunassa liite > Moduulit luodaksesi uuden moduulin.
6. Kopioi ja liitä alla oleva koodi moduuliin.
VBA: Siirry kansioon nimen mukaan
Sub FindFolderByName()
'UpdatebyExtendoffice20181105
Dim xFldName As String
Dim xFoundFolder As Folder
Dim xYesNo As Integer
On Error Resume Next
xFldName = InputBox("Folder Name:", "Kutools for Outlook")
If Len(Trim(xFldName)) = 0 Then Exit Sub
Set xFoundFolder = ProcessFolders(Application.Session.Folders, xFldName)
If xFoundFolder Is Nothing Then
MsgBox "Not Found", vbInformation, "Kutools for Outlook"
Exit Sub
End If
xYesNo = MsgBox("Activate Folder: " & vbCrLf & xFoundFolder.FolderPath, vbQuestion Or vbYesNo, "Kutools for Outlook")
If xYesNo = vbNo Then Exit Sub
Set Application.ActiveExplorer.CurrentFolder = xFoundFolder
End Sub
Function ProcessFolders(Flds As Outlook.Folders, Name As String)
Dim xSubFolder As Outlook.MAPIFolder
On Error Resume Next
Set ProcessFolders = Nothing
For Each xSubFolder In Flds
If UCase(xSubFolder.Name) = UCase(Name) Then
Set ProcessFolders = xSubFolder
Exit For
Else
Set ProcessFolders = ProcessFolders(xSubFolder.Folders, Name)
If Not ProcessFolders Is Nothing Then Exit For
End If
Next
End Function7. Lehdistö F5 -näppäintä ottaaksesi koodin käyttöön, syötä nyt valintaikkunaan kansion nimi, johon haluat siirtyä.
8. napsauttaa OK, näyttöön tulee valintaikkuna, joka muistuttaa kansion sijainnista, napsauta Kyllä Siirry suoraan kansioon tai napsauta Ei peruuttaa.
Siirry ja avaa hakutulosten kansio hiiren kakkospainikkeella
Jos olet Kutools Outlookille, Avaa kansio -apuohjelma upotetaan hiiren kakkospainikkeen valikkoon, joka voi siirtyä nopeasti valitun sähköpostin kansioon jopa hakutulosluettelossa.
Vapaa asennus Kutools for Outlook ja tee sitten alla olevat vaiheet:
Haun jälkeen napsauta hiiren kakkospainikkeella tulosta, jonka haluat avata sen kansion, valitse Avaa kansio (Kutools) pikavalikosta.
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 ...
