Kuidas eemaldada Outlooki kontaktidest kõik konkreetse domeeniga meiliaadressid

Mõnikord võite loota, et eemaldate oma kontaktide hulgast kõik konkreetse domeeniga meiliaadressid. Sellises olukorras ei pea te olema valmis seda ükshaaval tegema. Seega see post õpetab teile palju targemat meetodit.

Näiteks muudab ettevõte oma nime. Samal ajal muudetakse ka ettevõtte domeeni. Kuid Outlookis olete sellesse ettevõttesse salvestanud palju kontakte, kelle meiliaadressid on vana domeeniga. Loomulikult need meiliaadressid enam ei kehti. Seega, kui soovite need e-posti aadressid ühe korraga eemaldada, võite kasutada järgmist viisi.

Eemaldage kontaktidest kõik konkreetse domeeniga e-posti aadressid

1. Sest nagutart, pääsete Outlooki VBA redaktori juurde klahvi otsetee abil - "Alt + F11".
2. Seejärel asetage uues aknas tühja moodulisse järgmine VBA kood.

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. Pärast seda viige kursor alamprogrammi "BatchRemoveAllEmailAddressesInSpecificDomain".
4. Lõpuks klõpsake selle makro käivitamiseks nuppu "F5".
5. Seejärel sisestage hüpikaknasse konkreetne domeen.
6. Pärast "OK" klõpsamist käivitatakse makro.
7. Kui see on lõppenud, saate tulemuste kohta teate.
8. Nüüd saate kontakte kontrollida. Kõik konkreetse domeeniga meiliaadressid peavad olema kadunud.

Säilitage oma Outlooki fail

Kuna teie Outlookiga on seotud üha rohkem riske, on väärtuslike Outlooki andmete kaitsmine üha keerulisem. Näiteks peaksite mitte ainult jätkama andmete regulaarset varukoopiat, vaid ka oma toiminguid jälgima. Ei ole mõistlik usaldada tundmatute saatjate kirju. Vastasel juhul, kui see kannab viirust, nakatub teie Outlooki fail. Sel ajal peate proovima Outlooki parandamine tähelepanuväärse parandustööriista kaudu, näiteks DataNumen Outlook Repair.

Autori sissejuhatus:

Shirley Zhang on andmete taastamise ekspert DataNumen, Inc., mis on maailmas juhtiv andmete taastamise tehnoloogiate, sealhulgas taastuma Sql Server ja Outlooki remonditarkvaratooted. Lisateabe saamiseks külastage www.datanumenCom