Come inviare e-mail in batch a tutti i contatti in un dominio specifico

A volte, potresti voler inviare in batch un'e-mail a tutti i contatti in un dominio specifico. In questo caso, puoi utilizzare il metodo introdotto in questo articolo per ottenerlo rapidamente.

Per alcuni motivi, a volte, potresti dover inviare un'e-mail a tutti i contatti in un dominio specifico nel tuo Outlook. Ad esempio, ti viene richiesto di inviare un'e-mail a tutti i tuoi colleghi i cui indirizzi e-mail si trovano sicuramente in un dominio e-mail specifico. Sarà abbastanza problematico se scopri manualmente questi contatti. Pertanto, qui introdurremo un metodo rapido per ottenerlo. Di seguito sono riportati i passaggi dettagliati e i codici VBA.

Batch Invia e-mail a tutti i contatti in un dominio specifico

1. In primo luogo, avvia la tua applicazione Outlook.
2. Quindi premere i pulsanti "Alt + F11" per accedere all'editor VBA di Outlook,
3. Successivamente è necessario aprire un modulo che non è in uso o inserire direttamente un nuovo modulo.
4. Successivamente, copia e incolla i seguenti codici VBA al suo interno.

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. Successivamente, è necessario modificare il livello di sicurezza delle macro di Outlook su basso.
6. Facoltativamente, se è necessario inviare frequentemente tale e-mail, si suggerisce anche di aggiungere la nuova macro alla barra degli strumenti di accesso rapido.
7. A questo punto puoi fare un tentativo. Fare clic sull'icona "Esegui" nella barra degli strumenti.
8. Alla fine, verrà visualizzata una nuova e-mail. Puoi scoprire che tutti gli indirizzi e-mail che si trovano nel dominio e-mail specifico sono stati inclusi nel campo "A", come nella seguente schermata:

Mai farsi prendere dal panico di fronte agli errori PST

Gli utenti tendono a farsi prendere dal panico quando incontrano gravi problemi PST, come errori PST inaccessibili, file PST infetti da virus o Outlook corrotto Dati PST, ecc. Tuttavia, è saggio mantenere la calma e cercare di risolvere il problema il prima possibile. Innanzitutto, puoi provare a riavviare Outlook. Se i problemi persistono, puoi ricorrere allo strumento di ripristino della posta in arrivo, Scanpst.exe. Ma, se non dovesse funzionare, puoi ricorrere a uno strumento più esperto, come DataNumen Outlook Repair.

Introduzione dell'autore:

Shirley Zhang è un'esperta di recupero dati in DataNumen, Inc., che è il leader mondiale nelle tecnologie di recupero dati, tra cui sql corrotto e prodotti software di riparazione di Outlook. Per maggiori informazioni visita www.datanumen.com