Ինչպե՞ս դասակարգել նամակներն ըստ ամիսների Outlook-ում:

Եթե ձեր մուտքի արկղում շատ նամակներ կան, փոստարկղը կոկիկ և կազմակերպված տեսք ունենալու համար կարող եք դրանք պահել կամ արխիվացնել տարբեր թղթապանակներում՝ հիմնվելով նամակների ստացման ժամանակի կոնկրետ ամսվա վրա, ինչպես ցույց է տրված ստորև ներկայացված սքրինշոթը: Սովորաբար, դուք կարող եք ստեղծել թղթապանակները ձեռքով, այնուհետև դրանք մեկ առ մեկ տեղափոխել: Ակնհայտ է, որ այս մոտեցումը կլինի ժամանակատար և անհանգստացնող: Այս հոդվածում ես կխոսեմ այս խնդիրը արագ և հեշտությամբ լուծելու VBA կոդի մասին:

Նամակները դասակարգեք ըստ ամսվա՝ VBA կոդով

Նամակները տարբեր թղթապանակներ ըստ ամսվա տեղափոխելու համար խնդրում ենք կիրառել ստորև նշված VBA կոդը.

1. Սեղմեք՝ ընտրելու համար Inbox թղթապանակ, որը ցանկանում եք դասակարգել էլ.

2, Պահեք պահեք ALT + F11 բացել ստեղները Microsoft Visual Basic հավելվածների համար պատուհան.

3: սեղմեք Տեղադրել > Մոդուլներև տեղադրեք հետևյալ կոդը Մոդուլի պատուհանում:

VBA կոդ. Դասակարգել էլ. նամակները ըստ ամսվա

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 այս կոդը գործարկելու բանալին, և ընտրված Մուտքի թղթապանակում գտնվող բոլոր նամակները դասակարգվում են ըստ նամակների ստացման ժամանակի որոշակի ամսվա, տես սքրինշոթը.