Kako grupno poslati e-poštu svim kontaktima u određenoj domeni

Ponekad ćete možda htjeti grupno poslati e-poštu svim kontaktima u određenoj domeni. U tom slučaju možete upotrijebiti metodu predstavljenu u ovom članku da biste ga brzo dobili.

Iz nekih razloga ponekad ćete možda trebati poslati e-poštu svim kontaktima u određenoj domeni u vašem Outlooku. Na primjer, morate poslati e-poštu svim svojim kolegama čije su adrese e-pošte sigurno u određenoj domeni e-pošte. Bit će prilično problematično ako ručno pronađete te kontakte. Stoga ćemo ovdje predstaviti brzi način da ga dobijete. Slijede detaljni koraci i VBA kodovi.

Skupno slanje e-pošte svim kontaktima u određenoj domeni

1. Prvo pokrenite svoju Outlook aplikaciju.
2. Zatim pritisnite tipke "Alt + F11" za pristup Outlook VBA uređivaču,
3. Zatim morate otvoriti modul koji nije u upotrebi ili izravno umetnuti novi modul.
4. Nakon toga kopirajte i zalijepite sljedeće VBA kodove u njega.

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. Nakon toga trebate promijeniti razinu sigurnosti Outlook makroa na nisku.
6. Po izboru, ako često morate slati takvu e-poštu, također se predlaže dodavanje nove makronaredbe na alatnu traku za brzi pristup.
7. U ovom trenutku možete pokušati. Pritisnite ikonu "pokreni" na alatnoj traci.
8. Na kraju će se pojaviti nova poruka e-pošte. Možete vidjeti da su sve adrese e-pošte koje su u određenoj domeni e-pošte uključene u polje "Prima", kao na sljedećoj snimci zaslona:

Nikada ne paničarite pred PST pogreškama

Korisnici su skloni panici kada naiđu na ozbiljne probleme s PST-om, kao što su pogreške nedostupnog PST-a, PST datoteka zaražena virusom ili pokvareni Outlook PST podaci, itd. Ipak, mudro je smiriti se i pokušati to riješiti što je prije moguće. Prije svega, možete pokušati restarting Outlook. Ako se problemi nastave, možete se vratiti na alat za popravak pristigle pošte, Scanpst.exe. No, pod pretpostavkom da ne može proizvesti nikakav učinak, možete se poslužiti iskusnijim alatom, poput DataNumen Outlook Repair.

Uvod za autora:

Shirley Zhang stručnjakinja je za oporavak podataka u DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući oštećeni sql i softverske proizvode za popravak Outlooka. Za više informacija posjetite www.datanumen.com