Jak dávkově odesílat e-maily všem kontaktům v konkrétní doméně

Občas můžete hromadně odeslat e-mail všem kontaktům v konkrétní doméně. V takovém případě můžete metodu uvedenou v tomto článku rychle získat.

Z některých důvodů někdy budete možná muset poslat e-mail všem kontaktům v konkrétní doméně ve vašem Outlooku. Například jste povinni poslat e-mail všem svým kolegům, jejichž e-mailové adresy jsou určitě v konkrétní e-mailové doméně. Bude to docela nepříjemné, pokud tyto kontakty zjistíte ručně. Proto zde představíme rychlou metodu, jak ji získat. Následuje podrobný postup a kódy VBA.

Dávkové odesílání e-mailů všem kontaktům v konkrétní doméně

1. Na prvním místě spusťte aplikaci Outlook.
2. Poté stisknutím kláves „Alt + F11“ otevřete editor aplikace Outlook VBA,
3. Dále musíte otevřít modul, který se nepoužívá, nebo přímo vložit nový modul.
4. Následně do něj zkopírujte a vložte následující kódy 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

5. Poté musíte změnit úroveň zabezpečení maker aplikace Outlook na nízkou.
6. Volitelně, pokud často potřebujete poslat takový e-mail, se také doporučuje přidat nové makro na panel nástrojů Rychlý přístup.
7. V tuto chvíli můžete vyzkoušet. Klikněte na ikonu „spustit“ na panelu nástrojů.
8. Nakonec se objeví nový e-mail. Zjistíte, že všechny e-mailové adresy, které jsou v konkrétní e-mailové doméně, byly zahrnuty do pole „Komu“, například následující snímek obrazovky:

Nikdy nepanikařte tváří v tvář chybám PST

Uživatelé mají sklon k panice, když se setkají se závažnými problémy PST, jako jsou nepřístupné chyby PST, soubor PST infikovaný virem nebo poškozený Outlook Data PST atd. Je však rozumné se uklidnit a pokusit se je vyřešit co nejdříve. Nejprve můžete zkusit restaraplikace Outlook. Pokud problémy přetrvávají, můžete znovu použít nástroj pro opravu doručené pošty Scanpst.exe. Ale za předpokladu, že to nemůže mít žádné účinky, můžete se obrátit na zkušenější nástroj, jako je DataNumen Outlook Repair.

Úvod autora:

Shirley Zhang je expertem na obnovu dat DataNumen, Inc., která je světovým lídrem v oblasti technologií pro obnovu dat, včetně poškozený sql a výhledové softwarové produkty pro opravy. Pro více informací navštivte www.datanumen.com