2 métodos para copiar todos los miembros de un grupo de contactos a otro en Outlook

Este artículo presentará 2 enfoques para copiar todos los miembros de un grupo de contacto a otro. Puede elegir según sus necesidades.

Muchos usuarios esperan que Outlook pueda proporcionar un medio rápido para copiar los miembros de un grupo de contactos a otro. Puede ayudarlos a escapar del problema de agregar miembros uno por uno manualmente. Ahora, a continuación, compartiremos 2 formas. La primera es una solución alternativa que utiliza la función nativa de Outlook. Y el último es mucho más inteligente debido a su uso de código VBA.

Método 1: copiar y pegar miembros manualmente

1. En primer lugar, inicie su programa Outlook.
2. Luego, puede acceder al área de Contactos, en la que debe ubicar y presentar un grupo de contactos específico.
3. A continuación, puede hacer clic en el botón "Correo electrónico" en el grupo "Comunicar" en la pestaña "Inicio".
4. Después de eso, se mostrará un nuevo correo electrónico, en el que debe hacer clic en el ícono "+" frente al grupo en el campo "Para" para expandir el grupo.
5. Más tarde, copie las direcciones de correo electrónico de todos los miembros después de expandir el campo "Para".
6. Posteriormente, regrese a la carpeta Contactos y localice y abra el grupo de contactos al que desea copiar los miembros.
7. En la ventana del grupo de contactos de destino, haga clic en "Agregar miembros" > "Desde la libreta de direcciones".
8. Luego, en el cuadro de diálogo emergente, presione "Ctrl + V" para pegar los miembros copiados en el campo "Miembros->".
9. Por último, haga clic en "Aceptar" y en el botón "Guardar y cerrar" para guardar los cambios.

Método 2: copiar miembros de un grupo de contacto a otro a través de VBA

1. En primer lugar, en la ventana principal de Outlook, presione los botones de tecla "Alt + F11".
2. En la ventana posterior "Microsoft Visual Basic para aplicaciones", copie el siguiente código VBA en un módulo no utilizado.

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

3. Luego, puede agregar esta macro a la barra de herramientas de acceso rápido como de costumbre.
4. Finalmente, puedes intentarlo.

• Para empezar, seleccione o abra un grupo de contactos de origen.
• Luego haga clic en el botón de macro en la barra de herramientas de acceso rápido.
• Posteriormente, se le pedirá que introduzca el nombre del grupo de contactos al que desea dirigirse.
• Después, pulse «Aceptar». Outlook encontrará inmediatamente el grupo de contactos de destino y copiará los miembros del grupo de origen a dicho grupo.

Rescatar archivos de Outlook dañados

Outlook es susceptible a varios factores maliciosos, incluidos cortes de energía, infecciones de virus, etc. Para protegernos contra corrupciones no deseadas, no tenemos más remedio que hacer una copia de seguridad regular de Outlook. Además, es recomendable instalar una potente herramienta de reparación de PST, como DataNumen Outlook Repair. Puede escanear y reparar PST archivo en una alta tasa de recuperación.

Introducción del autor:

Shirley Zhang es experta en recuperación de datos en DataNumen, Inc., que es el líder mundial en tecnologías de recuperación de datos, incluyendo recuperación de sql y productos de software de reparación de Outlook. Para más información visite www.datanumen.com