ในบางครั้งคุณอาจต้องการคำนวณจำนวนผู้รับทั้งหมดในอีเมลที่ระบุ แต่ Outlook ไม่มีฟังก์ชัน "การนับ" ที่ชัดเจนเพื่อรองรับ ดังนั้นบทความนี้จะแนะนำ 2 แนวทางในการบรรลุเป้าหมาย
ตัวอย่างเช่นในบางสถานการณ์เมื่อคุณได้เพิ่มผู้รับจำนวนมากในอีเมลและพบว่ามันยากที่จะจัดการพวกเขาคุณต้องการได้รับจำนวนผู้รับทั้งหมดเหล่านี้ แต่ Outlook ไม่มีการสนับสนุนดั้งเดิมหรือค่าเริ่มต้นที่จะนับ ดังนั้นคุณต้องพยายามเป็นพิเศษเพื่อให้บรรลุ ที่นี่เราจะบอกคุณ 2 วิธี
วิธีที่ 1: นับจำนวนผู้รับผ่าน Contact Group
- ขั้นแรก คุณควรเลือกผู้รับทั้งหมดในช่อง “ถึง”, “สำเนาถึง” และ “สำเนาลับถึง” แล้วคัดลอกข้อความเหล่านั้นไปยังช่องว่างในเนื้อหาข้อความ
- จากนั้นเลือกผู้รับทั้งหมดในเนื้อหาและคัดลอกด้วย
- จากนั้นไปที่บานหน้าต่างผู้ติดต่อ Outlook และกด "กลุ่มที่ติดต่อใหม่" ในหน้าต่างป๊อปอัปตั้งชื่อเป็น "ชั่วคราว" จากนั้นคลิก "เพิ่มสมาชิก" แล้วเลือก "จากสมุดที่อยู่" จากรายการแบบเลื่อนลง
- จากนั้นวางผู้รับที่คัดลอกไว้ก่อนหน้านี้ในช่อง "สมาชิก ->" เช่นภาพหน้าจอต่อไปนี้:
- หลังจากนั้นคลิกปุ่ม“ ตกลง” และกลับไปที่กลุ่มผู้ติดต่อ รายการที่ซ้ำกันทั้งหมดจะถูกลบออกโดยอัตโนมัติ ตอนนี้บันทึกลงในดิสก์ในเครื่องเป็นไฟล์ "ข้อความ"
- เปิดไฟล์ข้อความในภายหลังและลบส่วนหัวที่ไร้ประโยชน์ดังภาพด้านล่าง:
- ในที่สุดคุณสามารถวางเคอร์เซอร์ไว้ที่บรรทัดสุดท้าย คุณจะเห็นจำนวนบรรทัดทั้งหมดในแถบสถานะ นั่นคือจำนวนผู้รับทั้งหมด
วิธีที่ 2: นับจำนวนผู้รับด้วย Outlook VBA
- ในตอนแรกให้กดปุ่ม“ Alt + F11” เพื่อเข้าสู่หน้าต่าง“ Visual Basic”
- จากนั้นคัดลอกและวางรหัส 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
- หลังจากนั้นคุณสามารถออกจากหน้าต่าง "Visual Basic" และเพิ่มแมโครใหม่ลงในแถบเครื่องมือด่วนของหน้าต่างหลักของ Outlook และหน้าต่างข้อความ
- ในที่สุดคุณสามารถลอง:
- เมื่อคุณเลือกอีเมลและกดปุ่มในแถบเครื่องมือด่วนคุณจะได้รับข้อความดังภาพต่อไปนี้:
- เมื่อคุณเปิดอีเมลและคลิกปุ่มคุณจะได้กล่องโต้ตอบดังภาพด้านล่าง:
หมายเหตุ: วิธีนี้จะถือว่ากลุ่มผู้ติดต่อเป็นผู้รับรายเดียวและจะไม่ข้ามผู้รับที่ซ้ำกัน
ต่อสู้กับมาโครที่เป็นอันตราย
อย่างที่เราทราบกันดี ไวรัสที่มากับอีเมลเป็นหนึ่งในภัยคุกคามข้อมูลที่พบบ่อยที่สุด ดังนั้นจึงเป็นเรื่องสำคัญอย่างยิ่งที่จะต้องตั้งค่า Outlook ให้เปิดใช้งานเฉพาะมาโครที่ลงนามแบบดิจิทัล ซึ่งสามารถบล็อกไวรัสและมัลแวร์ได้ นอกจากนี้ คุณควรเก็บรักษาข้อมูลสำรองที่แข็งแกร่งไว้ด้วย ยูทิลิตี้ซ่อมแซมไฟล์ Outlook ที่เสียหายเช่น DataNumen Outlook Repair. มันจะมีประโยชน์เมื่อ Outlook ของคุณประสบกับการติดไวรัสหรือการโจมตีของมัลแวร์
บทนำผู้เขียน:
Shirley Zhang เป็นผู้เชี่ยวชาญด้านการกู้คืนข้อมูลใน DataNumen, Inc. ซึ่งเป็นผู้นำระดับโลกด้านเทคโนโลยีการกู้คืนข้อมูล ได้แก่ ซ่อมแซมข้อผิดพลาดข้อมูล mdf ของ SQL และผลิตภัณฑ์ซอฟต์แวร์ซ่อมแซมแนวโน้ม ดูข้อมูลเพิ่มเติมได้ที่ wwwdatanumenด้วย.