כיצד לקבץ ולמיין הודעות דואר אלקטרוני לפי חודש ב-Outlook?

Author: Kelly Last Modified: 2025-05-30

הודעות הדואר ממוינות כברירת מחדל לפי תאריך קבלה בתיבת הדואר הנכנס של Outlook. עם זאת, אין פקודה למיין או לקבץ את כל הודעות הדואר לפי החודש בו התקבלו. כאן אני אציג דרך לקבץ ולמיין את כל הודעות הדואר לפי חודש ב-Outlook.

לקבץ או למיין הודעות דואר אלקטרוני לפי חודש ב-Outlook באמצעות קוד VBA

לקבץ או למיין הודעות דואר אלקטרוני לפי חודש ב-Outlook באמצעות קוד VBA

השיטה הזו תדריך אתכם ליצור עמודה חדשה בשם חודש, לאחר מכן להפעיל מאקרו VBA כדי לחלץ את החודש בו התקבלה ההודעה לעמודה החדשה, ואז תוכלו למיין או לקבץ את כל הודעות הדואר לפי עמודת החודש ב-Outlook.

1. פתחו תיקיית דואר שבה תמיינו או תקבצו הודעות דואר לפי חודש, ולחצו על הגדרות תצוגה בלשונית תצוגה ב-Outlook 2010 והגרסאות החדשות יותר.

doc sort emails by month 1

הערה: ב-Outlook 2007, ניתן ללחוץ על תצוגה > תצוגה נוכחית > התאם אישית לתצוגה הנוכחית.

2. בחלון הגדרות תצוגה מתקדמות/התאם אישית לתצוגה שהופיע, לחצו על כפתור העמודות (או שדות ).

doc sort emails by month 2

3. בחלון הצג עמודות/שדות, לחצו על כפתור עמודה חדשה (או שדה חדש) כדי לפתוח את חלון עמודה חדשה/שדה חדש, הקלידו חודש בתיבה שם, השאירו טקסט מסומן בשתי תיבות סוג ותבנית, ולאחר מכן לחצו על כפתור אישור. ראו צילום מסך למטה:

doc sort emails by month 3

4. כעת חזרתם לחלון הצג עמודות/שדות, לחצו כדי לבחור את פריט החודש בתיבת הצג את העמודות האלו (או שדות) בסדר הזה, והעבירו אותו מתחת לתאריך קבלה על ידי לחיצה על כפתור העברה למעלה, ולבסוף לחצו על כפתור אישור .

doc sort emails by month 4

5. לחצו על כפתור אישור כדי לסגור את חלון הגדרות תצוגה מתקדמות/התאם אישית לתצוגה.

6. בחרו את כל הודעות הדואר בתיקייה הפתוחה על ידי בחירת כל הודעה דוא"ל ולאחר מכן לחצו על מקשי Ctrl + A בו זמנית.

הערה: אם חלון קריאה פתוח, אנא סגרו אותו על ידי לחיצה על תצוגה > חלון קריאה > כבוי.

7. פתחו את חלון Microsoft Visual Basic for Applications על ידי לחיצה על מקשי Alt + 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 sort emails by month 5

הערה: כדי לקבץ את כל הודעות הדואר לפי חודש בתיקייה הפתוחה, לחצו לחיצה ימנית על הכותרת של עמודת החודש, ולאחר מכן בחרו את קבץ לפי שדה זה מהתפריט שנפתח. ראו צילום מסך:

doc sort emails by month 6

עוזר דוא"ל בינה מלאכותית ב-Outlook: תשובות חכמות יותר, תקשורת ברורה יותר (קסם בלחיצה אחת!) בחינם

פשט את משימות Outlook היומיות שלך עם עוזר הדוא"ל AI מ-Kutools עבור Outlook. כלי חזק זה לומד מדוא"לים קודמים שלך כדי להציע תשובות חכמות ומדויקות, לייעל את תוכן הדוא"ל שלך, ולעזור לך לנסח ולשפר הודעות ללא מאמץ.

תכונה זו תומכת:

תשובות חכמות: קבל תשובות המבוססות על שיחות קודמות שלך - מותאמות, מדויקות ומוכנות לשימוש.
תוכן משופר: שפר אוטומטית את טקסט הדוא"ל שלך למען בהירות ותגובה.
כתיבה ללא מאמץ: רק ספק מילות מפתח, ותן ל-AI לטפל בשאר, עם סגנונות כתיבה מרובים.
הרחבת תכנים חכמה: הרחב את מחשבותיך עם הצעות מודעות הקשר.
סיכום: קבל סקירות קצרות של הודעות דוא"ל ארוכות באופן מיידי.
הישג גלובלי: תרגם את הודעות הדוא"ל שלך לכל שפה בקלות.

תכונה זו תומכת: