Outlookで新しい連絡先を別の連絡先フォルダに自動同期する方法

Outlookソリューション 2025 年 9 月 29 日

一部のユーザーは、新しい連絡先をOutlookのXNUMXつ以上のフォルダーに自動的に追加できることを望んでいます。したがって、この記事では、新しい連絡先を別の連絡先フォルダに自動同期する方法を共有します。

Outlookで複数の電子メールアカウントを構成した可能性があります。そして、それぞれに独自の連絡先フォルダがあります。このような場合、XNUMXつのフォルダーに連絡先を作成するときに、他の電子メールアカウントの連絡先フォルダーにも同期することをお勧めします。 Outlookに自動で実行させてみませんか？ここでは、それを実現する方法をお教えします。

新しい連絡先を別の連絡先フォルダに自動同期する

最初に、Outlookプログラムを起動する必要があります。
次に、Outlookのメインウィンドウで、ショートカットキー「Alt + F11」を押します。
次に、「Microsoft Visual Basic for Applications」ウィンドウに入ります。このウィンドウで、「ThisOutlookSession」プロジェクトを見つけて開きます。
続いて、次の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

その後、このコードに署名する必要があります。ツールバーの「ツール」ボタンをクリックして、「デジタル署名」を選択するだけです。ポップアップダイアログボックスで、画面の指示に従ってください。
後で、現在のウィンドウを終了し、Outlookマクロ設定を変更して、デジタル署名されたマクロを許可することができます。
最後に、Outlookを再起動してこの新しいマクロを有効にすることもできます。
今後は、ソースフォルダに新しい連絡先が追加されるたびに、事前に定義されたターゲットフォルダに自動的に同期されます。

頻繁なOutlookの問題に対応する

Outlook を何十年も使用してきた場合、Outlook のフリーズや頻繁なエラーメッセージ、PST ファイルの破損など、さまざまな問題に遭遇したことがあるはずです。一般的には、Outlook をセーフモードで再起動したり、新しい Outlook プロファイルを作成したり、問題のあるアドインを無効にしたりすることで解決できます。もちろん、次のような強力な修復ツールを利用することもできます。 DataNumen Outlook Repair。それができる PSTを修正コルクのようなエラー。

著者紹介：

Shirley Zhangは、のデータ復旧の専門家です。 DataNumen、Inc。は、以下を含むデータ復旧技術の世界的リーダーです。 mdfを修復すると見通し修理ソフトウェア製品。詳細については、次のWebサイトをご覧ください。 WWW。datanumen.com