Cum să accesați rapid și să deschideți folderul rezultatului căutării în Outlook?

În Outlook, puteți căuta e-mailuri pe baza textului specific cu funcția Căutare. Dar, dacă căutați toate articolele Outlook, nu puteți afla rapid folderul rezultatului căutării. În acest caz, aici am câteva trucuri care vă pot ajuta să mergeți rapid și să deschideți folderul rezultatului căutării.

Accesați și deschideți folderul rezultatului căutării cu VBA

Accesați și deschideți folderul rezultatului căutării cu clic dreapta

Accesați și deschideți folderul rezultatului căutării cu VBA

În Outlook, nu există nicio funcție încorporată care să poată gestiona această lucrare, cu excepția codului VBA.

Înainte de a utiliza codul VBA, trebuie să afișați numele folderului în rezultatele căutate.

1. clic Vizualizare > Adăugați coloane.

2. În Afișați coloane dialog și în Selectați coloanele disponibile din lista derulantă, selectați Toate câmpurile Mail, Apoi alegeți În dosar în Coloane disponibile listă.

3. clic Adăuga pentru a adăuga În dosare la Afișați aceste coloane în această ordine lista, apoi faceți clic pe Mutați sus buton pentru a vă deplasa În dosar către topul.

4. clic OK pentru a închide dialogul. Acum, în timp ce căutați e-mailuri, numele folderului va fi afișat în rezultatele căutării.

5. Apăsați acum Alt + F11 taste pentru activare Microsoft Visual Basic pentru aplicații fereastră, faceți clic pe Insera > Module pentru a crea un nou modul.

6. Copiați și lipiți codul de mai jos în modul.

VBA: Accesați folderul după un nume

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 Function

7. presa F5 tasta pentru a activa codul, introduceți acum numele de folder în care doriți să mergeți în casetă de dialog.

8. clic OK, apare un dialog pentru a vă reaminti locația folderului, faceți clic pe Da pentru a accesa direct dosarul sau faceți clic pe Nu a anula.

Accesați și deschideți folderul rezultatului căutării cu clic dreapta

Dacă aveţi Kutools pentru Outlook, va exista un Deschideți folderul utilitarul încorporat în meniul cu clic dreapta, care poate merge rapid în dosarul e-mailului selectat.

Instalare gratuită Kutools pentru Outlook, apoi faceți pașii de mai jos:

După căutare, faceți clic dreapta pe rezultatul pe care doriți să-i deschideți folderul, selectați Deschideți folderul din meniul contextual.

---

Cele mai bune instrumente de productivitate de birou

Kutools pentru Outlook - Peste 100 de funcții puternice pentru a vă supraalimenta Outlook

🤖 AI Mail Assistant: E-mailuri profesionale instantanee cu magie AI--un singur clic pentru răspunsuri geniale, ton perfect, stăpânire în mai multe limbi. Transformați e-mailurile fără efort! ...

📧 Automatizare e-mail: În afara biroului (disponibil pentru POP și IMAP)  /  Programați trimiterea de e-mailuri  /  CC/BCC automat după reguli la trimiterea e-mailului  /  Redirecționare automată (Reguli avansate)   /  Adăugare automată felicitare   /  Împărțiți automat e-mailurile cu mai mulți destinatari în mesaje individuale ...

📨 Managementul e-mail: Amintește-ți cu ușurință e-mailurile  /  Blocați e-mailurile înșelătorii de către subiecți și alții  /  Ștergeți e-mailurile duplicate  /  Cautare Avansata  /  Consolidați foldere ...

📁 Atașamente Pro: Salvați în serie  /  Detașare lot  /  Compresă în loturi  /  Salvare automata   /  Detașare automată  /  Comprimare automată ...

🌟 Magia interfeței: 😊Mai multe emoji drăguțe și cool   /  Îmbunătățiți-vă productivitatea Outlook cu vizualizările cu file  /  Minimizați Outlook în loc să închideți ...

???? Minuni cu un singur clic: Răspundeți tuturor cu atașamentele primite  /   E-mailuri anti-phishing  /  🕘Afișați fusul orar al expeditorului ...

👩🏼‍🤝‍👩🏻 Contacte și calendar: Adăugați în lot contacte din e-mailurile selectate  /  Împărțiți un grup de contact în grupuri individuale  /  Eliminați mementouri de ziua de naștere ...

Peste 100 Caracteristici Așteaptă explorarea ta! Click aici pentru a descoperi mai multe.

Citeste mai mult       Descărcare gratuită      Cumpărare