Как групово да премахнете всички имейл адреси с определен домейн от вашите контакти в Outlook

Понякога може да се надявате да премахнете всички имейл адреси с определен домейн от вашите контакти. В тази ситуация трябва да не желаете да правите това едно по едно. По този начин, тази стрost ще ви научи на много по-умен метод.

Например, компания сменя името си. Междувременно домейнът на компанията също се променя. В Outlook обаче сте съхранили много контакти в тази компания, чиито имейл адреси са със стария домейн. Разбира се, тези имейл адреси вече не са валидни. Следователно, при това обстоятелство, ако искате да премахнете тези имейл адреси наведнъж, можете да използвате следния начин.

Пакетно премахване на всички имейл адреси с конкретен домейн от контакти

1. За катоtart, достъп до редактора на VBA на Outlook чрез клавишна комбинация - „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. След като щракнете върху „OK“, макросът ще се стартира.
7. Когато приключи, ще получите съобщение за резултатите.
8. Сега можете да проверите контактите. Всички имейл адреси с конкретния домейн трябва да са изчезнали.

Запазете вашия Outlook файл

С все повече и повече рискове, свързани с вашия Outlook, е все по-трудно да защитите ценните си данни в Outlook. Например, не само трябва да продължавате да правите редовни архиви на данни, но също така трябва да внимавате за вашите операции. Не е разумно лесно да се доверите на имейли от неизвестни податели. В противен случай, ако носи вирус, вашият файл на Outlook ще бъде заразен. По това време трябва да опитате Поправка на Outlook чрез забележителен инструмент за поправяне, като DataNumen Outlook Repair.

Въведение на автора:

Шърли Джанг е експерт по възстановяване на данни в DataNumen, Inc., която е световен лидер в технологиите за възстановяване на данни, включително възстановяване Sql Server и outlook софтуерни продукти за ремонт. За повече информация посетете WWW.datanumen.com