Hogyan küldhet kötegelt e-mailt egy adott tartomány összes kapcsolattartójának

Időnként előfordulhat, hogy csoportosan küldjön egy e-mailt egy adott domain összes kapcsolattartójának. Ebben az esetben használhatja a cikkben bemutatott módszert a gyors lekéréshez.

Bizonyos okok miatt előfordulhat, hogy e-mailt kell küldenie az Outlook egy adott tartományában lévő összes névjegynek. Például köteles e-mailt küldeni minden kollégájának, akinek az e-mail címe bizonyosan egy adott e-mail domainben található. Elég problémás lesz, ha manuálisan találja meg ezeket a kapcsolatokat. Ezért itt bemutatunk egy gyors módszert annak beszerzésére. Az alábbiakban a részletes lépéseket és a VBA kódokat ismertetjük.

Kötegelt e-mail küldése egy adott tartomány összes névjegyének

1. Először is indítsa el az Outlook alkalmazást.
2. Ezután nyomja meg az "Alt + F11" billentyűket az Outlook VBA szerkesztő eléréséhez,
3. Ezután meg kell nyitnia egy nem használt modult, vagy közvetlenül be kell helyeznie egy új modult.
4. Ezt követően másolja ki és illessze be a következő VBA-kódokat.

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. Ezt követően alacsonyra kell állítania az Outlook makró biztonsági szintjét.
6. Opcionálisan, ha gyakran kell ilyen e-mailt küldenie, akkor azt is javasoljuk, hogy az új makrót adja hozzá a Gyorselérési eszköztárhoz.
7. Ezen a ponton tehet egy próbát. Kattintson a „Futtatás” ikonra az eszköztáron.
8. Végül egy új e-mail jelenik meg. Megállapíthatja, hogy az adott e-mail tartományban lévő összes e-mail cím szerepel a „Címzett” mezőben, például a következő képernyőképen:

Soha ne essen pánikba a PST-hibák miatt

A felhasználók hajlamosak pánikba esni, ha súlyos PST-problémákkal találkoznak, például elérhetetlen PST-hibákkal, vírussal fertőzött PST-fájllal vagy korrupt Outlook PST adatok stb. Bölcs dolog azonban megnyugodni, és megpróbálni a lehető leghamarabb megoldani a problémát. Először is kipróbálhatja a restarting Outlook. Ha a problémák továbbra is fennállnak, visszatérhet a beérkező levelek javítóeszközéhez, a Scanpst.exe-hez. De feltételezve, hogy nem tud semmilyen hatást elérni, igénybe vehet egy tapasztaltabb eszközt, mint pl DataNumen Outlook Repair.

Szerző Bevezetés:

Shirley Zhang adat-helyreállítási szakértő DataNumen, Inc., amely világelső az adat-helyreállítási technológiák területén, beleértve sérült sql és outlook javítószoftver termékek. További információért látogasson el www.datanumen.com