Ինչպե՞ս արագ հաշվարկել ուղարկված նամակները ամսվա կտրվածքով ձեր Outlook- ում

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

Նախորդ հոդվածը ՝ «Ինչպե՞ս արագ հաշվել մուտքային էլ.փոստերը ըստ Ամսաթվի, ամսվա կամ տարվա Outlook VBA- ի միջոցով”-Ը կիսել է էլփոստերը ըստ ամիսների հաշվելու եղանակը: Այնուամենայնիվ, այն ի վիճակի է մեկ թղթապանակում մշակել նամակները: Եթե ​​ցանկանում եք հաշվել էլ.փոստերը փոստի մի քանի կամ նույնիսկ բոլոր թղթապանակներում, ապա պետք է օգտագործեք այլ միջոցներ: Այսպիսով, հետևյալում մենք ձեզ կբացահայտենք մեկ այլ շատ ավելի արագ ձև:

Հաշվեք ուղարկված էլ-նամակները ըստ ամսվա

1. Սկզբից մուտք գործեք Outlook VBA խմբագիր «Alt + F11» - ի միջոցով:
2. Դրանից հետո միացրեք հղումը «MS Excel Object Library »ըստ«Ինչպես ավելացնել օբյեկտ Library Հղում VBA- ում".
3. Դրանից հետո տեղադրեք հետևյալ VBA կոդը ծրագրի կամ մոդուլի մեջ:

Dim objDictionary As Object

Sub CountSentMailsByMonth()
    Dim objOutlookFile As Outlook.Folder
    Dim objFolder As Outlook.Folder
    Dim objExcelApp As Excel.Application
    Dim objExcelWorkbook As Excel.Workbook
    Dim objExcelWorksheet As Excel.Worksheet
    Dim varMonths As Variant
    Dim varItemCounts As Variant
    Dim nLastRow As Integer
 
    Set objDictionary = CreateObject("Scripting.Dictionary")
    Set objInbox = Outlook.Application.Session.GetDefaultFolder(olFolderInbox)
 
    'Get the default Outlook data file
    Set objOutlookFile = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Parent
 
    For Each objFolder In objOutlookFile.Folders
        If objFolder.DefaultItemType = olMailItem Then
           Call ProcessFolders(objFolder)
        End If
    Next

    Set objExcelApp = CreateObject("Excel.Application")
    objExcelApp.Visible = True
    Set objExcelWorkbook = objExcelApp.Workbooks.Add
    Set objExcelWorksheet = objExcelWorkbook.Sheets(1)
 
    With objExcelWorksheet
        .Cells(1, 1) = "Month"
        .Cells(1, 2) = "Count"
    End With
 
    varMonths = objDictionary.Keys
    varItemCounts = objDictionary.Items
 
    For i = LBound(varMonths) To UBound(varMonths)
        nLastRow = objExcelWorksheet.Range("A" & objExcelWorksheet.Rows.Count).End(xlUp).Row + 1
        With objExcelWorksheet
            .Cells(nLastRow, 1) = varMonths(i)
            .Cells(nLastRow, 2) = varItemCounts(i)
        End With
    Next
 
    objExcelWorksheet.Columns("A:B").AutoFit
End Sub

Sub ProcessFolders(ByVal objCurFolder As Outlook.Folder)
    Dim i As Long
    Dim objMail As Outlook.MailItem
    Dim strMonth As String
 
    For i = objCurFolder.Items.Count To 1 Step -1
        If objCurFolder.Items(i).Class = olMail Then
           Set objMail = objCurFolder.Items(i)
           'Change to your own email address
           If objMail.SenderEmailAddress = "you@datanumen.com" Then
              strMonth = Format(Year(objMail.SentOn) & "-" & Month(objMail.SentOn), "YYYY/MM")
 
              If objDictionary.Exists(strMonth) Then
                 objDictionary(strMonth) = objDictionary(strMonth) + 1
              Else
                 objDictionary.Add strMonth, 1
              End If
           End If
       End If
    Next
End Sub

4. Հաջորդը, կուրսորը տեղափոխեք առաջին ենթածրագիր:
5. Հետևաբար, սեղմեք «F5» ՝ այս մակրոը գործարկելու համար:
6. Միանգամից կհայտնվի Excel ֆայլ, որը պարունակում է ամեն ամիս ուղարկված էլ-նամակների քանակը, ինչպես ցույց է տրված ստորև նկարում:

Մի խուճապի մատնեք հեռանկարային կոռուպցիայի դեմ

Դուք կարող եք հակված լինել անհանգստանալու, երբ հանդիպում եք PST- ի վնասին: Սակայն իրականում ավելի լավ է հնարավորինս շուտ հանգստանաք: Ինչպես բոլորս գիտենք, խուճապն անօգնական է և նույնիսկ տանում է ավելի քաոսային և լուրջ խնդիրների: Դուք պետք է հանգիստ լինեք ՝ հաշվի առնելով միջոցները, օրինակ ՝ մտածել այն մասին, արդյո՞ք թարմացրել եք կրկնօրինակը և հաշվի առնել, թե ինչպես դա անել վերանորոգել PST - արդյո՞ք դիմել երրորդ կողմի գործիքի նման DataNumen Outlook Repair կամ դիմել համապատասխան մասնագետների:

Հեղինակի ներածություն.

Shirley Zhang- ը տվյալների վերականգման փորձագետ է DataNumen, Inc., որը տվյալների վերականգման տեխնոլոգիաների համաշխարհային առաջատարն է, այդ թվում վերանորոգել mdf և հեռանկարների նորոգման ծրագրակազմի արտադրանքները: Լրացուցիչ տեղեկությունների համար այցելեք www.datanumen.com