Πώς να μεταβείτε γρήγορα και να ανοίξετε το φάκελο των αποτελεσμάτων αναζήτησης στο 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 for Outlook , Περιλαμβάνει 100 + ισχυρές δυνατότητες και εργαλεία για το Microsoft Outlook 2016, 2013, 2010 και Office 365. |
||
Δωρεάν εγκατάσταση Kutools για Outlook και, στη συνέχεια, κάντε τα παρακάτω βήματα:
Μετά την αναζήτηση, κάντε δεξί κλικ στο αποτέλεσμα που θέλετε να ανοίξετε το φάκελό του, επιλέξτε Ανοιχτός φάκελος από το μενού περιβάλλοντος.
Τα καλύτερα εργαλεία παραγωγικότητας γραφείου
Kutools για το Outlook - Πάνω από 100 ισχυρές δυνατότητες για υπερφόρτιση του Outlook σας
🤖 Βοηθός αλληλογραφίας AI: Άμεσα επαγγελματικά email με μαγεία AI -- με ένα κλικ για ιδιοφυείς απαντήσεις, τέλειος τόνος, πολυγλωσσική γνώση. Μεταμορφώστε τα email χωρίς κόπο! ...
📧 Αυτοματοποίηση ηλεκτρονικού ταχυδρομείου: Εκτός γραφείου (Διαθέσιμο για POP και IMAP) / Προγραμματισμός αποστολής email / Αυτόματο CC/BCC βάσει κανόνων κατά την αποστολή email / Αυτόματη προώθηση (Σύνθετοι κανόνες) / Αυτόματη προσθήκη χαιρετισμού / Διαχωρίστε αυτόματα τα μηνύματα ηλεκτρονικού ταχυδρομείου πολλών παραληπτών σε μεμονωμένα μηνύματα ...
📨 Διαχείριση e-mail: Εύκολη ανάκληση email / Αποκλεισμός απάτης email από υποκείμενα και άλλους / Διαγραφή διπλότυπων μηνυμάτων ηλεκτρονικού ταχυδρομείου / Προχωρημένη Αναζήτηση / Ενοποίηση φακέλων ...
📁 Συνημμένα Pro: Μαζική αποθήκευση / Αποσύνδεση παρτίδας / Συμπίεση παρτίδας / Αυτόματη αποθήκευση / Αυτόματη απόσπαση / Αυτόματη συμπίεση ...
🌟 Διασύνδεση Magic: 😊Περισσότερα όμορφα και δροσερά emojis / Ενισχύστε την παραγωγικότητά σας στο Outlook με προβολές με καρτέλες / Ελαχιστοποιήστε το Outlook αντί να κλείσετε ...
???? Με ένα κλικ Wonders: Απάντηση σε όλους με εισερχόμενα συνημμένα / Email κατά του phishing / 🕘Εμφάνιση ζώνης ώρας αποστολέα ...
👩🏼🤝👩🏻 Επαφές & Ημερολόγιο: Μαζική προσθήκη επαφών από επιλεγμένα μηνύματα ηλεκτρονικού ταχυδρομείου / Διαχωρίστε μια ομάδα επαφής σε μεμονωμένες ομάδες / Κατάργηση υπενθυμίσεων γενεθλίων ...
Διανεμήθηκαν παραπάνω από 100 Χαρακτηριστικά Περιμένετε την εξερεύνηση σας! Κάντε κλικ εδώ για να ανακαλύψετε περισσότερα.