Paano Mabilis na Bilangin ang Mga Naipadala na Email sa pamamagitan ng Buwan sa iyong Outlook

Kung nag-iimbak ka ng mga ipinadalang email sa maraming mga folder at nais mong bilangin ang lahat ng mga ipinadalang mail na buwan, maaari mong basahin ang artikulong ito. Dito ay ipakikilala namin ang isang napakabilis na paraan upang makuha ito.

Ang nakaraang artikulo - "Paano Mabilis na Mabilang ang Mga Papasok na Email sa pamamagitan ng Petsa, Buwan o Taon sa pamamagitan ng Outlook VBA”Ay nagbahagi ng isang paraan upang mabilang ang mga email ayon sa buwan. Gayunpaman, nagagawa nitong iproseso ang mga email sa isang folder. Kung nais mong bilangin ang mga email sa marami o kahit na sa lahat ng mga folder ng mail, dapat mong gamitin ang iba pang mga paraan. Sa gayon, sa mga sumusunod, ilalantad namin ang isa pang mas mabilis na paraan sa iyo.

Bilangin ang Mga Naipadala na Email ayon sa Buwan

1. Upang magsimula, i-access ang editor ng VBA ng Outlook sa pamamagitan ng "Alt + F11".
2. Pagkatapos, paganahin ang sanggunian sa "MS Excel Object Library "ayon sa"Paano Magdagdag ng isang Object Library Sanggunian sa VBA".
3. Pagkatapos nito, ilagay ang sumusunod na VBA code sa isang proyekto o module.

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. Susunod, ilipat ang cursor sa unang subroutine.
5. Kasunod, pindutin ang "F5" upang ma-trigger ang macro na ito.
6. Nang sabay-sabay, lalabas ang isang file na Excel, na naglalaman ng mga bilang ng ipinadalang mga email sa bawat buwan, tulad ng ipinakita sa pigura sa ibaba.

Huwag Panic sa Mukha ng Korapsyon sa Outlook

Maaari kang magkaroon ng pag-aalala kapag nakakaranas ng pinsala sa PST. Gayunpaman, sa totoo lang, mas mabuti kang huminahon sa lalong madaling panahon. Tulad ng alam nating lahat, ang gulat ay walang magawa at humantong pa sa mas magulo at seryosong mga problema. Dapat kang manatiling kalmado upang isaalang-alang ang mga hakbang, tulad ng pag-iisip kung mayroon kang na-update na backup at isaalang-alang kung paano ayusin ang PST - Kung gagamitin ang tool ng third party tulad ng DataNumen Outlook Repair o makipag-ugnay sa mga nauugnay na propesyonal.

Panimula ng May-akda:

Si Shirley Zhang ay isang dalubhasa sa pagbawi ng data sa DataNumen, Inc., na pinuno ng mundo sa mga teknolohiya sa pagbawi ng data, kasama ang ayusin ang mdf at pananaw sa pag-aayos ng mga produktong software. Para sa karagdagang impormasyon pagbisita www.datanumen. Sa