2 metoder for å opprette en kontaktgruppe fra en liste over kontakter i en Excel-fil

Hvis du vil opprette en Outlook-kontaktgruppe fra listen over kontakter i en Excel-fil, kan du bruke de 2 metodene som er introdusert i denne artikkelen.

Noen brukere leter etter en måte å raskt opprette en Outlook-kontaktgruppe fra en Excel-fil som inneholder en liste over kontakter. Selvfølgelig kan du opprette en slik kontaktgruppe manuelt. Det er imidlertid litt plagsomt. Derfor, bortsett fra de manuelle midlene, vil vi her i tillegg introdusere en annen rask metode som bruker VBA.

Metode 1: Opprett manuelt

1. Helt i begynnelsen åpner du Excel-filen.
2. Velg deretter kolonnene som inneholder e-postadressene. Eventuelt kan du også inkludere kolonnene for navn også.
3. Trykk deretter "Ctrl + C" til alle de valgte cellene.
4. Etter det starter du Outlook-programmet.
5. Bytt deretter til kontaktpanelet og trykk på "Ny kontaktgruppe" -knappen.
6. Klikk deretter "Legg til medlemmer" -> "Fra Outlook-kontakter"
7. Klikk senere inn i feltet "Medlemmer ->" og trykk "Ctrl + V"-tastene for å lime inn de tidligere kopierte kontaktene.
8. Trykk på "OK"-knappen.
9. Deretter tildeler du et navn for den nye kontaktgruppen.
10. Klikk til slutt "Lagre og lukk" for å lagre denne gruppen.

Metode 2: Opprett via Outlook VBA

1. For det første, trykk "Alt + F11" -tastene i Outlook.
2. Åpne deretter en ny modul.
3. Kopier og lim deretter inn 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. Trykk deretter på "Kjør"-ikonet i verktøylinjen.
5. Med en gang vil en ny kontaktgruppe vises, som følgende skjermbilde:

Håndter irriterende Outlook-problemer dyktig

Hvis du ofte støter på ulike feil i Outlook, anbefales det sterkt å holde en fremtredende og pålitelig Outlook gjenoppretting verktøy i nærheten, som DataNumen Outlook Repair. I dette tilfellet kan du bruke den til å håndtere de irriterende problemene via den i tide.

Forfatterintroduksjon:

Shirley Zhang er en datagjenopprettingsekspert innen DataNumen, Inc., som er verdensledende innen datagjenopprettingsteknologier, inkludert gjenopprette sql og Outlook-reparasjonsprodukter. For mer informasjon besøk www.datanumen. Med