2 Excel файлындағы контактілер тізімінен байланыс тобын құру әдістері

Егер сіз Excel файлындағы контактілер тізімінен Outlook байланыс тобын құрғыңыз келсе, осы мақалада енгізілген 2 әдісті қолдануға болады.

Кейбір пайдаланушылар контактілер тізімі бар Excel файлынан Outlook контактілер тобын жылдам құрудың жолын іздейді. Әрине, сіз осындай байланыс тобын қолмен жасай аласыз. Алайда, бұл біраз мазасыз. Сонымен, нұсқаулықтан басқа біз VBA-ны қолданатын тағы бір жылдам әдісті енгіземіз.

1-әдіс: Қолмен жасаңыз

1. Ең басында Excel файлын ашыңыз.
2. Содан кейін электрондық пошта мекенжайлары бар бағандарды таңдаңыз. Таңдау бойынша, сіз аттарға арналған бағандарды да қоса аласыз.
3. Содан кейін барлық таңдалған ұяшықтарға «Ctrl + C» басыңыз.
4. Осыдан кейін Outlook бағдарламаңызды іске қосыңыз.
5. Содан кейін Контактілер тақтасына ауысып, «Жаңа байланыс тобы» батырмасын басыңыз.
6. Содан кейін «Мүшелер қосу» -> «Outlook контактілерінен» басыңыз.
7. Кейінірек «Мүшелер ->» өрісіне өтіп, «Ctrl + V» пернелерін басып, бұрын көшірілген контактілерді қойыңыз.
8. «Жарайды» батырмасын басыңыз.
9. Содан кейін жаңа байланыс тобына атау беріңіз.
10. Осы топты сақтау үшін «Сақтау және жабу» түймесін басыңыз.

2-әдіс: Outlook VBA арқылы құру

1. Біріншіден, Outlook бағдарламасындағы «Alt + F11» батырмаларын басыңыз.
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. Осыдан кейін құралдар тақтасындағы «Іске қосу» белгішесін басыңыз.
5. Бірден келесі скриншот сияқты жаңа байланыс тобы пайда болады:

Vexing Outlook ақауларын шебер басқарыңыз

Егер сіз Outlook бағдарламасында әртүрлі қателіктермен жиі кездесетін болсаңыз, онда басымдық пен сенімділікті сақтау ұсынылады Outlook қалпына келтіру сияқты құрал DataNumen Outlook Repair. Бұл жағдайда сіз оны уақытында ол арқылы тітіркендіргіш мәселелерді шешу үшін пайдалана аласыз.

Автордың кіріспесі:

Ширли Чжан - деректерді қалпына келтіру бойынша сарапшы DataNumen, Соның ішінде деректерді қалпына келтіру технологиялары бойынша әлемдік көшбасшы болып табылатын Inc. қалпына келтіру кв және бағдарламалық жасақтаманы жөндеу бағдарламалары. Қосымша ақпарат алу үшін кіріңіз WWW.datanumen.com