2 metoder til at oprette en kontaktgruppe fra en liste over kontaktpersoner i en Excel-fil

Hvis du gerne vil oprette en Outlook-kontaktgruppe fra listen over kontakter i en Excel-fil, kan du bruge de 2 metoder introduceret i denne artikel.

Nogle brugere søger en måde til hurtigt at oprette en Outlook-kontaktgruppe fra en Excel-fil, som indeholder en liste over kontakter. Selvfølgelig kan du oprette en sådan kontaktgruppe manuelt. Det er dog lidt besværligt. Derfor, bortset fra de manuelle midler, vil vi her desuden introducere en anden hurtig metode, der bruger VBA.

Metode 1: Opret manuelt

1. Åbn Excel-filen lige fra starten.
2. Vælg derefter de kolonner, der indeholder e-mailadresserne. Du kan eventuelt også inkludere kolonnerne for navne.
3. Tryk derefter på "Ctrl + C" til alle de valgte celler.
4. Derefter, start dit Outlook-program.
5. Skift derefter til ruden Kontakter og tryk på knappen "Ny kontaktgruppe".
6. Klik derefter på "Tilføj medlemmer" -> "Fra Outlook-kontakter"
7. Klik senere ind i feltet "Members ->" og tryk på "Ctrl + V" tasterne for at indsætte de tidligere kopierede kontakter.
8. Tryk på knappen "OK".
9. Tildel derefter et navn til den nye kontaktgruppe.
10. Klik til sidst på "Gem og luk" for at gemme denne gruppe.

Metode 2: Opret via Outlook VBA

1. For det første skal du trykke på “Alt + F11” -tasten i Outlook.
2. Åbn derefter et nyt modul.
3. Kopier og indsæt derefter følgende koder i den.

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. Tryk derefter på "Kør"-ikonet på værktøjslinjen.
5. Med det samme vises en ny kontaktgruppe, som følgende skærmbillede:

Håndter irriterende Outlook-problemer dygtigt

Hvis du ofte støder på forskellige fejl i Outlook, anbefales det stærkt at holde en fremtrædende og pålidelig Outlook opsving værktøj i nærheden, som DataNumen Outlook Repair. I dette tilfælde kan du bruge det til at håndtere de irriterende problemer via det i tide.

Forfatter Introduktion:

Shirley Zhang er ekspert i datagendannelse i DataNumen, Inc., som er verdens førende inden for datagendannelsesteknologier, herunder gendanne sql og Outlook-reparationssoftwareprodukter. For mere information besøg www.datanumen.com