Hogyan lehet csoportosan eltávolítani egy adott tartományhoz tartozó összes e-mail címet az Outlook névjegyei közül

Időnként reménykedhet abban, hogy eltávolít minden, egy adott domainnel rendelkező e-mail címet a névjegyei közül. Ebben a helyzetben biztosan nem hajlandó ezt egyenként megtenni. Így ez a post megtanít egy sokkal okosabb módszert.

Például egy cég megváltoztatja a nevét. Eközben a vállalati domain is megváltozik. Az Outlookban azonban sok névjegyet tárolt ebben a cégben, amelyek e-mail címei a régi domainhez tartoznak. Természetesen ezek az e-mail címek már nem érvényesek. Ezért ebben az esetben, ha egy mozdulattal szeretné eltávolítani ezeket az e-mail címeket, akkor a következő módon járhat el.

Kötegelt távolítsa el az összes meghatározott tartományú e-mail címet a névjegyekből

1. Mert minttart, nyissa meg az Outlook VBA szerkesztőjét az „Alt + F11” billentyűparancs segítségével.
2. Ezután az új ablakban helyezze el a következő VBA-kódot egy üres modulba.

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. Ezután vigye a kurzort a „BatchRemoveAllEmailAddressesInSpecificDomain” szubrutinba.
4. Végül kattintson az „F5” billentyűre a makró aktiválásához.
5. Ezt követően adja meg az adott tartományt a felugró párbeszédpanelen.
6. Az „OK” gombra kattintás után a makró elindul.
7. Amikor befejeződik, üzenetet fog kapni az eredményekről.
8. Most ellenőrizheti a névjegyeket. Az adott domainhez tartozó összes e-mail cím eltűnt.

Őrizze meg Outlook-fájlját

Mivel egyre több kockázat övezi az Outlookot, egyre nehezebb megvédeni értékes Outlook-adatait. Például nem csak a rendszeres adatmentések mellett kell kitartania, hanem ügyelnie kell a műveletekre is. Nem bölcs dolog azonnal megbízni az ismeretlen feladóktól származó e-mailekben. Ellenkező esetben, ha vírust hordoz, az Outlook-fájl megfertőződik. Ilyenkor meg kell próbálni Outlook javítás egy figyelemre méltó javítóeszközön keresztül, mint pl DataNumen Outlook Repair.

Szerző Bevezetés:

Shirley Zhang adat-helyreállítási szakértő DataNumen, Inc., amely világelső az adat-helyreállítási technológiák területén, beleértve meggyógyul Sql Server és outlook javítószoftver termékek. További információért látogasson el www.datanumen.com