2 Метода за създаване на група контакти от списък с контакти във файл на Excel

Ако искате да създадете група контакти на Outlook от списъка с контакти във файл на Excel, можете да използвате 2-те метода, въведени в тази статия.

Някои потребители търсят начин за бързо създаване на група контакти на Outlook от файл на Excel, който съдържа списък с контакти. Разбира се, можете да създадете такава група контакти ръчно. Това обаче е малко обезпокоително. Следователно, освен ръчните средства, тук ще представим още един бърз метод, който използва VBA.

Метод 1: Създайте ръчно

1. В самото начало отворете файла Excel.
2. След това изберете колоните, съдържащи имейл адресите. По желание можете да включите и колоните за имена.
3. След това натиснете „Ctrl + C“ до всички избрани клетки.
4. След това стартирайте програмата Outlook.
5. След това превключете към екрана Контакти и натиснете бутона „Нова група контакти“.
6. След това щракнете върху „Добавяне на членове“ -> „От контакти на Outlook“
7. По-късно кликнете в полето „Членове ->“ и натиснете клавишите „Ctrl + V“, за да поставите копираните преди това контакти.
8. Натиснете бутона „OK“.
9. След това задайте име за новата група контакти.
10. Накрая щракнете върху „Запазване и затваряне“, за да запазите тази група.

Метод 2: Създаване чрез Outlook VBA

1. На първо място, натиснете бутоните „Alt + F11“ в Outlook.
2. След това отворете нов модул.
3. Впоследствие копирайте и поставете следните кодове в него.

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. След това натиснете иконата „Run“ в лентата с инструменти.
5. Веднага ще се покаже нова група контакти, като следната екранна снимка:

Справете се умело с притеснителните проблеми с Outlook

Ако често срещате различни грешки в Outlook, силно се препоръчва да запазите предимство и надеждност Възстановяване на Outlook инструмент в близост, като DataNumen Outlook Repair. В този случай можете да го използвате, за да се справяте навреме с досадните проблеми чрез него.

Въведение на автора:

Шърли Джанг е експерт по възстановяване на данни в DataNumen, Inc., която е световен лидер в технологиите за възстановяване на данни, включително възстанови sql и outlook софтуерни продукти за ремонт. За повече информация посетете WWW.datanumen.com