如何将新联系人自动同步到 Outlook 中的另一个联系人文件夹

展望解决方案 2025 年 9 月 29 日
立即分享：

一些用户希望新联系人可以自动添加到他们 Outlook 中的两个或多个文件夹中。 因此，本文将分享一种将新联系人自动同步到另一个联系人文件夹的方法。

也许您在 Outlook 中配置了多个电子邮件帐户。 他们每个人都有自己的联系人文件夹。 在这种情况下，当您在一个文件夹中创建联系人时，您可能希望也将其同步到其他电子邮件帐户的联系人文件夹。 为什么不让 Outlook 自动完成呢？ 在这里，我们将教您如何实现它。

自动将新联系人同步到 Outlook 中的另一个联系人文件夹

自动将新联系人同步到另一个联系人文件夹

  1. 一开始，您需要启动 Outlook 程序。
  2. 然后，在 Outlook 主窗口中，按快捷键 - “Alt + F11”。
  3. 接下来，您将进入“Microsoft Visual Basic for Applications”窗口，您应该在其中找到并打开“ThisOutlookSession”项目。
  4. 随后，复制以下 VBA 代码并将其粘贴到项目中。
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

VBA 代码 - 自动将新联系人同步到另一个联系人文件夹

  1. 之后，您需要签署此代码。 只需单击工具栏中的“工具”按钮，然后选择“数字签名”。 在弹出的对话框中，只需按照屏幕上的说明进行操作即可。
  2. 稍后您可以退出当前窗口并更改 Outlook 宏设置以允许数字签名的宏。
  3. 最后，您可以重启 Outlook 来激活这个新宏。
  4. 从现在开始，每次向源文件夹添加新联系人时，都会自动同步到预定义的目标文件夹。

对频繁出现的 Outlook 问题做出反应

如果您使用 Outlook 已有数十年，那么您肯定遇到过各种各样的问题，例如 Outlook 卡顿、频繁出现错误信息、PST 文件损坏等等。通常，您可以尝试通过以下方法解决这些问题：在安全模式下重启 Outlook、创建新的 Outlook 配置文件、禁用有问题的加载项等等。当然，您也可以借助功能强大的修复工具，例如…… DataNumen Outlook Repair。 它可以 修复 PST 像软木塞一样的错误。

作者简介：

Shirley Zhang 是一位数据恢复专家 DataNumen, Inc.，它是数据恢复技术领域的世界领先者，包括 修复中密度纤维板 和 outlook 修复软件产品。 欲了解更多信息，请访问 datanumen.com

立即分享：

评论被关闭。