Note: The other languages of the website are Google-translated. Back to English

Πώς να ταξινομήσετε τα email ανά μήνα στο Outlook;

Εάν υπάρχουν πολλά μηνύματα ηλεκτρονικού ταχυδρομείου στα Εισερχόμενά σας, για να κάνετε το γραμματοκιβώτιο να φαίνεται τακτοποιημένο και καλά οργανωμένο, μπορείτε να τα αποθηκεύσετε ή να τα αρχειοθετήσετε σε διαφορετικούς φακέλους με βάση τον συγκεκριμένο μήνα της ώρας λήψης των μηνυμάτων, όπως φαίνεται στο παρακάτω στιγμιότυπο οθόνης. Κανονικά, μπορείτε να δημιουργήσετε τους φακέλους με μη αυτόματο τρόπο και στη συνέχεια να τους μετακινήσετε έναν προς έναν. Προφανώς, αυτή η προσέγγιση θα είναι χρονοβόρα και ενοχλητική. Σε αυτό το άρθρο, θα μιλήσω για έναν κώδικα VBA για την γρήγορη και εύκολη επίλυση αυτής της εργασίας.


Ταξινόμηση των email με βάση τον μήνα με κωδικό VBA

Για να μετακινήσετε τα μηνύματα ηλεκτρονικού ταχυδρομείου σε διαφορετικούς φακέλους με βάση τον μήνα, εφαρμόστε τον παρακάτω κώδικα VBA:

1. Κάντε κλικ για να επιλέξετε το εισερχομένων φάκελο που θέλετε να ταξινομήσετε τα email.

2. Κρατήστε πατημένο το ALT + F11 για να ανοίξετε το Microsoft Visual Basic για εφαρμογές παράθυρο.

3. κλικ Κύριο θέμα > Μονάδα μέτρησηςκαι επικολλήστε τον ακόλουθο κώδικα στο παράθυρο της ενότητας.

Κωδικός VBA: Ταξινόμηση των email με βάση τον μήνα

Sub ClassifyEmailsbyMonth()
'Updateby ExtendOffice
Dim xCurFolder As Folder
Dim xMoveFolder As Folder
Dim xMail As MailItem
Dim I As Long
Dim xYear As String, xMonth As String
On Error Resume Next
Set xCurFolder = Application.ActiveExplorer.CurrentFolder
For I = xCurFolder.Items.Count To 1 Step -1
  DoEvents
  If xCurFolder.Items.Item(I).Class = olMail Then
    Set xMail = xCurFolder.Items.Item(I)
    xYear = Year(xMail.ReceivedTime)
    xMonth = Month(xMail.ReceivedTime)
    Set xMoveFolder = Nothing
    Set xMoveFolder = xCurFolder.Folders(xYear & "." & xMonth)
    If xMoveFolder Is Nothing Then
      Set xMoveFolder = xCurFolder.Folders.Add(xYear & "." & xMonth)
    End If
    xMail.Move xMoveFolder
  End If
Next
Set xMoveFolder = Nothing
Set xCurFolder = Nothing
End Sub

4. Στη συνέχεια, πατήστε F5 κλειδί για την εκτέλεση αυτού του κώδικα και όλα τα μηνύματα ηλεκτρονικού ταχυδρομείου στον επιλεγμένο φάκελο Εισερχόμενα ταξινομούνται ανά συγκεκριμένο μήνα του χρόνου λήψης των μηνυμάτων, δείτε στιγμιότυπο οθόνης:


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

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