Հաշվեք նամակները ըստ կատեգորիաների Outlook- ում `Անմիջական որոնում հնարավորությամբ

Հաշվեք նամակները ըստ կատեգորիաների Outlook- ում VBA- ի հետ

Այս մեթոդը կօգնի ձեզ `պարզելու բոլոր այն էլ-նամակները, որոնք նշված են գույների նշված կատեգորիաներով Լուծվող Որոնել հատկությունը, ապա հեշտությամբ ստացեք որոնման բոլոր արդյունքների ընդհանուր թիվը Կարգավիճակի տող.

1. Մեջ փոստ դիտել, սեղմել Ctrl + E ստեղները միաժամանակ ակտիվացնելու համար Որոնում գործիքներ.

2: սեղմեք Որոնել > Կատեգորիա, ապա ընտրեք գույների նշված կատեգորիան, որով դուք հաշվելու եք էլ. փոստերը:

3. Այժմ նշված գույների նշված կատեգորիայի հետ նշված բոլոր էլ.փոստերը պարզվում են և նշված են փոստի ցուցակում: Եվ որոնման բոլոր արդյունքների ընդհանուր թիվը հեշտությամբ կարող եք ստանալ կարգավիճակի տողում: Տեսեք,

Նշումներ:

(1) փոստով նշված էլեկտրոնային հասցեները հաշվելու համար Դեղին կատեգորիա և Նարնջագույն կատեգորիա միաժամանակ մուտքագրեք որոնման չափանիշները կատեգորիա: = «Դեղին կատեգորիա» ԵՎ «Նարնջագույն կատեգորիա» մեջ Լուծվող Որոնել արկղ ուղղակիորեն:

(2) փոստով նշված էլեկտրոնային հասցեները հաշվելու համար Դեղին կատեգորիա or Նարնջագույն կատեգորիա միաժամանակ մուտքագրեք որոնման չափանիշները կատեգորիա: = «Դեղին կատեգորիա» ԿԱՄ «Նարնջագույն կատեգորիա» մեջ Լուծվող Որոնել արկղ ուղղակիորեն:

Այս մեթոդը կներկայացնի VBA ՝ Outlook- ում անհատական ​​ամսաթվերի տիրույթում էլ-նամակները հաշվելու համար: Խնդրում ենք անել հետևյալը.

1. Մեջ փոստ դիտել, ընտրեք էլփոստի թղթապանակը, որը դուք կհաշվեք էլփոստերը:

2. Մամուլ ալտ + F11 միաժամանակ ստեղներ ՝ Microsoft Visual Basic հավելվածների համար պատուհանը բացելու համար:

3: սեղմեք Տեղադրել > Մոդուլներև ապա տեղադրեք VBA կոդի տակ ՝ նոր բացվող Մոդուլի պատուհանում.

VBA. Հաշվեք էլփոստերը ըստ կատեգորիաների Outlook- ում

Sub CategoriesEmails()

Dim oFolder As MAPIFolder
Dim oDict As Object
Dim sStartDate As String
Dim sEndDate As String
Dim oItems As Outlook.Items
Dim sStr As String
Dim sMsg As String


On Error Resume Next
Set oFolder = Application.ActiveExplorer.CurrentFolder

Set oDict = CreateObject("Scripting.Dictionary")

sStartDate = InputBox("Type the start date (format MM/DD/YYYY)")
sEndDate = InputBox("Type the end date (format MM/DD/YYYY)")

Set oItems = oFolder.Items.Restrict("[Received] >= '" & sStartDate & "' And [Received] <= '" & sEndDate & "'")
oItems.SetColumns ("Categories")

For Each aitem In oItems
sStr = aitem.Categories
If Not oDict.Exists(sStr) Then
oDict(sStr) = 0
End If
oDict(sStr) = CLng(oDict(sStr)) + 1
Next aitem

sMsg = ""
For Each aKey In oDict.Keys
sMsg = sMsg & aKey & ":   " & oDict(aKey) & vbCrLf
Next
MsgBox sMsg

Set oFolder = Nothing

 End Sub

4. Սեղմեք F5 ստեղնաշարի վրա կամ սեղմեք Run կոճակը ՝ այս VBA- ն գործարկելու համար:

5. (1) Microsoft Outlook երկխոսության տուփի առաջին պատուհանում մուտքագրեք մաքսային ամսաթվերի տիրույթի մեկնարկի ամսաթիվը, որի մեջ դուք հաշվելու եք էլ. Փոստերը և կտտացրեք OK կոճակը: (2) Երկրորդ Microsoft Outlook երկխոսության դաշտում մուտքագրեք ավարտի ամսաթիվը և կտտացրեք այն OK կոճակ Տեսեք սքրինշոթերը.

Եվ հիմա դուրս է գալիս երկխոսության տուփ և ցուցադրվում են գունային կատեգորիաներով նշված նամակների քանակը: Տեսեք,

Հաշվեք որոնման արդյունքների ընդհանուր քանակը Outlook- ում

Հաշվեք ժամերը / օրերը / շաբաթները, որոնք անցկացվել են հանդիպման կամ հանդիպման համար Outlook- ում

Outlook- ում հաշվի առնելով էլ. Փոստի քանակը

Outlook- ում հաշվեք մուտքային էլ.փոստի ընդհանուր քանակը

Հաշվեք ընտրված էլփոստի ընդհանուր քանակը Outlook- ում