2 metodai, kaip greitai suskaičiuoti siuntėjo el. laiškus programoje „Outlook“.

Jei norite skaičiuoti el. laiškus pagal siuntėją, galite peržiūrėti šį straipsnį. Pateiksime jums 2 greitus būdus.

Norint sužinoti most aktyvus siuntėjas, galbūt norėsite skaičiuoti el. laiškus pagal siuntėją. Nors "Outlook" nesuteikia tiesioginės funkcijos, vis tiek galite ieškoti tam tikrų sprendimų, pvz., šio 1 būdo. Jei manote, kad 1 būdas yra per varginantis, galite pasirinkti 2 metodą. Jis yra daug efektyvesnis kad jis naudoja VBA, kad greitai suskaičiuotų el. laiškus pagal siuntėjus ir eksportuotų skaičių į „Excel“. Dabar išsamiai perskaitykite du būdus. Kaip pavyzdį paimsime el. laiškus gautuosiuose.

1 būdas: sugrupavę elementus pagal lauką „Iš“ gaukite skaičių

1. Norėdami pradėti, paleiskite „Outlook“ programą.
2. Tada atidarykite aplanką Gautieji.
3. Tada pereikite prie skirtuko „Peržiūrėti“.
4. Tada grupėje „Sutvarkymas“ pasirinkite „Nuo“.
5. Iš karto visi gautųjų elementai buvo suskirstyti į skirtingas grupes pagal skirtingus siuntėjus.
6. Dabar, norėdami suskaičiuoti elementus iš konkretaus siuntėjo, galite pasirinkti visus susijusios grupės elementus ir paspausti klavišą „Enter“. Iššokančiajame įspėjime galite matyti skaičių.

Tai reiškia, kad tai gana paprasta, tačiau į elementų skaičių iš tikrųjų įeina ir kitų tipų elementai, pvz., kvietimai į susitikimą, užduočių užklausos ir kvitai, o ne tik el. laiškų skaičius. Taigi, jei norite skaičiuoti tik el. laiškus, galite naudoti šį būdą.

2 būdas: suskaičiuokite siuntėjo el. laiškus naudodami „Outlook VBA“.

1. Dėl astart, paspauskite „Alt + F11“ klavišų mygtukus programoje „Outlook“.
2. Tada įgalinkite „MS Excel Object Library“ pagal „Kaip pridėti objekto library Nuoroda VBA".
3. Tada nukopijuokite toliau pateiktą kodą į nenaudojamą modulį.

Sub CountInboxEmailsbySender()
    Dim objDictionary As Object
    Dim objInbox As Outlook.Folder
    Dim i As Long
    Dim objMail As Outlook.MailItem
    Dim strSender As String
    Dim objExcelApp As Excel.Application
    Dim objExcelWorkbook As Excel.Workbook
    Dim objExcelWorksheet As Excel.Worksheet
    Dim varSenders As Variant
    Dim varItemCounts As Variant
    Dim nLastRow As Integer
 
    Set objDictionary = CreateObject("Scripting.Dictionary")
    Set objInbox = Outlook.Application.Session.GetDefaultFolder(olFolderInbox)
 
    For i = objInbox.Items.Count To 1 Step -1
        If objInbox.Items(i).Class = olMail Then
           Set objMail = objInbox.Items(i)
           strSender = objMail.SenderEmailAddress
 
           If objDictionary.Exists(strSender) Then
              objDictionary.Item(strSender) = objDictionary.Item(strSender) + 1
           Else
              objDictionary.Add strSender, 1
           End If
        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) = "Sender"
         .Cells(1, 2) = "Count"
    End With
 
    varSenders = objDictionary.Keys
    varItemCounts = objDictionary.Items
 
    For i = LBound(varSenders) To UBound(varSenders)
        nLastRow = objExcelWorksheet.Range("A" & objExcelWorksheet.Rows.Count).End(xlUp).Row + 1
        With objExcelWorksheet
             .Cells(nLastRow, 1) = varSenders(i)
             .Cells(nLastRow, 2) = varItemCounts(i)
        End With
    Next
 
    objExcelWorksheet.Columns("A:B").AutoFit
End Sub

3. Po to paspauskite mygtuką „F5“.
4. Baigus makrokomandą, bus rodomas naujas „Excel“ failas.
5. Kaip matote, jame yra gautų el. laiškų iš skirtingų siuntėjų skaičius.

Atsikratykite varginančių „Outlook“ problemų

Galbūt jūs kada nors susidūrėte su daugybe „Outlook“ problemų. Norėdami juos veiksmingai išspręsti, galite ilgėtis universalaus ir galingo būdo. Tačiau iš tikrųjų tokio metodo nėra. Ką galite padaryti, tai saugotis savo operacijų programoje „Outlook“ ir reguliariai kurti atsargines kopijas. Žinoma, jei įmanoma, siūlome turėti po ranka patyrusį taisymo įrankį, pvz DataNumen Outlook Repair. Jis gali išspręsti įvairias PST problemas ir taisyti sugadintas PST failas kaip vėjas.

Autoriaus įvadas:

Shirley Zhang yra duomenų atkūrimo ekspertė DataNumen, Inc., kuri yra pasaulyje duomenų atkūrimo technologijų lyderė, įskaitant atsigauti Sql Server ir „Outlook“ taisymo programinės įrangos produktai. Norėdami gauti daugiau informacijos, apsilankykite WWW.datanumen.com