Belirli Bir Etki Alanındaki Tüm Kişilere Toplu E-posta Gönderme

Bazen, belirli bir alandaki tüm kişilere toplu e-posta göndermek isteyebilirsiniz. Bu durumda, hızlı bir şekilde almak için bu makalede açıklanan yöntemi kullanabilirsiniz.

Bazı nedenlerden dolayı, bazen, Outlook'unuzdaki belirli bir etki alanındaki tüm kişilere bir e-posta göndermeniz gerekebilir. Örneğin, e-posta adresleri belirli bir e-posta alanında olan tüm meslektaşlarınıza bir e-posta göndermeniz gerekmektedir. Bu kişileri manuel olarak bulmanız oldukça zahmetli olacaktır. Bu nedenle, burada onu elde etmek için hızlı bir yöntem tanıtacağız. Aşağıdakiler ayrıntılı adımlar ve VBA kodlarıdır.

Belirli Bir Etki Alanındaki Tüm Kişilere Toplu E-posta Gönderme

1. İlk etapta, Outlook uygulamanızı başlatın.
2. Ardından Outlook VBA editörüne erişmek için “Alt + F11” tuşlarına basın,
3. Ardından, kullanılmayan bir modülü açmanız veya doğrudan yeni bir modül takmanız gerekir.
4. Ardından, aşağıdaki VBA kodlarını kopyalayıp içine yapıştırın.

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. Bundan sonra, Outlook makro güvenlik düzeyinizi düşük olarak değiştirmeniz gerekir.
6. İsteğe bağlı olarak, sık sık böyle bir e-posta göndermeniz gerekiyorsa, yeni makroyu Hızlı Erişim Araç Çubuğuna eklemeniz de önerilir.
7. Bu noktada, bir deneyebilirsiniz. Araç çubuğundaki "çalıştır" simgesini tıklayın.
8. Sonunda, yeni bir e-posta açılacaktır. Belirli bir e-posta etki alanındaki tüm e-posta adreslerinin, aşağıdaki ekran görüntüsü gibi "Kime" alanına dahil edildiğini görebilirsiniz:

PST Hataları Karşısında Asla Panik Yapmayın

Kullanıcılar, erişilemeyen PST hataları, virüs bulaşmış PST dosyası veya bozuk Outlook PST verileri vb. Ancak, sakinleşmek ve mümkün olan en kısa sürede çözmek için elinden gelenin en iyisini yapmak akıllıca olacaktır. Her şeyden önce, res deneyebilirsiniztarOutlook'u açın. Sorun devam ederse, gelen kutusu onarım aracı Scanpst.exe'ye dönebilirsiniz. Ancak herhangi bir etki yapamayacağını varsayarsak, daha deneyimli bir araca başvurabilirsiniz. DataNumen Outlook Repair.

Yazar Tanıtımı:

Shirley Zhang, bir veri kurtarma uzmanıdır. DataNumendahil olmak üzere veri kurtarma teknolojilerinde dünya lideri olan , Inc. bozuk sql ve görünüm onarım yazılım ürünleri. Daha fazla bilgi için ziyaret edin www.datanumen.com