2 metodi per creare un gruppo di contatti da un elenco di contatti in un file Excel

Se desideri creare un gruppo di contatti di Outlook dall'elenco dei contatti in un file Excel, puoi utilizzare i 2 metodi introdotti in questo articolo.

Alcuni utenti stanno cercando un modo per creare rapidamente un gruppo di contatti di Outlook da un file Excel che contiene un elenco di contatti. Naturalmente, puoi creare tale gruppo di contatti manualmente. Tuttavia, è un po' fastidioso. Quindi, oltre ai mezzi manuali, qui introdurremo anche un altro metodo rapido che utilizza VBA.

Metodo 1: crea manualmente

1. All'inizio, apri il file Excel.
2. Seleziona quindi le colonne contenenti gli indirizzi email. Facoltativamente, puoi includere anche le colonne per i nomi.
3. Quindi premi "Ctrl + C" su tutte le celle selezionate.
4. Dopodiché, avvia il programma Outlook.
5. Quindi passa al riquadro Contatti e premi il pulsante "Nuovo gruppo di contatti".
6. Successivamente, fai clic su "Aggiungi membri" -> "Dai contatti di Outlook"
7. Successivamente fai clic nel campo "Membri ->" e premi i tasti "Ctrl + V" per incollare i contatti copiati in precedenza.
8. Premi il pulsante "OK".
9. Quindi assegna un nome al nuovo gruppo di contatti.
10. Infine, fai clic su "Salva e chiudi" per salvare questo gruppo.

Metodo 2: creare tramite Outlook VBA

1. In primo luogo, premi i pulsanti "Alt + F11" in Outlook.
2. Quindi apri un nuovo modulo.
3. Successivamente, copia e incolla i seguenti codici al suo interno.

Sub CreateContactGroupfromExcel()
    Dim objContactsFolder As Outlook.Folder
    Dim objContact As Outlook.ContactItem
    Dim objContactGroup As Outlook.DistListItem
    Dim objExcelApp As New Excel.Application
    Dim objExcelWorkbook As Excel.Workbook
    Dim objExcelWorksheet As Excel.Worksheet
    Dim nLastRow As Integer
    Dim nCurrentRow As Integer
    Dim objNameCell As Excel.Range
    Dim objEmailCell As Excel.Range
    Dim strName As String
    Dim strEmail As String
    Dim objTempMail As Outlook.MailItem
    Dim objRecipients As Outlook.Recipients

    Set objContactsFolder = Outlook.Application.Session.GetDefaultFolder(olFolderContacts)
    Set objContactGroup = Outlook.Application.CreateItem(olDistributionListItem)
    'You can change the contact group name
    objContactGroup.DLName = "Group Name"
 
    Set objExcelApp = CreateObject("Excel.Application")
    'You should change the path to your own Excel file
    Set objExcelWorkbook = objExcelApp.Workbooks.Open("E:\Contacts.xlsx")
    Set objExcelWorksheet = objExcelWorkbook.Sheets(1)
    objExcelWorksheet.Activate
 
    nLastRow = objExcelWorksheet.UsedRange.Rows.Count
    'The "A2" varies with the first contact's name cell in your own Excel file
    Set objNameCell = objExcelApp.Range("A2")
    objNameCell.Select
 
    While nCurrentRow <= nLastRow
          nCurrentRow = objNameCell.Row
 
          strName = objNameCell.Value
 
          If strName = "" Then
             GoTo NextRow
          End If
 
          Set objEmailCell = objExcelApp.ActiveCell.Offset(0, 1)
          strEmail = objEmailCell.Value
 
          Set objContact = objContactsFolder.Items.Find("[FullName] = '" & strName & "'")
 
          'If there is no such a contact, create it.
          If objContact Is Nothing Then
             Set objContact = Outlook.Application.CreateItem(olContactItem)
             With objContact
                  .FullName = strName
                  .Email1Address = strEmail
                  .Save
             End With
          End If
 
          'Add the contacts to the new contact group
          Set objTempMail = Application.CreateItem(olMailItem)
          objTempMail.Recipients.Add (strName)
          Set objRecipients = objTempMail.Recipients
          objContactGroup.AddMembers objRecipients

    NextRow:
          Set objNameCell = objExcelApp.ActiveCell.Offset(1, 0)
          objNameCell.Select
    Wend
 
    'Use "objContactGroup.Save" to straightly save it
    objContactGroup.Display
    objTempMail.Close olDiscard
    objExcelApp.Quit
End Sub

4. Successivamente, premi l'icona "Esegui" nella barra degli strumenti.
5. Immediatamente, verrà visualizzato un nuovo gruppo di contatti, come il seguente screenshot:

Gestisci abilmente i fastidiosi problemi di Outlook

Se riscontri frequentemente vari errori in Outlook, si consiglia vivamente di mantenere un file preminente e affidabile Recupero di Outlook strumento nelle vicinanze, come DataNumen Outlook Repair. In questo caso, puoi usarlo per affrontare i fastidiosi problemi tramite esso in tempo.

Introduzione dell'autore:

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