2 Metoder för att skapa en kontaktgrupp från en lista över kontakter i en Excel-fil

Om du vill skapa en Outlook-kontaktgrupp från kontaktlistan i en Excel-fil kan du använda de två metoderna som presenteras i den här artikeln.

Vissa användare söker ett sätt att snabbt skapa en Outlook-kontaktgrupp från en Excel-fil som innehåller en lista över kontakter. Naturligtvis kan du skapa en sådan kontaktgrupp manuellt. Det är dock lite besvärligt. Därför, förutom de manuella metoderna, kommer vi här också att introducera en annan snabb metod som använder VBA.

Metod 1: Skapa manuellt

1. Öppna Excel-filen redan från början.
2. Välj sedan kolumnerna som innehåller e-postadresserna. Alternativt kan du också inkludera kolumnerna för namn.
3. Tryck sedan på "Ctrl + C" till alla markerade celler.
4. Starta sedan ditt Outlook-program.
5. Byt sedan till kontaktfönstret och tryck på knappen "Ny kontaktgrupp".
6. Klicka sedan på "Lägg till medlemmar" -> "Från Outlook-kontakter"
7. Klicka senare i fältet "Medlemmar ->" och tryck på "Ctrl + V" för att klistra in de tidigare kopierade kontakterna.
8. Tryck på “OK” -knappen.
9. Tilldela sedan ett namn för den nya kontaktgruppen.
10. Klicka slutligen på "Spara och stäng" för att spara den här gruppen.

Metod 2: Skapa via Outlook VBA

1. För det första trycker du på “Alt + F11” -knapparna i Outlook.
2. Öppna sedan en ny modul.
3. Kopiera sedan och klistra in följande 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. Klicka därefter på ikonen "Kör" i verktygsfältet.
5. På en gång kommer en ny kontaktgrupp att visas, som följande skärmdump:

Hantera Vexing Outlook-problem skickligt

Om du ofta stöter på olika fel i Outlook rekommenderas det att hålla en framstående och pålitlig Outlook-återställning verktyg i närheten, som DataNumen Outlook Repair. I det här fallet kan du använda den för att hantera de irriterande problemen via den i tid.

Författarintroduktion:

Shirley Zhang är expert på dataåterställning DataNumen, Inc., som är världsledande inom teknik för återställning av data, inklusive återhämta sql och Outlook-programvara för reparationsprogramvara. För mer information besök www.datanumen.com