Sådan batches Send e-mail til alle kontakter i et bestemt domæne

Til tider kan det være en god idé at sende en e-mail til alle kontakterne i et bestemt domæne. I dette tilfælde kan du bruge metoden introduceret i denne artikel til hurtigt at få den.

Af nogle grunde er du undertiden muligvis nødt til at sende en e-mail til alle kontakterne i et bestemt domæne i din Outlook. For eksempel er du forpligtet til at sende en e-mail til alle dine kolleger, hvis e-mail-adresser bestemt er i et specifikt e-mail-domæne. Det vil være ret besværligt, hvis du manuelt finder ud af disse kontakter. Derfor introducerer vi her en hurtig metode til at få det. Følgende er de detaljerede trin og VBA-koder.

Batch Send e-mail til alle kontakter i et specifikt domæne

1. For det første skal du starte din Outlook-applikation.
2. Tryk derefter på “Alt + F11” -tasten for at få adgang til Outlook VBA-editor,
3. Dernæst skal du åbne et modul, der ikke er i brug, eller lige indsætte et nyt modul.
4. Kopier og indsæt derefter følgende VBA-koder i den.

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. Derefter skal du ændre dit Outlook-makro-sikkerhedsniveau til lavt.
6. Hvis du ofte har brug for at sende en sådan e-mail, anbefales det også at tilføje den nye makro til værktøjslinjen Hurtig adgang.
7. På dette tidspunkt kan du prøve. Klik på ikonet "Kør" i værktøjslinjen.
8. Til sidst dukker en ny e-mail op. Du kan finde ud af, at alle e-mail-adresserne i det specifikke e-mail-domæne er inkluderet i feltet "Til", som f.eks. Følgende skærmbillede:

Gå aldrig i panik over for PST-fejl

Brugere har tendens til at få panik, når de støder på alvorlige PST-problemer, såsom utilgængelige PST-fejl, virusinficeret PST-fil eller korrupt Outlook PST-data osv. Det er dog klogt at roe sig ned og prøve bedst at løse det så hurtigt som muligt. Først og fremmest kan du prøve restarting Outlook. Hvis problemer vedvarer, kan du vende tilbage til reparationsværktøjet til indbakken, Scanpst.exe. Men forudsat at det ikke kan have nogen effekter, kan du benytte dig af et mere erfaren værktøj, som f.eks DataNumen Outlook Repair.

Forfatter Introduktion:

Shirley Zhang er ekspert i datagendannelse i DataNumen, Inc., som er verdens førende inden for datagendannelsesteknologier, herunder beskadiget sql og Outlook-reparationssoftwareprodukter. For mere information besøg www.datanumen.com