Πώς να μεταβείτε γρήγορα και να ανοίξετε το φάκελο των αποτελεσμάτων αναζήτησης στο Outlook;

Στο Outlook, μπορείτε να αναζητήσετε μηνύματα ηλεκτρονικού ταχυδρομείου με βάση το συγκεκριμένο κείμενο με τη λειτουργία Αναζήτηση. Ωστόσο, εάν κάνετε αναζήτηση σε όλα τα στοιχεία προοπτικής, δεν μπορείτε να μάθετε γρήγορα το φάκελο του αποτελέσματος αναζήτησης. Σε αυτήν την περίπτωση, εδώ έχω μερικά κόλπα που μπορούν να σας βοηθήσουν να μεταβείτε γρήγορα και να ανοίξετε το φάκελο του αποτελέσματος αναζήτησης.

Μεταβείτε και ανοίξτε το φάκελο του αποτελέσματος αναζήτησης με το VBA

Μεταβείτε και ανοίξτε το φάκελο του αποτελέσματος αναζήτησης με δεξί κλικ

Μεταβείτε και ανοίξτε το φάκελο του αποτελέσματος αναζήτησης με το VBA

Στο Outlook, δεν υπάρχει ενσωματωμένη λειτουργία που μπορεί να χειριστεί αυτήν την εργασία, εκτός από τον κώδικα VBA.

Πριν χρησιμοποιήσετε τον κωδικό VBA, πρέπει να εμφανίσετε το όνομα του φακέλου στα αποτελέσματα αναζήτησης.

1. κλικ Προβολή > Προσθέστε στήλες.

2. Στο Εμφάνιση στηλών διαλόγου και σε Επιλέξτε διαθέσιμες στήλες από αναπτυσσόμενη λίστα, επιλέξτε Όλα τα πεδία αλληλογραφίας, κατόπιν επιλέξτε Στο φάκελο στο Διαθέσιμες στήλες λίστα.

3. κλικ Προσθέτω για να προσθέσετε Σε φακέλους προς την Εμφάνιση αυτών των στηλών με αυτήν τη σειρά λίστα και, στη συνέχεια, κάντε κλικ Μετακίνηση προς τα πάνω κουμπί για μετακίνηση Στο φάκελο προς η κορυφή.

4. κλικ OK για να κλείσετε το διάλογο. Τώρα ενώ ψάχνετε email, το όνομα του φακέλου θα εμφανίζεται στα αποτελέσματα αναζήτησης.

5. Τώρα πατήστε Alt + F11 πλήκτρα για ενεργοποίηση Microsoft Visual Basic για εφαρμογές παράθυρο, κάντε κλικ στην επιλογή Κύριο θέμα > Μονάδα μέτρησης για να δημιουργήσετε μια νέα ενότητα.

6. Αντιγράψτε και επικολλήστε τον παρακάτω κώδικα στην ενότητα.

VBA: Μεταβείτε στο φάκελο με όνομα

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. Τύπος F5 για να ενεργοποιήσετε τον κωδικό, εισάγετε τώρα το όνομα του φακέλου στον οποίο θέλετε να μεταβείτε στο παράθυρο διαλόγου.

8. κλικ OK, εμφανίζεται ένας διάλογος για να σας υπενθυμίσει τη θέση του φακέλου, κάντε κλικ στο Ναι για να μεταβείτε απευθείας στο φάκελο ή κάντε κλικ στο Οχι να ακυρώσω.

Μεταβείτε και ανοίξτε το φάκελο του αποτελέσματος αναζήτησης με δεξί κλικ

Εάν έχετε Kutools για το Outlook, θα υπάρχει Ανοιχτός φάκελος βοηθητικό πρόγραμμα ενσωμάτωσης στο μενού με το δεξί κλικ που μπορεί γρήγορα να μεταβεί στο φάκελο του επιλεγμένου email.

Δωρεάν εγκατάσταση Kutools για Outlook και, στη συνέχεια, κάντε τα παρακάτω βήματα:

Μετά την αναζήτηση, κάντε δεξί κλικ στο αποτέλεσμα που θέλετε να ανοίξετε το φάκελό του, επιλέξτε Ανοιχτός φάκελος από το μενού περιβάλλοντος.

---

Kutools για Outlook - Φέρνει 100 προηγμένες δυνατότητες στο Outlook και κάνει την εργασία πολύ πιο εύκολη!

• Αυτόματο CC / BCC με κανόνες κατά την αποστολή email · Αυτόματη προώθηση Πολλαπλά μηνύματα ηλεκτρονικού ταχυδρομείου κατά παραγγελία. Αυτόματη απάντηση χωρίς διακομιστή ανταλλαγής και περισσότερες αυτόματες δυνατότητες ...
• Προειδοποίηση BCC - εμφάνιση μηνύματος όταν προσπαθείτε να απαντήσετε σε όλα εάν η διεύθυνση αλληλογραφίας σας βρίσκεται στη λίστα BCC; Υπενθύμιση όταν λείπουν συνημμένακαι περισσότερες λειτουργίες υπενθύμισης ...
• Απάντηση (Όλα) Με όλα τα συνημμένα στη συνομιλία μέσω ταχυδρομείου; Απάντηση σε πολλά email σε δευτερόλεπτα; Αυτόματη προσθήκη χαιρετισμού κατά την απάντηση Προσθήκη ημερομηνίας στο θέμα ...
• Εργαλεία συνημμένων: Διαχείριση όλων των συνημμένων σε όλα τα μηνύματα, Αυτόματη απόσπαση, Συμπίεση όλων, Μετονομασία όλων, Αποθήκευση όλων ... Γρήγορη αναφορά, Καταμέτρηση επιλεγμένων μηνυμάτων...
• Ισχυρά ανεπιθύμητα email κατά παραγγελία? Κατάργηση διπλότυπων μηνυμάτων και επαφών... Σας επιτρέπουν να κάνετε πιο έξυπνα, πιο γρήγορα και καλύτερα στο Outlook.

Διαβάστε περισσότερα ... Κατεβάστε τώρα...