วิธีแบทช์เพิ่มผู้รับทั้งหมดของอีเมลหลายรายการไปยังที่ติดต่อ Outlook

ผู้ใช้บางคนต้องการโซลูชันที่ทำให้พวกเขาสามารถเพิ่มผู้รับทั้งหมดของอีเมลหลายฉบับไปยังโฟลเดอร์ที่ติดต่อของ Outlook เป็นที่อยู่ติดต่อใหม่ได้อย่างรวดเร็ว ดังนั้นบทความนี้จะแนะนำวิธีการที่รวดเร็ว

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

ชุดเพิ่มผู้รับทั้งหมดของอีเมลหลายรายการไปยังที่ติดต่อ Outlook

1. เริ่มต้นด้วยการเปิดโปรแกรม Outlook ของคุณ
2. จากนั้น กดปุ่ม “Alt + F11” เพื่อเข้าถึง Outlook VBA eidtor
3. ต่อจากนั้น ในหน้าต่าง "Microsoft Visual Basic for Applications" ให้คัดลอกและวางโค้ดต่อไปนี้ลงในโมดูลเปล่า

Sub AddRecipientsToContacts()
    Dim objSelection As Outlook.Selection
    Dim objMail As Outlook.MailItem
    Dim objRecipients As Outlook.Recipients
    Dim objRecipient As Outlook.Recipient
    Dim strEmailAddress, strName As String
    Dim objContact As Outlook.ContactItem
 
    'Get the selected email
    Set objSelection = Outlook.Application.ActiveExplorer.Selection
   
    If Not (objSelection Is Nothing) Then
       On Error Resume Next
       For Each objMail In objSelection
           Set objRecipients = objMail.Recipients
           For Each objRecipient In objRecipients
               'Exclude yourself in recipient list
               If objRecipient <> Session.CurrentUser Then
                  'Get the email address & name
                  strEmailAddress = objRecipient.Address
                  strName = Split(strEmailAddress, "@")(0)
                  strName = UCase(Left(strName, 1)) & LCase(Right(strName, Len(strName) - 1))
 
                  'Create a new contact for this recipient
                  Set objContact = Outlook.Application.CreateItem(olContactItem)
                  With objContact
                      .FullName = strName
                      .Email1Address = strEmailAddress
                      .Email1DisplayName = .FullName & " (" & strEmailAddress & ")"
                      .Save
                 End With
               End If
           Next
       Next
    End If
End Sub

4. หลังจากนั้น ให้ย่อหรือออกจากหน้าต่างนี้
5. ในภายหลัง คุณควรเพิ่มแมโครนี้ใน Quick Access Toolbar โดยอ้างอิงถึง “วิธีเรียกใช้รหัส VBA ใน Outlook ของคุณ"
6. สุดท้ายคุณสามารถลองใช้มาโครนี้ได้

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

ระวังความเสี่ยงทั้งหมดเกี่ยวกับ Outlook ของคุณ

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

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

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