Μετάβαση στο κύριο περιεχόμενο

Πώς να ομαδοποιήσετε και να ταξινομήσετε μηνύματα ηλεκτρονικού ταχυδρομείου ανά μήνα στο Outlook;

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

Ομαδοποιήστε ή ταξινομήστε τα μηνύματα ηλεκτρονικού ταχυδρομείου ανά μήνα στο Outlook χρησιμοποιώντας τον κώδικα VBA


Ομαδοποιήστε ή ταξινομήστε τα μηνύματα ηλεκτρονικού ταχυδρομείου ανά μήνα στο Outlook χρησιμοποιώντας τον κώδικα VBA

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

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

doc ταξινόμηση email ανά μήνα 1

Σημείωση: Στο Outlook 2007, μπορείτε να κάνετε κλικ στο Δες > Τρέχουσα προβολή > Προσαρμόστε την τρέχουσα προβολή.

2. Στο ερχόμενο Ρυθμίσεις προβολής για προχωρημένους / Προσαρμογή προβολής , κάντε κλικ στο Στήλες κουμπί (ή Πεδία κουμπί).

doc ταξινόμηση email ανά μήνα 2

3. Στο Εμφάνιση στήλης / πεδίων , κάντε κλικ στο Νέα στήλη κουμπί (ή Νέο πεδίο κουμπί) για να ανοίξετε το παράθυρο διαλόγου Νέα στήλη / πεδίο, πληκτρολογήστε Μήνας στο Όνομα κουτί, κρατήστε Κείμενο επιλέχθηκε και στα δύο Χαρακτηριστικά κουτί και Μορφή πλαίσιο και, στη συνέχεια, κάντε κλικ στο OK κουμπί. Δείτε το στιγμιότυπο οθόνης παρακάτω:

doc ταξινόμηση email ανά μήνα 3

4.  Τώρα επιστρέφετε στο Εμφάνιση στηλών / πεδίων πλαίσιο διαλόγου, κάντε κλικ για να επιλέξετε το Μήνας στοιχείο στο Εμφάνιση αυτών των στηλών Πεδία) με αυτή τη σειρά και μετακινήστε το κάτω από το Λήψη κάνοντας κλικ στο Μετακίνηση επάνω κουμπί και, τέλος, κάντε κλικ στο OK κουμπί.

doc ταξινόμηση email ανά μήνα 4

5. Κάντε κλικ στο OK για να κλείσετε το Ρυθμίσεις προβολής για προχωρημένους / Προσαρμογή προβολής κουτί διαλόγου.

6. Επιλέξτε όλα τα email στο φάκελο ανοίγματος επιλέγοντας οποιοδήποτε email και μετά πιέστε το Ctrl + A ταυτόχρονα.

Note: Αν το Πλαίσιο ανάγνωσης ενεργοποιείται, κλείστε το κάνοντας κλικ στο Δες > Πλαίσιο ανάγνωσης > Εκτός.

7. Ανοιξε το Microsoft Visual Basic για εφαρμογές παράθυρο με το πάτημα του άλλος + F11 εν τω μεταξύ, και στη συνέχεια κάντε κλικ στο Κύριο θέμα > Μονάδα μέτρησης.

8. Επικολλήστε την ακόλουθη μακροεντολή VBA στη λειτουργική μονάδα:

VBA: Ταξινόμηση ή ομαδική αλληλογραφία ανά μήνα

Sub ListSelectionMonth()
	Dim aObj As Object
	Dim oProp As Outlook.UserProperty
	Dim sMonth
	
	On Error Resume Next
	
	For Each aObj In Application.ActiveExplorer.Selection
		Set oMail = aObj
		
		sMonth = Month(oMail.ReceivedTime)
		Set oProp = oMail.UserProperties.Add("Month", olText, True)
		oProp.Value = sMonth
		oMail.Save
		
		Err.Clear
	Next
	
End Sub

9. Πάτα το F5 κλειδί για την εκτέλεση αυτής της μακροεντολής VBA.

10. Τώρα κάθε μήνας που λαμβάνεται μέσω ηλεκτρονικού ταχυδρομείου εξάγεται στα ακόλουθα Μήνας στήλη. Για να ταξινομήσετε όλα τα μηνύματα ανά μήνα σε αυτόν τον φάκελο ανοίγματος, απλώς κάντε κλικ στην κεφαλίδα της στήλης του Μήνας. Δείτε το στιγμιότυπο οθόνης:

doc ταξινόμηση email ανά μήνα 5

Note: Για να ομαδοποιήσετε όλα τα μηνύματα ηλεκτρονικού ταχυδρομείου ανά μήνα σε αυτόν τον φάκελο ανοίγματος, κάντε δεξί κλικ στην κεφαλίδα της στήλης του Μήνας, και στη συνέχεια επιλέξτε το Ομαδοποίηση ανά πεδίο από το μενού με δεξί κλικ. Δείτε το στιγμιότυπο οθόνης:

doc ταξινόμηση email ανά μήνα 6


Τα καλύτερα εργαλεία παραγωγικότητας γραφείου

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 Χαρακτηριστικά Περιμένετε την εξερεύνηση σας! Κάντε κλικ εδώ για να ανακαλύψετε περισσότερα.

 

 

Comments (14)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
I have Outlook 2007 and have try that VBA. First I did have the problem that only 1 E-Mail of all get the month show.
I needed to mark all E-Mails first and then push in VBA F5 to show in all E-Mails the month.

