2 Methoden om een ​​contactgroep te maken vanuit een lijst met contactpersonen in een Excel-bestand

Als u een Outlook-contactgroep wilt maken uit de lijst met contactpersonen in een Excel-bestand, kunt u de 2 methoden gebruiken die in dit artikel worden geïntroduceerd.

Sommige gebruikers zoeken een manier om snel een Outlook-contactgroep te maken op basis van een Excel-bestand dat een lijst met contactpersonen bevat. U kunt een dergelijke contactgroep natuurlijk handmatig aanmaken. Het is echter een beetje lastig. Daarom introduceren we hier, afgezien van de handmatige middelen, nog een andere snelle methode die VBA gebruikt.

Methode 1: handmatig maken

1. Open vanaf het begin het Excel-bestand.
2. Selecteer vervolgens de kolommen met de e-mailadressen. Optioneel kunt u ook de kolommen voor namen opnemen.
3. Druk vervolgens op "Ctrl + C" voor alle geselecteerde cellen.
4. Start daarna uw Outlook-programma.
5. Schakel vervolgens over naar het contactvenster en klik op de knop "Nieuwe contactgroep".
6. Klik vervolgens op "Leden toevoegen" -> "Vanuit Outlook-contacten"
7. Klik later in het veld "Leden ->" en druk op de toetsen "Ctrl + V" om de eerder gekopieerde contacten te plakken.
8. Druk op de knop "OK".
9. Wijs vervolgens een naam toe aan de nieuwe contactgroep.
10. Klik ten slotte op "Opslaan en sluiten" om deze groep op te slaan.

Methode 2: maken via Outlook VBA

1. Druk in de eerste plaats op de toetsen "Alt + F11" in Outlook.
2. Open vervolgens een nieuwe module.
3. Kopieer en plak vervolgens de volgende codes erin.

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. Klik daarna op het pictogram "Uitvoeren" in de werkbalk.
5. Meteen wordt een nieuwe contactgroep weergegeven, zoals de volgende schermafbeelding:

Ga vakkundig om met vervelende Outlook-problemen

Als u regelmatig verschillende fouten in Outlook tegenkomt, wordt het ten zeerste aangeraden om een ​​vooraanstaande en betrouwbare Outlook-herstel tool in de buurt, zoals DataNumen Outlook Repair. In dit geval kunt u het gebruiken om de vervelende problemen via het op tijd op te lossen.

Auteur Introductie:

Shirley Zhang is een expert op het gebied van gegevensherstel in DataNumen, Inc., de wereldleider in technologieën voor gegevensherstel, waaronder herstel sql en Outlook-reparatiesoftwareproducten. Voor meer informatie bezoek www.datanumen.com