Paano Magpadala ng Batch ng Email sa Lahat ng Mga Contact sa isang Partikular na Domain

Kung minsan, maaari mong hilingin na magpadala ng batch ng email sa lahat ng mga contact sa isang partikular na domain. Sa kasong ito, maaari mong gamitin ang paraang ipinakilala sa artikulong ito upang mabilis na makuha ito.

Para sa ilang kadahilanan, kung minsan, maaaring kailanganin mong magpadala ng email sa lahat ng mga contact sa isang partikular na domain sa iyong Outlook. Halimbawa, kailangan mong magpadala ng email sa lahat ng iyong mga kasamahan na ang mga email address ay tiyak na nasa isang partikular na domain ng email. Magiging medyo mahirap kung manu-mano mong malalaman ang mga contact na ito. Samakatuwid, dito namin ipakilala ang isang mabilis na paraan upang makuha ito. Ang mga sumusunod ay ang mga detalyadong hakbang at VBA code.

Batch Send Email sa Lahat ng Contact sa isang Partikular na Domain

1. Sa unang lugar, ilunsad ang iyong aplikasyon sa Outlook.
2. Pagkatapos ay pindutin ang "Alt + F11" key buttons upang ma-access ang Outlook VBA editor,
3. Susunod na kailangan mong buksan ang isang module na hindi ginagamit o diretsong magpasok ng bagong module.
4. Kasunod, kopyahin at i-paste ang mga sumusunod na VBA code dito.

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

5. Pagkatapos nito, kailangan mong baguhin ang antas ng seguridad ng iyong macro sa mababang.
6. Opsyonal, kung madalas mong kailangang magpadala ng ganoong email, iminumungkahi din na idagdag ang bagong macro sa Quick Access Toolbar.
7. Sa puntong ito, maaari mong subukan. I-click ang icon na “run” sa toolbar.
8. Sa kalaunan, may lalabas na bagong email. Maaari mong makita na ang lahat ng mga email address na nasa partikular na domain ng email ay naisama sa field na "Kay", tulad ng sumusunod na screenshot:

Huwag Magpanic Sa Harap ng Mga Error sa PST

Ang mga gumagamit ay may posibilidad na mag-panic kapag nakakaranas ng mga seryosong isyu sa PST, tulad ng hindi naa-access na mga error sa PST, nahawaan ng virus na PST file o sira ang Outlook PST data, atbp. Gayunpaman, makabubuting huminahon at sikaping malutas ito sa lalong madaling panahon. Una sa lahat, maaari mong subukang i-restart ang Outlook. Kung magpapatuloy ang mga isyu, maaari kang gumamit muli ng inbox repair tool, ang Scanpst.exe. Ngunit, kung sakaling hindi ito makagawa ng anumang epekto, maaari kang gumamit ng mas may karanasang tool, tulad ng DataNumen Outlook Repair.

Panimula ng May-akda:

Si Shirley Zhang ay isang dalubhasa sa pagbawi ng data sa DataNumen, Inc., na pinuno ng mundo sa mga teknolohiya sa pagbawi ng data, kasama ang nasirang sql at pananaw sa pag-aayos ng mga produktong software. Para sa karagdagang impormasyon pagbisita www.datanumen. Sa