Ձեր Outlook-ում ուղարկողի կողմից նամակներն արագ հաշվելու 2 եղանակ

Եթե ​​ցանկանում եք հաշվել նամակներն ըստ ուղարկողի, կարող եք դիմել այս հոդվածին: Այստեղ մենք կբացահայտենք ձեզ 2 արագ մոտեցում:

Որպեսզի իմանաք, թե ով է ձեզ համար ամենաակտիվ ուղարկողը, կարող եք հաշվել էլեկտրոնային նամակները ըստ ուղարկողի։ Չնայած Outlook-ը դրա համար ուղղակի գործառույթ չի տրամադրում, դուք դեռ կարող եք փնտրել որոշ շրջանցիկ լուծումներ, օրինակ՝ հետևյալ մեթոդ 1-ը։ Եթե կարծում եք, որ մեթոդ 1-ը չափազանց ձանձրալի է, կարող եք ընտրել մեթոդ 2-ը։ Այն շատ ավելի արդյունավետ է, քանի որ օգտագործում է VBA՝ էլեկտրոնային նամակները ըստ ուղարկողի արագ հաշվելու և հաշվարկները Excel արտահանելու համար։ Այժմ մանրամասն կարդացեք երկու եղանակները։ Այստեղ մենք օրինակ կվերցնենք «Ներքին արկղ» էլ. նամակները։

Մեթոդ 1. Ստացեք հաշվարկներ՝ ըստ «From» դաշտի խմբավորումից հետո

1. Սկսելու համար գործարկեք Outlook ծրագիրը:
2. Այնուհետև բացեք մուտքի թղթապանակը:
3. Հաջորդը, անցեք «Դիտել» ներդիրին:
4. Այնուհետև «Պայմանավորվածություն» խմբում ընտրեք «From»:
5. Միանգամից բոլոր մուտքի արկղի տարրերը բաժանվել են տարբեր խմբերի՝ ըստ տարբեր ուղարկողների:
6. Այժմ, կոնկրետ ուղարկողի տարրերը հաշվելու համար կարող եք ընտրել համապատասխան խմբի բոլոր տարրերը և սեղմել «Enter» ստեղնը: Բացվող նախազգուշացումում դուք կարող եք տեսնել հաշվարկը:

Սա բավականին հեշտ է, բայց ապրանքների հաշվարկները իրականում ներառում են այլ տեսակի տարրեր, ինչպիսիք են հանդիպման հրավերները, առաջադրանքների հարցումները և ստացականները, ոչ միայն էլ. Այսպիսով, եթե ցանկանում եք հաշվել միայն նամակները, փոխարենը կարող եք օգտագործել հետևյալ կերպ.

Մեթոդ 2. Հաշվեք ուղարկողի կողմից էլփոստի նամակները Outlook VBA-ով

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

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. Դրանից հետո սեղմեք «F5» ստեղնի կոճակը:
4. Երբ մակրո ավարտվի, նոր Excel ֆայլ կցուցադրվի:
5. Ինչպես տեսնում եք, այն պարունակում է տարբեր ուղարկողների մուտքի արկղի նամակների քանակը:

Ազատվեք Outlook-ի զայրացուցիչ խնդիրներից

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

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

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