Outlookですべてのメンバーを2つの連絡先グループから別の連絡先グループにコピーするXNUMXつの方法

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

この記事では、すべてのメンバーを2つの連絡先グループから別の連絡先グループにコピーするXNUMXつの方法を紹介します。必要に応じてどちらかを選択できます。

多くのユーザーは、Outlookがメンバーをある連絡先グループから別の連絡先グループにコピーするための迅速な手段を提供できることを望んでいます。手動でメンバーを2つずつ追加する手間を省くことができます。さて、以下では、XNUMXつの方法を共有します。 XNUMXつ目は、Outlookのネイティブ機能を使用した回避策です。そして後者は、VBAコードを使用しているため、はるかに賢いです。

方法1：メンバーを手動でコピーして貼り付ける

まず最初に、Outlookプログラムを起動してください。
次に、連絡先エリアにアクセスできます。このエリアでは、特定の連絡先グループを見つけて売り込む必要があります。
次に、「ホーム」タブの下の「通信」グループの「電子メール」ボタンをクリックできます。
その後、新しいメールが表示されます。「宛先」フィールドのグループの前にある「+」アイコンをクリックして、グループを展開する必要があります。
後で、「宛先」フィールドで展開した後、すべてのメンバーの電子メールアドレスをコピーします。
続いて、連絡先フォルダに戻り、メンバーをコピーする連絡先グループを見つけて開きます。
対象の連絡先グループのウィンドウで、「メンバーの追加」＞「アドレス帳から」をクリックします。
次に、ポップアップダイアログボックスで「Ctrl + V」を押して、コピーしたメンバーを「メンバー->」フィールドに貼り付けます。
最後に、「OK」と「保存して閉じる」ボタンをクリックして変更を保存します。

方法2：VBAを介してXNUMXつの連絡先グループから別の連絡先グループにメンバーをコピーする

まず、Outlookのメインウィンドウで、「Alt + F11」キーボタンを押します。
続く「MicrosoftVisualBasic for Applications」ウィンドウで、次のVBAコードを未使用のモジュールにコピーします。

Sub CopyMembersFromOneContactGroupToAnother()
    Dim objSourceGroup As DistListItem
    Dim strTargetGroupName As String
    Dim objCurrentContactsFolder, objDefaultContactsFolder As Folder
    Dim objTargetGroup As DistListItem
    Dim objGroupMember As recipient
 
    Select Case Application.ActiveWindow.Class
           Case olInspector
                Set objSourceGroup = ActiveInspector.CurrentItem
           Case olExplorer
                Set objSourceGroup = ActiveExplorer.Selection.Item(1)
    End Select
 
    If objSourceGroup.MemberCount > 0 Then
 
       strTargetGroupName = InputBox("Enter the target contact group name:", "Specify Target Contact Group")
 
       Set objCurrentContactsFolder = objSourceGroup.parent
       Set objTargetGroup = objCurrentContactsFolder.Items.Find("[Subject]= " & Chr(34) & strTargetGroupName & Chr(34))
 
       If Not objTargetGroup Is Nothing Then
          For i = objSourceGroup.MemberCount To 1 Step -1
              Set objGroupMember = objSourceGroup.GetMember(i)
              objTargetGroup.AddMember objGroupMember
          Next i
          objTargetGroup.Save
          MsgBox "Copy Successfully!", vbInformation
      Else
          Set objDefaultContactsFolder = Application.Session.GetDefaultFolder(olFolderContacts)
          Set objTargetGroup = objDefaultContactsFolder.Items.Find("[Subject]= " & Chr(34) & strTargetGroupName & Chr(34))
 
          If Not objTargetGroup Is Nothing Then
             For i = objSourceGroup.MemberCount To 1 Step -1
                 Set objGroupMember = objSourceGroup.GetMember(i)
                 objTargetGroup.AddMember objGroupMember
             Next i
             objTargetGroup.Save
             MsgBox "Copy Successfully!", vbInformation
         Else
             MsgBox "There is not a contact group named as" & Chr(34) & strTargetGroupName & Chr(34) & "!", vbExclamation
         End If
      End If
    End If
End Sub

次に、通常どおり、このマクロをクイックアクセスツールバーに追加できます。
最後に、試してみることができます。

まず、ソースの連絡先グループを選択するか開きます。
次に、クイックアクセスツールバーのマクロボタンをクリックします。
後ほど、対象となる連絡先グループの名前を入力するよう求められます。
その後、「OK」を押してください。すると、Outlook が対象の連絡先グループを自動的に検出し、元のグループのメンバーをコピーします。

破損したOutlookファイルを救助する

Outlookは、停電、ウイルス感染など、さまざまな悪意のある要因の影響を受けやすくなっています。不要な破損を防ぐために、Outlookの定期的なバックアップを作成するしかありません。さらに、次のような強力なPST修復ツールをインストールすることをお勧めします。 DataNumen Outlook Repair。スキャンして PSTを修復する高い回復率でファイルします。

著者紹介：

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