2 metodi per copiare tutti i membri da un gruppo di contatti a un altro in Outlook

Questo articolo introdurrà 2 approcci per copiare tutti i membri da un gruppo di contatto a un altro. Puoi scegliere uno dei due in base alle tue esigenze.

Molti utenti sperano che Outlook possa fornire un mezzo rapido per copiare i membri da un gruppo di contatti a un altro. Può aiutarli a sfuggire al problema di aggiungere manualmente i membri uno per uno. Ora, nei seguenti, condivideremo 2 modi. Il primo è una soluzione alternativa, utilizzando la funzionalità nativa di Outlook. E quest'ultimo è molto più intelligente grazie al suo utilizzo del codice VBA.

Metodo 1: copia e incolla i membri manualmente

1. Innanzitutto, avvia il programma Outlook.
2. Quindi, puoi accedere all'area Contatti, in cui devi individuare e presentare un gruppo di contatti specifico.
3. Successivamente, puoi fare clic sul pulsante "E-mail" nel gruppo "Comunica" nella scheda "Home".
4. Successivamente, verrà visualizzata una nuova e-mail, in cui è necessario fare clic sull'icona "+" davanti al gruppo nel campo "A" per espandere il gruppo.
5. Successivamente, copia gli indirizzi email di tutti i membri dopo aver espanso il campo "A".
6. Successivamente, torna alla cartella Contatti e individua e apri il gruppo di contatti in cui desideri copiare i membri.
7. Nella finestra del gruppo di contatti di destinazione, fare clic su "Aggiungi membri" > "Dalla rubrica".
8. Quindi, nella finestra di dialogo popup, premi "Ctrl + V" per incollare i membri copiati nel campo "Membri->".
9. Infine, fai clic su "OK" e sul pulsante "Salva e chiudi" per salvare le modifiche.

Metodo 2: copia i membri da un gruppo di contatti a un altro tramite VBA

1. Prima di tutto, nella finestra principale di Outlook, premi i pulsanti "Alt + F11".
2. Nella successiva finestra "Microsoft Visual Basic for Applications", copia il seguente codice VBA in un modulo inutilizzato.

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. Quindi, puoi aggiungere questa macro alla barra di accesso rapido come al solito.
4. Finalmente puoi provare.

• Per cominciare, seleziona o apri un gruppo di contatti di origine.
• Quindi fare clic sul pulsante macro nella barra di accesso rapido.
• Successivamente, ti verrà richiesto di inserire il nome del gruppo di contatti di destinazione.
• Dopodiché, premi "OK". Outlook individuerà immediatamente il gruppo di contatti di destinazione e copierà al suo interno i membri del gruppo di origine.

Recupera i file di Outlook danneggiati

Outlook è suscettibile a vari fattori dannosi, tra cui interruzioni di corrente, infezioni da virus e così via. Per proteggerci da corruzioni indesiderate, non abbiamo altra scelta che eseguire un normale backup di Outlook. Inoltre, è consigliabile installare un potente strumento di riparazione PST, come ad esempio DataNumen Outlook Repair. Può scansionare e riparare PST file con un tasso di recupero elevato.

Introduzione dell'autore:

Shirley Zhang è un'esperta di recupero dati in DataNumen, Inc., che è il leader mondiale nelle tecnologie di recupero dati, tra cui ripristino sql e prodotti software di riparazione di Outlook. Per maggiori informazioni visita www.datanumen.com