a bad part of that code is that all month (1, 2, 3, 4, 5, 6, 7, 8, 9) get grouped on the wrong position in front of 10, 11, 12
is there any additional VBA sequence what add to the first 9 Month a 0? ergo 01, 02, 03 etc?

as I have several years in some folders it make sense to group those E-Mails first by year and after that by Month.
This comment was minimized by the moderator on the site
Strange.
Made a restart. Now it works.Sorry for bothering.
Thx again :) <3
This comment was minimized by the moderator on the site
Sorry. Didn't saw that the page is origin in english. #emabarrased
Google translate is getting better. :D
Hello from Hamburg,
great stuff. Thanks for this. :)
Only a small problem.
I had first adapted the code so that it puts the year and month together for me.

Sub ListSelectionYearMonth()
Dim aObj As Object
Dim oProp As Outlook.UserProperty
Dim oMail As Object
Dim sMonth
Dim sYear
Dim sYearMonth

On Error Resume Next

For Each aObj In Application.ActiveExplorer.Selection
Set oMail = aObj

sMonth = Month(oMail.ReceivedTime)
sYear = Year(oMail.ReceivedTime)

If sMonth < 10 Then
sMonth = 0 & sMonth
Else
sMonth = sMonth
End If

sYearMonth = sYear & "/" & sMonth
Set oProp = oMail.UserProperties.Add("YearMonth", olText, True)
oProp.Value = sYearMonth
oMail.Save

Err.Clear
Next

End Sub

This worked wonderfully.
Now I noticed in a folder that a grouping first by year and then by month increases the clarity.
I used the original code.
However, the column there remains empty.

Sub ListSelectionMonth()
Dim aObj As Object
Dim oProp As Outlook.UserProperty
Dim oMail As Object
Dim sMonth

On Error Resume Next

For Each aObj In Application.ActiveExplorer.Selection
Set oMail = aObj

sMonth = Month(oMail.ReceivedTime)

If sMonth < 10 Then
sMonth = 0 & sMonth
Else
sMonth = sMonth
End If

Set oProp = oMail.UserProperties.Add("Month", olText, True)
oProp.Value = sMonth
oMail.Save

Err.Clear
Next

End Sub

I'm a bit perplexed at the moment.

Glad about any advice

VG
Armin


Translated with http://www.DeepL.com/Translator (free version)
This comment was minimized by the moderator on the site
Hallo aus Hamburg,super Sache. Danke dafür. :)Kleines Problem nur.Ich hatte zuerst den Code so angepasst das er mir Jahr und Monat zusammensetzt.
Sub ListSelectionYearMonth()
Dim aObj As Object
Dim oProp As Outlook.UserProperty
Dim oMail As Object
Dim sMonth
Dim sYear
Dim sYearMonth

On Error Resume Next

For Each aObj In Application.ActiveExplorer.Selection
Set oMail = aObj

sMonth = Month(oMail.ReceivedTime)
sYear = Year(oMail.ReceivedTime)

If sMonth < 10 Then
sMonth = 0 & sMonth
Else
sMonth = sMonth
End If

sYearMonth = sYear & "/" & sMonth
Set oProp = oMail.UserProperties.Add("JahrMonat", olText, True)
oProp.Value = sYearMonth
oMail.Save

Err.Clear
Next

End Sub

Hat wunderbar geklappt.Nun ist mir in einem Ordner aufgefallen das eine Gruppierung zuersnach Jahr und dann nach Monat die Übersichtlichkeit noch erhöht.Habe als den ursprünglichen Code genommen.Dort bleibt dann allerdings die Spalte leer.
Sub ListSelectionMonth()
Dim aObj As Object
Dim oProp As Outlook.UserProperty
Dim oMail As Object
Dim sMonth

On Error Resume Next

For Each aObj In Application.ActiveExplorer.Selection
Set oMail = aObj

sMonth = Month(oMail.ReceivedTime)

If sMonth < 10 Then
sMonth = 0 & sMonth
Else
sMonth = sMonth
End If

Set oProp = oMail.UserProperties.Add("Monat", olText, True)
oProp.Value = sMonth
oMail.Save

Err.Clear
Next

End Sub

Macht mich grad etwas ratlos.
Freue mich über jeden Rat
VGArmin
This comment was minimized by the moderator on the site
This will also help.
This comment was minimized by the moderator on the site
The code works as in the article. But it does not apply to new letters. Every time you need to go to the created module in the Visual Basik and press F5.
This comment was minimized by the moderator on the site
I used the above vba and let me begin by saying this does help in micro management which is not available by default. this is beneficial for archival and storage and not something supposed to work automatically for incoming email. I was able to modify this a bit and also add a year column. So for all emails I was able to get a month and year so that I can group and then regroup (by year and then by month). What I did find however is there is some kind of limitation to the number of items it goes through and then exists (not sure why). For example if I were to select a folder with 18k-19k emails, it will loop only through some and then at the end of the run it will not update all the emails with the required. However if you run in smaller batches then it runs perfectly fine. The painful part here is to keep on selecting in batches. This is a pain for people like me who wish to manage or rather arrange years or emails that runs in a 6 figures in numbers. Anyone here been able to figure this out out or willing to go on a troubleshooting spree to fix this or how this can be addressed ?
This comment was minimized by the moderator on the site
That is, I want to group mails by subject and put the group with maximum mails on the top. How can I do that?
This comment was minimized by the moderator on the site
I want to :

1. Group mails by subject

2. Sort them by number of e-mails inside the group

How can I do achieve this?
This comment was minimized by the moderator on the site
I want this too
This comment was minimized by the moderator on the site
Is it possible to create VBA macro to group and sort emails by week?
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations