Excel ֆայլում գտնվող կոնտակտների ցանկից կոնտակտային խումբ ստեղծելու 2 եղանակ

Outlook լուծումներ Սեպտեմբեր 29, 2025

Եթե ցանկանում եք ստեղծել Excel ֆայլի կոնտակտների ցանկից Outlook կոնտակտային խումբ, կարող եք օգտագործել այս հոդվածում ներկայացված 2 եղանակները:

Որոշ օգտվողներ փնտրում են միջոց Excel- ի ֆայլից արագ ստեղծելու Outlook կոնտակտային խումբ, որը պարունակում է կոնտակտների ցուցակ: Իհարկե, դուք կարող եք ձեռքով ստեղծել այդպիսի շփման խումբ: Այնուամենայնիվ, դա մի փոքր անհանգստացնող է: Հետևաբար, բացի ձեռնարկի միջոցներից, այստեղ մենք լրացուցիչ կներկայացնենք մեկ այլ արագ մեթոդ, որն օգտագործում է VBA:

Մեթոդ 1. Ստեղծեք ձեռքով

Հենց սկզբից բացեք Excel ֆայլը:
Դրանից հետո ընտրեք էլ. Փոստի հասցեները պարունակող սյունակները: Allyանկության դեպքում դուք կարող եք նաև ներառել անունների սյունակները:
Հաջորդը սեղմեք «Ctrl + C» բոլոր ընտրված բջիջներին:
Դրանից հետո գործարկեք ձեր Outlook ծրագիրը։
Դրանից հետո անցեք Կոնտակտների վահանակ և սեղմեք «Նոր կոնտակտների խումբ» կոճակը:
Հետագայում կտտացրեք «Ավելացնել անդամներ» -> «Outlook- ի կոնտակտներից»
Ավելի ուշ կտտացրեք «Անդամներ ->» դաշտին և սեղմեք «Ctrl + V» ստեղները ՝ նախկինում պատճենված կոնտակտները տեղադրելու համար:
Սեղմեք «OK» կոճակը:
Դրանից հետո նշանակեք անուն նոր կոնտակտային խմբի համար:
Վերջապես կտտացրեք «Պահել և փակել» ՝ այս խումբը փրկելու համար:

Մեթոդ 2. Ստեղծել Outlook VBA- ի միջոցով

Առաջին հերթին, Outlook- ում սեղմեք «Alt + F11» ստեղնային կոճակները:
Դրանից հետո բացեք նոր մոդուլ:
Դրանից հետո պատճենեք և տեղադրեք հետևյալ ծածկագրերը դրա մեջ:

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

Դրանից հետո հարվածեք «Գործարկել» պատկերակին գործիքագոտում:
Միանգամից կցուցադրվի նոր կոնտակտային խումբ, ինչպես հետևյալ սքրինշոթը.

Հմտորեն կարգավորեք Vexing Outlook- ի խնդիրները

Եթե Outlook- ում հաճախ եք բախվում տարբեր սխալների, ապա մեծապես առաջարկվում է պահպանել գերակա և հուսալի Outlook- ի վերականգնում գործիք հարեւանությամբ, ինչպես DataNumen Outlook Repair, Այս դեպքում այն կարող եք օգտագործել ժամանակին դրա միջոցով նյարդայնացնող հարցերը լուծելու համար:

Հեղինակի ներածություն.

Shirley Zhang- ը տվյալների վերականգման փորձագետ է DataNumen, Inc., որը տվյալների վերականգման տեխնոլոգիաների համաշխարհային առաջատարն է, այդ թվում վերականգնել sql և հեռանկարների նորոգման ծրագրակազմի արտադրանքները: Լրացուցիչ տեղեկությունների համար այցելեք www.datanumen.com