Таны имэйлийг илгээгчийн имэйлийг хурдан тоолох 2 арга

Хэрэв та илгээгчийн имэйлийг тоолохыг хүсвэл энэ нийтлэлийг үзэх боломжтой. Энд бид танд 2 хурдан аргыг танилцуулах болно.

Хамгийн идэвхтэй илгээгчийг мэдэхийн тулд та имэйлийг илгээгчээр нь тоолохыг хүсч магадгүй юм. Outlook нь үүнд шууд функц өгдөггүй ч гэсэн та дараах 1-р арга гэх мэт зарим тойрон гарах арга замыг хайж болно. Хэрэв та 1-р арга хэтэрхий уйтгартай гэж бодож байвал 2-р аргыг сонгож болно. Энэ нь илгээгчээр имэйлийг хурдан тоолж, тоог Excel руу экспортлоход VBA ашигладаг тул илүү үр дүнтэй байдаг. Одоо хоёр аргыг дэлгэрэнгүй уншина уу. Энд бид Ирсэн имэйл дэх имэйлийг жишээ болгон авч үзэх болно.

Арга 1: "From" талбараар зүйлүүдийг бүлэглэсний дараа тоонууд авах

1. Эхлэхийн тулд Outlook програмыг ажиллуулна уу.
2. Дараа нь ирсэн имэйлийн хавтсыг нээнэ үү.
3. Дараа нь "Харах" таб руу шилжүүлээрэй.
4. Дараа нь "зохион байгуулах" бүлгийн "Хэнээс" -ийг сонгоно уу.
5. Ирсэн имэйлийн бүх зүйлийг нэг дор өөр өөр илгээгчдийн дагуу өөр өөр бүлэгт хуваасан.
6. Тодорхой илгээгчээс ирсэн зүйлийг тоолохын тулд та холбогдох бүлгийн бүх зүйлийг сонгоод "Enter" товчийг дарна уу. Попап сэрэмжлүүлгээс та тооллогыг харж болно.

Энэ нь маш хялбар гэсэн үг боловч барааны тоонд зөвхөн имэйлийн тоо биш, уулзалтын урилга, даалгавар авах хүсэлт, баримт гэх мэт бусад төрлийн зүйлс багтдаг. Тиймээс, хэрэв та зөвхөн имэйлийг тоолохыг хүсвэл дараах аргыг ашиглаж болно.

Арга 2: Outlook VBA ашиглан илгээгчийн имэйлийг тоолох

1. Эхлээд Outlook дээр "Alt + F11" товчлууруудыг дарна уу.
2. Дараа нь "MS Excel объектын сан"-г ""-ын дагуу идэвхжүүлнэ үү.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 сэвшээ салхи шиг файл.

Зохиогчийн танилцуулга:

Ширли Жан бол мэдээлэл сэргээх мэргэжилтэн юм DataNumen, Үүнд мэдээлэл сэргээх технологиор дэлхийд тэргүүлэгч, Inc. сэргээх Sql Server програм хангамжийн бүтээгдэхүүнийг засах хэтийн төлөв. Дэлгэрэнгүй мэдээллийг авна уу WWW.datanumen.com