आउटलुक में महीने के हिसाब से ईमेल को कैसे वर्गीकृत करें?

लेखक: ज़ियाओयांग अंतिम संशोधित: 2022-10-19

यदि आपके इनबॉक्स में बहुत सारे ईमेल हैं, तो मेलबॉक्स को साफ-सुथरा और सुव्यवस्थित दिखाने के लिए, आप ईमेल के प्राप्त समय के विशिष्ट महीने के आधार पर उन्हें अलग-अलग फ़ोल्डरों में संग्रहीत या संग्रहीत कर सकते हैं, जैसा कि नीचे स्क्रीनशॉट में दिखाया गया है। आम तौर पर, आप फ़ोल्डरों को मैन्युअल रूप से बना सकते हैं और फिर उन्हें एक-एक करके स्थानांतरित कर सकते हैं। जाहिर है, यह दृष्टिकोण समय लेने वाला और परेशानी भरा होगा। इस लेख में, मैं इस कार्य को जल्दी और आसानी से हल करने के लिए VBA कोड के बारे में बात करूंगा।

VBA कोड के साथ महीने के आधार पर ईमेल को वर्गीकृत करें

ईमेल को महीने के आधार पर विभिन्न फ़ोल्डरों में ले जाने के लिए, कृपया नीचे दिया गया VBA कोड लागू करें:

1. का चयन करने के लिए क्लिक करें इनबॉक्स वह फ़ोल्डर जिसमें आप ईमेल को वर्गीकृत करना चाहते हैं।

2. दबाए रखें ALT + F11 कुंजी को खोलने के लिए अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.

3। क्लिक करें सम्मिलित करें > मॉड्यूल, और मॉड्यूल विंडो में निम्नलिखित कोड पेस्ट करें।

वीबीए कोड: ईमेल को महीने के आधार पर वर्गीकृत करें

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 इस कोड को निष्पादित करने के लिए कुंजी, और चयनित इनबॉक्स फ़ोल्डर में सभी ईमेल को ईमेल के प्राप्त समय के विशिष्ट महीने के अनुसार वर्गीकृत किया गया है, स्क्रीनशॉट देखें: