2 Methoden zum Erstellen einer Kontaktgruppe aus einer Liste von Kontakten in einer Excel-Datei

Wenn Sie eine Outlook-Kontaktgruppe aus der Liste der Kontakte in einer Excel-Datei erstellen möchten, können Sie die beiden in diesem Artikel vorgestellten Methoden verwenden.

Einige Benutzer suchen nach einer Möglichkeit, schnell eine Outlook-Kontaktgruppe aus einer Excel-Datei zu erstellen, die eine Liste von Kontakten enthält. Natürlich können Sie eine solche Kontaktgruppe manuell erstellen. Es ist jedoch ein bisschen mühsam. Daher werden wir hier neben den manuellen Mitteln zusätzlich eine weitere schnelle Methode vorstellen, die VBA verwendet.

Methode 1: Manuell erstellen

1. Öffnen Sie gleich zu Beginn die Excel-Datei.
2. Wählen Sie dann die Spalten mit den E-Mail-Adressen aus. Optional können Sie auch die Spalten für Namen einfügen.
3. Drücken Sie anschließend "Strg + C" für alle ausgewählten Zellen.
4. Starten Sie anschließend Ihr Outlook-Programm.
5. Wechseln Sie dann in den Bereich "Kontakte" und klicken Sie auf die Schaltfläche "Neue Kontaktgruppe".
6. Klicken Sie anschließend auf "Mitglieder hinzufügen" -> "Aus Outlook-Kontakten".
7. Klicken Sie später in das Feld "Mitglieder ->" und drücken Sie die Tasten "Strg + V", um die zuvor kopierten Kontakte einzufügen.
8. Klicken Sie auf "OK".
9. Weisen Sie dann der neuen Kontaktgruppe einen Namen zu.
10. Klicken Sie zuletzt auf "Speichern und schließen", um diese Gruppe zu speichern.

Methode 2: Erstellen über Outlook VBA

1. Drücken Sie zunächst in Outlook die Tasten „Alt + F11“.
2. Öffnen Sie dann ein neues Modul.
3. Kopieren Sie anschließend die folgenden Codes und fügen Sie sie ein.

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. Klicken Sie anschließend in der Symbolleiste auf das Symbol „Ausführen“.
5. Sofort wird eine neue Kontaktgruppe angezeigt, wie im folgenden Screenshot dargestellt:

Behandeln Sie ärgerliche Outlook-Probleme geschickt

Wenn in Outlook häufig verschiedene Fehler auftreten, wird dringend empfohlen, eine herausragende und zuverlässige Methode beizubehalten Outlook-Wiederherstellung Werkzeug in der Nähe, wie DataNumen Outlook Repair. In diesem Fall können Sie es verwenden, um die lästigen Probleme rechtzeitig zu lösen.

Einführung des Autors:

Shirley Zhang ist eine Datenrettungsexpertin in DataNumen, Inc., das weltweit führend bei Datenwiederherstellungstechnologien ist, einschließlich SQL wiederherstellen und Outlook-Reparatursoftwareprodukte. Für weitere Informationen besuchen Sie www.datanumen.com €XNUMX