Як пакетно видалити всі адреси електронної пошти з певним доменом із ваших контактів Outlook

Іноді ви можете сподіватися видалити всі електронні адреси з певним доменом зі своїх контактів. У цій ситуації ви, мабуть, не бажаєте робити це по одному. Таким чином, цей сost навчить вас набагато розумнішому методу.

Наприклад, компанія змінює назву. Тим часом домен компанії також змінюється. Однак у Outlook ви зберегли багато контактів у цій компанії, чиї електронні адреси належать до старого домену. Звичайно, ці адреси електронної пошти вже недійсні. Отже, за цієї обставини, якщо ви хочете видалити ці адреси електронної пошти за один раз, ви можете скористатися таким способом.

Пакетне видалення всіх адрес електронної пошти з певним доменом із контактів

1. Для якtart, увійдіть до редактора Outlook VBA за допомогою комбінації клавіш – «Alt + F11».
2. Потім у новому вікні помістіть наведений нижче код VBA у порожній модуль.

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. Після цього встановіть курсор у підпрограму «BatchRemoveAllEmailAddressesInSpecificDomain».
4. Нарешті натисніть кнопку «F5», щоб запустити цей макрос.
5. Згодом у спливаючому діалоговому вікні введіть певний домен.
6. Після натискання «ОК» запуститься макрос.
7. Коли він закінчиться, ви отримаєте повідомлення про результати.
8. Тепер ви можете перевірити контакти. Мабуть, усі адреси електронної пошти з певним доменом зникли.

Збережіть свій файл Outlook

Зі збільшенням ризиків навколо вашого Outlook стає все важче захистити цінні дані Outlook. Наприклад, ви повинні не тільки наполегливо виконувати регулярне резервне копіювання даних, але й стежити за своїми операціями. Нерозумно легко довіряти будь-яким електронним листам від невідомих відправників. Інакше, якщо він містить вірус, ваш файл Outlook буде заражений. У той час ви повинні спробувати Ремонт Outlook за допомогою чудового інструменту виправлення, наприклад DataNumen Outlook Repair.

Вступ автора:

Ширлі Чжан - експерт із відновлення даних у DataNumen, Inc., яка є світовим лідером у галузі технологій відновлення даних, в тому числі оговтуватися Sql Server та перспективні програмні продукти для ремонту. Для отримання додаткової інформації відвідайте WWW.datanumen.com