Πώς να ταξινομήσετε τα 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 κλειδί για την εκτέλεση αυτού του κώδικα και όλα τα μηνύματα ηλεκτρονικού ταχυδρομείου στον επιλεγμένο φάκελο Εισερχόμενα ταξινομούνται ανά συγκεκριμένο μήνα του χρόνου λήψης των μηνυμάτων, δείτε στιγμιότυπο οθόνης: