როგორ ამოიღოთ ყველა ელ.ფოსტის მისამართი კონკრეტული დომენით თქვენი Outlook კონტაქტებიდან

Outlook Solutions სექტემბერი 29, 2025

ზოგჯერ შეიძლება იმედი გქონდეთ, რომ თქვენი კონტაქტებიდან წაშლით ყველა ელ.ფოსტის მისამართს კონკრეტული დომენით. ამ სიტუაციაში, თქვენ არ უნდა გქონდეთ ამის გაკეთება სათითაოდ. ამრიგად, ეს პost გასწავლით ბევრად უფრო ჭკვიან მეთოდს.

მაგალითად, კომპანია იცვლის სახელს. ამასობაში, კომპანიის დომენი ასევე იცვლება. თუმცა, Outlook-ში თქვენ გაქვთ შენახული მრავალი კონტაქტი ამ კომპანიაში, რომელთა ელ.ფოსტის მისამართები არის ძველ დომენთან. რა თქმა უნდა, ეს ელფოსტის მისამართები აღარ არის მოქმედი. აქედან გამომდინარე, ამ ვითარებაში, თუ გსურთ ამ ელ.ფოსტის მისამართების ამოღება ერთი ნაბიჯით, შეგიძლიათ გამოიყენოთ შემდეგი გზა.

ჯგუფური ამოღება ყველა ელ.ფოსტის მისამართის კონკრეტული დომენით კონტაქტებიდან

როგორცtart, შედით Outlook VBA რედაქტორზე კლავიშის მალსახმობით - "Alt + F11".
შემდეგ, ახალ ფანჯარაში, განათავსეთ შემდეგი 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

ამის შემდეგ ჩადეთ კურსორი „BatchRemoveAllEmailAddressesInSpecificDomain“ ქვეპროგრამაში.
დაბოლოს, დააწკაპუნეთ ღილაკზე "F5" ამ მაკროს გასააქტიურებლად.
ამის შემდეგ, ამომხტარი დიალოგის ფანჯარაში შეიყვანეთ კონკრეტული დომენი.
„OK“-ზე დაწკაპუნების შემდეგ, მაკრო იმუშავებს.
როდესაც ის დასრულდება, თქვენ მიიღებთ შეტყობინებას შედეგების შესახებ.
ახლა თქვენ შეგიძლიათ შეამოწმოთ კონტაქტები. ყველა ელფოსტის მისამართი კონკრეტული დომენით უნდა გაქრეს.

შეინახეთ თქვენი Outlook ფაილი

თქვენი Outlook-ის გარშემო უფრო და უფრო მეტი რისკების გამო, სულ უფრო რთულია თქვენი ღირებული Outlook მონაცემების დაცვა. მაგალითად, არა მხოლოდ უნდა განაგრძოთ მონაცემთა რეგულარულ სარეზერვო ასლებს, არამედ უნდა უფრთხილდეთ თქვენს ოპერაციებს. არ არის გონივრული დაუჯეროთ უცნობი გამგზავნის წერილებს. წინააღმდეგ შემთხვევაში, თუ ის ატარებს ვირუსს, თქვენი Outlook ფაილი დაინფიცირდება. ამ დროს თქვენ უნდა სცადოთ Outlook შეკეთება გამოსწორების შესანიშნავი ხელსაწყოს მეშვეობით, როგორიცაა DataNumen Outlook Repair.

ავტორი შესავალი:

შირლი ჟანგი არის მონაცემთა აღდგენის ექსპერტი DataNumen, Inc., რომელიც მსოფლიო ლიდერია მონაცემთა აღდგენის ტექნოლოგიებში, მათ შორის გამოჯანმრთელება Sql Server და Outlook სარემონტო პროგრამული პროდუქტები. დამატებითი ინფორმაციისთვის ეწვიეთ www.datanumen. ერთად