Entfernen aller E-Mail-Adressen mit einer bestimmten Domäne aus Ihren Outlook-Kontakten

Manchmal können Sie hoffen, alle E-Mail-Adressen mit einer bestimmten Domain aus Ihren Kontakten zu entfernen. In dieser Situation müssen Sie nicht bereit sein, dies einzeln zu tun. Somit ist dieser post wird Ihnen eine weitaus intelligentere Methode beibringen.

Zum Beispiel ändert ein Unternehmen seinen Namen. Inzwischen wird auch die Unternehmensdomäne geändert. In Outlook haben Sie jedoch viele Kontakte in diesem Unternehmen gespeichert, deren E-Mail-Adressen sich auf die alte Domain beziehen. Natürlich sind diese E-Mail-Adressen nicht mehr gültig. Wenn Sie unter diesen Umständen diese E-Mail-Adressen auf einmal entfernen möchten, können Sie den folgenden Weg gehen.

Batch Entfernen Sie alle E-Mail-Adressen mit einer bestimmten Domain aus den Kontakten

1. Für astart Rufen Sie den Outlook VBA-Editor über die Tastenkombination „Alt + F11“ auf.
2. Platzieren Sie dann im neuen Fenster den folgenden VBA-Code in einem leeren Modul.

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. Setzen Sie danach den Cursor in die Unterroutine "BatchRemoveAllEmailAddressesInSpecificDomain".
4. Klicken Sie abschließend auf die Taste „F5“, um dieses Makro auszulösen.
5. Geben Sie anschließend im Popup-Dialogfeld die bestimmte Domäne ein.
6. Nachdem Sie auf "OK" geklickt haben, wird das Makro ausgeführt.
7. Wenn es fertig ist, erhalten Sie eine Nachricht über die Ergebnisse.
8. Jetzt können Sie die Kontakte überprüfen. Alle E-Mail-Adressen mit der spezifischen Domain müssen verschwunden sein.

Bewahren Sie Ihre Outlook-Datei auf

Angesichts der zunehmenden Risiken in Bezug auf Outlook wird es immer schwieriger, Ihre wertvollen Outlook-Daten zu schützen. Zum Beispiel sollten Sie nicht nur regelmäßig Datensicherungen durchführen, sondern auch auf Ihre Vorgänge achten. Es ist nicht ratsam, E-Mails von unbekannten Absendern ohne weiteres zu vertrauen. Andernfalls wird Ihre Outlook-Datei infiziert, wenn sie einen Virus enthält. Zu diesem Zeitpunkt müssen Sie versuchen Outlook reparieren über ein bemerkenswertes Fix-Tool, wie z DataNumen Outlook Repair.

Einführung des Autors:

Shirley Zhang ist eine Datenrettungsexpertin in DataNumen, Inc., das weltweit führend bei Datenwiederherstellungstechnologien ist, einschließlich erholen Sql Server und Outlook-Reparatursoftwareprodukte. Für weitere Informationen besuchen Sie www.datanumen.com €XNUMX