Outlook имэйл дэх хүлээн авагчдын тоог тооцоолох 2 арга

Заримдаа та тодорхой имэйл дэх нийт хүлээн авагчдын тоог тооцоолохыг хүсч болно. Гэхдээ Outlook-д үүнийг дэмжих тодорхой "тоолох" функц байхгүй. Тиймээс энэ нийтлэлд түүнд хүрэх 2 аргыг танилцуулах болно.

Зарим тохиолдолд, жишээлбэл, та маш их хэмжээний хүлээн авагчийг имэйлд нэмсэн бөгөөд тэдгээрийг удирдахад хэцүү байх үед та эдгээр хүлээн авагчдын нийт тоог авахыг хүсч байна. Гэхдээ Outlook-д тоолох үндсэн эсвэл анхдагч дэмжлэг байхгүй. Тиймээс та үүнд хүрэхийн тулд нэмэлт хүчин чармайлт гаргах хэрэгтэй. Энд бид танд 2 аргыг хэлэх болно.

Арга 1: Холбоо барих бүлгээр дамжуулан хүлээн авагчдын тоог тоол

1. Эхлээд та "Хэн рүү", "CC" болон "BCC" талбарт бүх хүлээн авагчдыг сонгоод мессежийн үндсэн хэсэгт хоосон зайд хуулах хэрэгтэй.
2. Дараа нь бие дэх бүх хүлээн авагчийг сонгоод тэдгээрийг хуулж ав.
3. Дараа нь Outlook Холбоо барих хэсэгт очоод "Шинэ холбоо барих бүлэг" дээр дарна уу. Гарч ирэх цонхонд нэрийг "Темп" гэж тохируулаад "Гишүүн нэмэх" дээр дарж доош унах жагсаалтаас "Хаягийн дэвтэрээс" -ийг сонгоно уу.
4. Дараа нь "Гишүүн ->" талбарт өмнө нь хуулсан хүлээн авагчдыг дараах дэлгэцийн агшин шиг буулгана уу.
5. Үүний дараа "OK" товчийг дараад Холбоо барих бүлэг рүү буцна уу. Бүх хуулбарыг автоматаар устгах болно. Одоо үүнийг локал дискэнд "Текст" файл болгон хадгал.
6. Дараа нь Текст файлыг нээж, доорх зураг шиг хэрэггүй толгой хэсгийг устгана уу.
7. Эцэст нь та курсорыг сүүлчийн мөрөнд байрлуулж болно. Та статусын талбар дахь мөрүүдийн нийт тоог харах болно. Энэ нь хүлээн авагчдын нийт тоо юм.

Арга 2: Outlook VBA ашиглан хүлээн авагчдын тоог тоол

1. Эхлээд "Alt + F11" товчийг дарж "Visual Basic" цонх руу орно.
2. Дараа нь дараах VBA кодуудыг хуулж шинэ модуль руу буулгана уу.

Sub CountRecipients()
    Dim obApp As Outlook.Application
    Dim olSel As Selection
    Dim olItem As MailItem
    Dim Recips As Recipients
    Dim strMsg As String
    Dim nRes As Integer
 
    Set obApp = Outlook.Application
 
    If TypeName(obApp.ActiveWindow) = "Inspector" Then
       Set olItem = obApp.ActiveInspector.CurrentItem
       Set Recips = olItem.Recipients
       strMsg = "The current message contains " & Recips.Count & " recipient(s)."
       nRes = MsgBox(strMsg, vbOKOnly + vbInformation, "Count Recipients")
    Else
       Set olItem = obApp.ActiveExplorer.Selection.Item(1)
       Set Recips = olItem.Recipients
       strMsg = "The selected message contains " & Recips.Count & " recipient(s)."
       nRes = MsgBox(strMsg, vbOKOnly + vbInformation, "Count Recipients")
    End If
 
    Set obApp = Nothing
    Set olSel = Nothing
    Set olItem = Nothing
    Set Recips = Nothing
End Sub

3. Үүний дараа та "Visual Basic" цонхноос гарч, Outlook-ийн үндсэн цонх болон мессежийн цонхны Quick Access Toolbar-д шинэ макро нэмж болно.
4. Эцэст нь та оролдож болно:

• Та имэйлээ сонгоод Түргэн нэвтрэх хэрэгслийн самбар дээрх товчийг дарахад дараах зураг шиг мессеж ирэх болно.
• Та имэйлээ нээж, товчлуур дээр дарахад доорх зурагт үзүүлсэн харилцах цонх гарч ирнэ.

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

Аюултай макротой тэмцэх

Бидний мэдэж байгаагаар имэйлээр дамждаг вирусууд нь өгөгдөлд хамгийн түгээмэл аюул заналхийллийн нэг байсаар ирсэн. Тиймээс Outlook-ийг зөвхөн дижитал гарын үсэгтэй макрог идэвхжүүлэхээр тохируулах нь маш чухал бөгөөд энэ нь вирус болон хортой програм хангамжийг хааж чаддаг. Дээрээс нь та бат бөх байх хэрэгтэй. гэмтсэн Outlook файл засварлах хэрэгсэлЗэрэг DataNumen Outlook Repair. Энэ нь таны Outlook вирусын халдвар эсвэл хортой програмын халдлагад өртөх үед хэрэг болно.

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

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