Belirli Bir Etki Alanına Sahip Tüm E-posta Adreslerini Outlook Kişilerinizden Toplu Olarak Kaldırma

Bazen, belirli bir etki alanına sahip tüm e-posta adreslerini kişilerinizden kaldırmayı umabilirsiniz. Bu durumda, bunu tek tek yapmak konusunda isteksiz olmalısınız. Böylece, bu post size çok daha akıllı bir yöntem öğretecek.

Örneğin, bir şirketin adı değişir. Bu arada, şirketin etki alanı da değiştirilir. Ancak, Outlook'ta, bu şirkette, e-posta adresleri eski etki alanında olan birçok kişi depoladınız. Tabii ki, bu e-posta adresleri artık geçerli değil. Dolayısıyla bu durumda tek seferde bu e-posta adreslerini silmek isterseniz aşağıdaki yolu kullanabilirsiniz.

Belirli Bir Etki Alanına Sahip Tüm E-posta Adreslerini Kişilerden Toplu Olarak Kaldırma

1. olaraktart, Outlook VBA düzenleyicisine tuş kısayolu olan “Alt + F11” ile erişin.
2. Ardından, yeni pencerede aşağıdaki VBA kodunu boş bir modüle yerleştirin.

Dim strDomain As String

Sub BatchRemoveAllEmailAddressesInSpecificDomain()
    Dim objStore As Store
    Dim objFolder As Folder
    Dim lTotalCount As Long
 
    'Input the specific domain
    strDomain = InputBox("Enter the specific domain:", , "@false.com")
 
    If Len(strDomain) <> 0 Then
       lTotalCount = 0
       'Process all Contact folders in your Outlook
       For Each objStore In Application.Session.Stores
           For Each objFolder In objStore.GetRootFolder.Folders
               If objFolder.DefaultItemType = olContactItem Then
                  Call ProcessContactFolders(objFolder, lTotalCount)
               End If
           Next
       Next
 
       'Prompt you
       MsgBox lTotalCount & " email addresses in " & strDomain & " are removed!", vbInformation + vbOKOnly
    End If
End Sub

Sub ProcessContactFolders(ByVal objCurrentFolder As Folder, ByRef lCount As Long)
    Dim objContacts As Items
    Dim i As Long
    Dim objContact As ContactItem
 
    Set objContacts = objCurrentFolder.Items
 
    For i = objContacts.Count To 1 Step -1
        If TypeName(objContacts(i)) = "ContactItem" Then
           Set objContact = objContacts(i)
 
           'Check 3 email addresses of each contact
           If InStr(objContact.Email1Address, strDomain) > 0 Then
              lCount = lCount + 1
              objContact.Email1Address = ""
              objContact.Email1DisplayName = ""
           ElseIf InStr(objContact.Email2Address, strDomain) > 0 Then
              lCount = lCount + 1
              objContact.Email2Address = ""
              objContact.Email2DisplayName = ""
           ElseIf InStr(objContact.Email3Address, strDomain) > 0 Then
              lCount = lCount + 1
              objContact.Email3Address = ""
              objContact.Email3DisplayName = ""
           End If
 
           objContact.Save
        End If
     Next
 
     If objCurrentFolder.Folders.Count > 0 Then
        For Each objSubfolder In objCurrentFolder.Folders
            Call ProcessContactFolders(objSubfolder, lCount)
        Next
     End If
End Sub

3. Bundan sonra, imleci “BatchRemoveAllEmailAddressesInSpecificDomain” alt yordamına getirin.
4. Son olarak, bu makroyu tetiklemek için “F5” tuşuna tıklayın.
5. Ardından, açılan iletişim kutusuna belirli etki alanını girin.
6. “Tamam”a tıkladıktan sonra makro çalışacaktır.
7. Tamamlandığında, sonuçlarla ilgili bir mesaj alacaksınız.
8. Artık kişileri kontrol edebilirsiniz. Belirli etki alanına sahip tüm e-posta adresleri kaybolmuş olmalıdır.

Outlook Dosyanızı Koruyun

Outlook'unuzu çevreleyen daha fazla riskle, değerli Outlook verilerinizi korumak giderek daha zor hale geliyor. Örneğin, düzenli veri yedeklemelerinde ısrar etmenin yanı sıra işlemlerinize de dikkat etmelisiniz. Bilinmeyen göndericilerden gelen herhangi bir e-postaya hemen güvenmek akıllıca değildir. Aksi halde virüs taşıyorsa Outlook dosyanıza bulaşacaktır. O zaman denemelisin Outlook onarımı gibi olağanüstü bir düzeltme aracı aracılığıyla 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. kurtarmak Sql Server ve görünüm onarım yazılım ürünleri. Daha fazla bilgi için ziyaret edin www.datanumen.com