Si të numëroni shpejt emailet e dërguara sipas muajit në Outlook tuaj

Nëse i ruani emailet e dërguara në disa dosje dhe tani dëshironi të numëroni të gjitha këto emaile të dërguara sipas muajve, mund ta lexoni këtë artikull. Këtu do të prezantojmë një mënyrë mjaft të shpejtë për ta marrë atë.

Artikulli i mëparshëm - "Si të numëroni shpejt emailet hyrëse sipas datës, muajit ose vitit përmes Outlook VBA” ka ndarë një mënyrë për të numëruar emailet sipas muajve. Megjithatë, është në gjendje të përpunojë emailet në një dosje. Nëse dëshironi të numëroni emailet në disa apo edhe të gjitha dosjet e postës, duhet të përdorni mjete të tjera. Kështu, në vijim do t'ju ekspozojmë një mënyrë tjetër shumë më të shpejtë.

Numëroni emailet e dërguara sipas muajit

1. Për të filluar, hyni në redaktorin VBA të Outlook përmes "Alt + F11".
2. Pastaj, aktivizoni referencën për "MS Excel Object Library” sipas “Si të shtoni një Object Library Referenca në VBA".
3. Pas kësaj, vendosni kodin e mëposhtëm VBA në një projekt ose modul.

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. Më pas, zhvendoseni kursorin në nënprogramin e parë.
5. Më pas, shtypni "F5" për të aktivizuar këtë makro.
6. Menjëherë do të shfaqet një skedar Excel, i cili përmban numrin e emaileve të dërguara në çdo muaj, siç tregohet në figurën më poshtë.

Mos u frikësoni përballë korrupsionit në Outlook

Ju mund të prireni të shqetësoheni kur hasni dëmtim të PST. Megjithatë, në realitet, është më mirë të qetësoheni sa më shpejt të jetë e mundur. Siç e dimë të gjithë, paniku është i pafuqishëm dhe madje çon në probleme më kaotike dhe serioze. Ju duhet të qëndroni të qetë për të marrë parasysh masat, të tilla si të mendoni nëse keni përditësuar kopjen rezervë dhe të mendoni se si ta bëni riparim PST – nëse duhet përdorur mjeti i palës së tretë si p.sh DataNumen Outlook Repair ose kontaktoni profesionistët përkatës.

Hyrje e autorit:

Shirley Zhang është një eksperte për rikuperimin e të dhënave DataNumen, Inc., e cila është lider botëror në teknologjitë e rikuperimit të të dhënave, duke përfshirë riparim mdf dhe produkte softuerike të riparimit të pamjes. Për më shumë informacion vizitoni www.datanumen.com