2 Módszerek névjegycsoport létrehozására Excel-fájlban található névjegylistából

Ha egy Outlook-névjegycsoportot szeretne létrehozni egy Excel-fájl névjegylistájából, használhatja az ebben a cikkben bemutatott két módszert.

Egyes felhasználók módot keresnek arra, hogy gyorsan létrehozzanak egy Outlook névjegycsoportot a névjegyek listáját tartalmazó Excel-fájlból. Természetesen manuálisan is létrehozhat ilyen kapcsolattartó csoportot. Ez azonban egy kicsit zavaró. Ezért a kézi eszközökön kívül itt egy másik gyors módszert is bemutatunk, amely VBA-t használ.

1. módszer: Kézi létrehozás

1. A legelején nyissa meg az Excel fájlt.
2. Ezután válassza ki az e-mail címeket tartalmazó oszlopokat. Opcionálisan megadhatja a nevek oszlopait is.
3. Ezután nyomja meg a Ctrl + C billentyűket az összes kijelölt cellához.
4. Ezután indítsa el az Outlook programot.
5. Ezután váltson át a Névjegyek panelre, és nyomja meg az „Új kapcsolattartó csoport” gombot.
6. Ezt követően kattintson a „Tagok hozzáadása” -> „Az Outlook névjegyeiből” elemre.
7. Később kattintson a „Members ->” mezőre, és nyomja meg a „Ctrl + V” billentyűket a korábban másolt névjegyek beillesztéséhez.
8. Nyomja meg az „OK” gombot.
9. Ezután adjon nevet az új névjegycsoportnak.
10. Végül kattintson a „Mentés és bezárás” gombra a csoport mentéséhez.

2. módszer: Hozzon létre az Outlook VBA segítségével

1. Először is nyomja meg az „Alt + F11” billentyűket az Outlookban.
2. Ezután nyisson meg egy új modult.
3. Ezt követően másolja ki és illessze be a következő kódokat.

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. Ezután nyomja meg a „Futtatás” ikont az eszköztáron.
5. Egyszerre egy új kapcsolattartó csoport jelenik meg, például a következő képernyőkép:

Ügyesen kezelje a bosszantó Outlook-problémákat

Ha gyakran találkozik különféle hibákkal az Outlook programban, erősen javasolt, hogy kiemelkedő és megbízható legyen Outlook helyreállítása eszköz a közelben, mint DataNumen Outlook Repair. Ebben az esetben segítségével időben kezelheti a bosszantó problémákat.

Szerző Bevezetés:

Shirley Zhang adat-helyreállítási szakértő DataNumen, Inc., amely világelső az adat-helyreállítási technológiák területén, beleértve SQL helyreállítása és outlook javítószoftver termékek. További információért látogasson el www.datanumen.com