Note: The other languages of the website are Google-translated. Back to English

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


Kutools Outlook- ի համար. 100 առաջադեմ առանձնահատկություններ է բերում Outlook- ին և շատ ավելի հեշտացնում աշխատանքը:

  • Auto CC / BCC կանոններով `էլ. նամակ ուղարկելիս; Ավտոմեքենաների փոխանցում Բազմաթիվ նամակներ ըստ սովորույթի; Ավտոմատ պատասխան առանց փոխանակման սերվերի և ավելի ավտոմատ հատկությունների ...
  • Նախազգուշացում BCC- ի համար - ցույց տալ հաղորդագրությունը, երբ փորձում ես պատասխանել բոլորին եթե ձեր փոստի հասցեն գտնվում է BCC ցուցակում; Հիշեցրեք հավելվածները բաց թողնելիսև ավելին հիշեցնում են հատկությունները ...
  • Պատասխանեք (բոլորը) փոստի խոսակցության բոլոր կցորդներով; Պատասխանեք շատ նամակների վայրկյանների ընթացքում; Ավտոմատ ավելացնել ողջույնները երբ պատասխանել; Ավելացնել ամսաթիվը վերնագրում ...
  • Կցման գործիքներ. Կառավարեք բոլոր կցորդները բոլոր փոստերում, Ավտոմատ անջատում, Սեղմել բոլորը, Վերանվանել բոլորը, պահպանել բոլորը ... Արագ զեկույց, Հաշվեք ընտրված նամակները...
  • Հզոր անպիտան նամակներ ըստ սովորույթի; Հեռացրեք կրկնօրինակ նամակները և կոնտակտները... Հնարավորություն տվեք Outlook- ում ավելի խելացի, արագ և լավ կատարել:
shot kutools Outlook kutools էջանիշ 1180x121
shot kutools Outlook kutools գումարած ներդիր 1180x121
 
Տեսակավորել մեկնաբանությունները ըստ
մեկնաբանություններ (0)
Դեռևս գնահատականներ չկան: Եղիր առաջինը, ով կգնահատի:
Առայժմ ոչ մի մեկնաբանություն չկա
Թողեք ձեր մեկնաբանությունները
Հրապարակում որպես հյուր
×
Գնահատեք այս գրառումը.
0   Անձնավորություններ
Առաջարկվող վայրեր