Cách tự động đồng bộ hóa danh bạ mới với thư mục danh bạ khác trong Outlook

giải pháp triển vọng Tháng Chín 29, 2025

Một số người dùng mong muốn rằng các liên hệ mới có thể được tự động thêm vào hai hoặc nhiều thư mục trong Outlook của họ. Vì vậy, bài viết này sẽ chia sẻ cách tự động đồng bộ danh bạ mới vào một thư mục danh bạ khác.

Có lẽ bạn đã định cấu hình một số tài khoản email trong Outlook của mình. Và mỗi người trong số họ có thư mục Danh bạ riêng. Trong trường hợp như vậy, khi bạn tạo một số liên lạc trong một thư mục, bạn cũng có thể muốn đồng bộ nó với các thư mục Danh bạ của các tài khoản email khác. Tại sao không để Outlook tự động hoàn thành nó? Ở đây chúng tôi sẽ dạy bạn làm thế nào để nhận ra nó.

Tự động đồng bộ hóa Danh bạ mới với Thư mục Danh bạ khác

Ngay từ đầu, bạn cần khởi chạy chương trình Outlook của mình.
Sau đó, trong cửa sổ chính của Outlook, nhấn phím tắt – “Alt + F11”.
Tiếp theo, bạn sẽ vào cửa sổ “Microsoft Visual Basic for Applications”, trong đó bạn phải tìm và mở dự án “ThisOutlookSession”.
Sau đó, sao chép mã VBA sau và dán vào dự án.

Public WithEvents objSourceFolder As Outlook.Folder
Public WithEvents objContacts As Outlook.Items

Private Sub Application_Startup()
    'Get the source Contacts folder
    Set objSourceFolder = Application.Session.GetDefaultFolder(olFolderContacts)
    Set objContacts = objSourceFolder.Items
End Sub

'Occurs when new item is added to the source folder
Private Sub objContacts_ItemAdd(ByVal Item As Object)
    Dim objContact As Outlook.ContactItem
    Dim objTargetFolder As Outlook.Folder
    Dim objCopiedContact As Outlook.ContactItem
 
    If TypeOf Item Is ContactItem Then
       Set objContact = Item
 
       'Specify the target Contacts folder
       '"Personal" refers to the displaying name of target Outlook file
       On Error Resume Next
       Set objTargetFolder = Application.Session.Folders("Personal").Folders("Contacts").Folders("From John Smith")
       If objTargetFolder Is Nothing Then
          Set objTargetFolder = Application.Session.Folders("Personal").Folders("Contacts").Folders.Add("From John Smith")
       End If
 
       'Copy the new contact
       Set objCopiedContact = objContact.Copy
       'Move copied contact to the target folder
       objCopiedContact.Move objTargetFolder
    End If
End Sub

Sau đó, bạn cần ký mã này. Chỉ cần nhấp vào nút “Công cụ” trên thanh công cụ rồi chọn “Chữ ký số”. Trong hộp thoại bật lên, chỉ cần làm theo hướng dẫn trên màn hình.
Sau đó, bạn có thể thoát khỏi cửa sổ hiện tại và thay đổi cài đặt macro Outlook của mình để cho phép các macro được ký điện tử.
Cuối cùng, bạn có thể khởi động lại Outlook để kích hoạt macro mới này.
Từ nay trở đi, mỗi khi thêm một liên hệ mới vào thư mục nguồn, nó sẽ tự động được đồng bộ hóa với thư mục đích đã được xác định trước.

Phản ứng với các sự cố Outlook thường gặp

Nếu bạn đã sử dụng Outlook trong nhiều thập kỷ, chắc hẳn bạn đã gặp phải nhiều vấn đề khác nhau, bao gồm Outlook bị treo, các thông báo lỗi thường xuyên và lỗi hỏng tệp PST, v.v. Thông thường, bạn có thể thử giải quyết chúng bằng cách khởi động lại Outlook ở chế độ an toàn, tạo hồ sơ Outlook mới, vô hiệu hóa các tiện ích bổ sung bị lỗi, v.v. Tất nhiên, bạn cũng có thể nhờ đến sự trợ giúp của một công cụ sửa chữa mạnh mẽ, chẳng hạn như... DataNumen Outlook Repair. Nó có thể sửa PST lỗi như nút chai.

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 sửa chữa mdf 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