วิธีการแบทช์ส่งอีเมลไปยังผู้ติดต่อทั้งหมดในโดเมนเฉพาะ

โซลูชัน Outlook September 29, 2025

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

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

Batch ส่งอีเมลไปยังผู้ติดต่อทั้งหมดในโดเมนเฉพาะ

ในตอนแรกเปิดแอปพลิเคชัน Outlook ของคุณ
จากนั้นกดปุ่ม“ Alt + F11” เพื่อเข้าถึงโปรแกรมแก้ไข Outlook VBA
ถัดไปคุณต้องเปิดโมดูลที่ไม่ได้ใช้งานหรือใส่โมดูลใหม่เข้าไปตรงๆ
จากนั้นคัดลอกและวางรหัส VBA ต่อไปนี้ลงในนั้น

Sub SendanEmailtoAllContactsinSpecificDomain()
    Dim objContactsFolder As Outlook.Folder
    Dim objItem As Object
    Dim objContact As Outlook.ContactItem
    Dim strEmail1Address, strEmail2Address, strEmail3Address As String
    Dim objMail As Outlook.MailItem
    Dim objMailRecipients As Outlook.Recipients
 
    Set objMail = Application.CreateItem(olMailItem)
    Set objMailRecipients = objMail.Recipients
    Set objContactsFolder = Application.Session.GetDefaultFolder(olFolderContacts)
 
    For Each objItem In objContactsFolder.Items
        If objItem.Class = olContact Then
           Set objContact = objItem
           strEmail1Address = objContact.Email1Address
           strEmail2Address = objContact.Email2Address
           strEmail3Address = objContact.Email3Address

           'Change the specific email domain
           If InStr(strEmail1Address, "@datanumen.com") > 0 Then
              objMail.Recipients.Add (strEmail1Address)
           ElseIf InStr(strEmail2Address, "@datanumen.com") > 0 Then
              objMail.Recipients.Add (strEmail2Address)
           ElseIf InStr(strEmail3Address, "@datanumen.com") > 0 Then
              objMail.Recipients.Add (strEmail3Address)
           End If
 
        End If
    Next objItem
 
    objMail.Display
End Sub

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

อย่าตื่นตระหนกเมื่อเผชิญกับข้อผิดพลาด PST

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

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

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