วิธีการแบทช์ขยายกลุ่มที่ติดต่อทั้งหมดในฟิลด์“ ถึง” เมื่อเขียนอีเมล Outlook

ผู้ใช้หลายคนต่างต้องการวิธีการที่ช่วยให้พวกเขาสามารถขยายกลุ่มผู้ติดต่อทั้งหมดในช่อง "ถึง" ได้พร้อมกันเมื่อเขียนอีเมลใน Outlook ดังนั้น ในบทความนี้ เราจะมาแบ่งปันวิธีการดังกล่าวให้คุณ

โดยปกติหากต้องการขยายกลุ่มผู้ติดต่อในช่อง "ถึง" คุณสามารถคลิกไอคอน "+" ที่อยู่ด้านหน้าชื่อกลุ่ม อย่างไรก็ตามด้วยวิธีนี้หากมีกลุ่มผู้ติดต่อจำนวนมากในช่อง“ ถึง” และหากคุณต้องการขยายกลุ่มทั้งหมดก็เป็นเรื่องที่น่าเบื่อเล็กน้อย ดังนั้นที่นี่เราจะแบ่งปันวิธีการขยายกลุ่มทั้งหมดอย่างรวดเร็วในช่อง "ถึง" เพียงแค่คลิก

Batch ขยายกลุ่มที่ติดต่อทั้งหมดในฟิลด์“ ถึง”

1. ในตอนแรกเปิดโปรแกรม Outlook ของคุณ
2. จากนั้นในหน้าต่างหลักของ Outlook ให้กดปุ่ม "Alt + F11"
3. จากนั้นคุณจะเข้าสู่หน้าจอตัวแก้ไข VBA ซึ่งคุณควรเข้าถึงโมดูลที่ไม่ได้ใช้งานหรือเพียงแค่ใส่โมดูลใหม่
4. จากนั้นคัดลอกโค้ด VBA ต่อไปนี้ลงในโมดูลนี้

Sub ExpandAllContactGroupsInToField()
    Dim objMail As Outlook.MailItem
    Dim objRecipients As Outlook.Recipients
    Dim bContactGroupFound As Boolean
    Dim i As Long
 
    'Get the current mail
    Set objMail = ActiveInspector.CurrentItem
    bContactGroupFound = True
 
    Do While bContactGroupFound = True
       Set objRecipients = objMail.Recipients
       bContactGroupFound = False
 
       'Expand all contact groups in "To" field
       For i = objRecipients.Count To 1 Step -1
           If objRecipients(i).Type = olTo Then
              If objRecipients(i).AddressEntry.DisplayType <> olUser Then
                 For n = 1 To objRecipients(i).AddressEntry.Members.Count
                     If objRecipients(i).AddressEntry.Members.Item(n).DisplayType = olUser Then
                        objMail.Recipients.Add (objRecipients(i).AddressEntry.Members.Item(n).Address)
                     Else
                        objMail.Recipients.Add (objRecipients(i).AddressEntry.Members.Item(n).Name)
                        bContactGroupFound = True
                     End If
                 Next
                 objRecipients(i).Delete
              End If
          End If
      Next i
      objRecipients.ResolveAll
    Loop
End Sub

5. หลังจากนั้นคุณสามารถออกจากหน้าต่างปัจจุบันได้โดยคลิกไอคอนกากบาทที่มุมขวาบน
6. ในภายหลังคุณต้องเพิ่มโครงการ VBA นี้ลงในแถบเครื่องมือด่วนของหน้าต่างข้อความ

• ก่อนอื่นให้สร้างอีเมลใหม่
• จากนั้นคลิกที่ลูกศรลงที่มุมบนซ้าย
• จากนั้นเลือก“ คำสั่งเพิ่มเติม”
• ในกล่องโต้ตอบใหม่คุณสามารถทำตามขั้นตอนที่แสดงในรูปภาพด้านล่างเพื่อเพิ่มมาโครลงในแถบเครื่องมือด่วน

7. สุดท้ายคุณสามารถถ่ายภาพ:

• เริ่มต้นด้วยการสร้างและเขียนอีเมลฉบับใหม่ตามปกติ
• จากนั้นเพิ่มกลุ่มผู้ติดต่อหลายกลุ่มในช่อง "ถึง"
• หลังจากนั้นคุณสามารถคลิกปุ่มมาโครในแถบเครื่องมือด่วน
• กลุ่มที่ติดต่อทั้งหมดจะถูกขยายในครั้งเดียวดังภาพต่อไปนี้:

ช่วยเหลือข้อมูล Outlook ของคุณอย่างทันท่วงที

โดยทั่วไปทันทีที่พบปัญหาใด ๆ ใน Outlook ของคุณเครื่องมือซ่อมแซมกล่องจดหมายจะเกิดขึ้นในใจของคุณตั้งแต่แรก อย่างไรก็ตามบ่อยกว่านั้นก็จะไม่ส่งผลใด ๆ ในช่วงเวลาดังกล่าวขอแนะนำให้ใช้ยูทิลิตี้ที่มีศักยภาพและน่าเชื่อถือมากขึ้นอีกครั้งเช่น DataNumen Outlook Repair. มันสามารถ แก้ไข PST ในทันทีโดยไม่คำนึงว่าไฟล์ PST ของคุณจะเสียหายมากเพียงใด

บทนำผู้เขียน:

Shirley Zhang เป็นผู้เชี่ยวชาญด้านการกู้คืนข้อมูลใน DataNumen, Inc. ซึ่งเป็นผู้นำระดับโลกด้านเทคโนโลยีการกู้คืนข้อมูล ได้แก่ กู้คืน sql และผลิตภัณฑ์ซอฟต์แวร์ซ่อมแซมแนวโน้ม ดูข้อมูลเพิ่มเติมได้ที่ wwwdatanumenด้วย.