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 slappe af og forsøge at løse det så hurtigt som muligt. Først og fremmest kan du prøve at genstarte Outlook. Hvis problemerne fortsætter, kan du bruge reparationsværktøjet til indbakken, Scanpst.exe. Men hvis det ikke har nogen effekt, kan du bruge et mere erfarent 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