Đôi khi, bạn có thể muốn xóa tất cả các địa chỉ email có tên miền cụ thể khỏi danh bạ của mình. Trong tình huống này, bạn phải không muốn làm điều đó từng cái một. Như vậy, p nàyost sẽ dạy cho bạn một phương pháp thông minh hơn nhiều.
Ví dụ, một công ty thay đổi tên của nó. Trong khi đó, tên miền của công ty cũng bị thay đổi. Tuy nhiên, trong Outlook, bạn đã lưu trữ nhiều địa chỉ liên hệ trong công ty này, có địa chỉ email thuộc miền cũ. Tất nhiên, những địa chỉ email này không còn hiệu lực. Do đó, trong trường hợp này, nếu bạn muốn xóa các địa chỉ email này ngay lập tức, bạn có thể sử dụng cách sau.
Xóa hàng loạt tất cả địa chỉ email có tên miền cụ thể khỏi danh bạ
- Đối với nhưtart, truy cập trình soạn thảo Outlook VBA bằng phím tắt – “Alt + F11”.
- Sau đó, trong cửa sổ mới, đặt mã VBA sau vào một mô-đun trống.
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
- Sau đó, đặt con trỏ vào chương trình con “BatchRemoveAllEmailAddressesInSpecificDomain”.
- Cuối cùng, nhấp vào nút phím “F5” để kích hoạt macro này.
- Sau đó, nhập tên miền cụ thể vào hộp thoại bật lên.
- Sau khi nhấp vào “OK”, macro sẽ chạy.
- Khi nó kết thúc, bạn sẽ nhận được một thông báo về kết quả.
- Bây giờ, bạn có thể kiểm tra danh bạ. Tất cả các địa chỉ email với tên miền cụ thể phải biến mất.
Bảo quản tệp Outlook của bạn
Với ngày càng nhiều rủi ro xung quanh Outlook của bạn, việc bảo vệ dữ liệu Outlook có giá trị của bạn ngày càng khó khăn hơn. Chẳng hạn, bạn không chỉ nên kiên trì sao lưu dữ liệu thường xuyên mà còn phải coi chừng các hoạt động của mình. Thật không khôn ngoan khi dễ dàng tin tưởng vào bất kỳ email nào từ những người gửi không xác định. Ngược lại, nếu nó mang vi-rút, tệp Outlook của bạn sẽ bị nhiễm. Khi đó, bạn phải cố gắng Sửa chữa Outlook thông qua một công cụ sửa lỗi đáng chú ý, chẳng hạn như DataNumen Outlook Repair.
Giới thiệu tác giả:
Shirley Zhang là một chuyên gia phục hồi dữ liệu trong DataNumen, Inc., công ty hàng đầu thế giới về công nghệ khôi phục dữ liệu, bao gồm lấy lại Sql Server và các sản phẩm phần mềm sửa chữa triển vọng. Để biết thêm thông tin, hãy truy cập www.datanumennăm