Excel faylında kontaktlar siyahısından əlaqə qrupu yaratmaq üçün 2 üsul

Excel faylındakı kontaktlar siyahısından Outlook əlaqə qrupu yaratmaq istəyirsinizsə, bu məqalədə təqdim olunan 2 üsuldan istifadə edə bilərsiniz.

Bəzi istifadəçilər kontaktların siyahısını ehtiva edən Excel faylından Outlook əlaqə qrupu yaratmağın bir yolunu axtarırlar. Əlbəttə ki, belə bir əlaqə qrupunu əl ilə yarada bilərsiniz. Bununla belə, bir az əziyyətlidir. Beləliklə, dərslik vasitələrindən başqa, burada əlavə olaraq VBA-dan istifadə edən başqa bir sürətli metod təqdim edəcəyik.

Metod 1: Əl ilə yaradın

1. Ən başlanğıcda Excel faylını açın.
2. Sonra e-poçt ünvanlarını ehtiva edən sütunları seçin. İsteğe bağlı olaraq, adlar üçün sütunları da daxil edə bilərsiniz.
3. Sonra bütün seçilmiş hüceyrələrə "Ctrl + C" düyməsini basın.
4. Bundan sonra, Outlook proqramınızı işə salın.
5. Sonra Kontaktlar panelinə keçin və "Yeni Əlaqə Qrupu" düyməsini basın.
6. Sonra "Üzvlər əlavə et" -> "Outlook Kontaktlarından" düyməsini basın.
7. Daha sonra "Üzvlər ->" sahəsinə klikləyin və əvvəllər kopyalanmış kontaktları yapışdırmaq üçün "Ctrl + V" düymələrini basın.
8. "OK" düyməsini basın.
9. Sonra yeni əlaqə qrupu üçün ad təyin edin.
10. Nəhayət, bu qrupu saxlamaq üçün “Saxla və Bağla” üzərinə klikləyin.

Metod 2: Outlook VBA vasitəsilə yaradın

1. İlk növbədə, Outlook-da "Alt + F11" düymələrini basın.
2. Sonra yeni modul açın.
3. Sonra, aşağıdakı kodları kopyalayın və ona yapışdırın.

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. Bundan sonra, alətlər panelindəki "Çalış" simgesini vurun.
5. Dərhal yeni əlaqə qrupu aşağıdakı ekran görüntüsü kimi görünəcək:

Təhlükəli Outlook problemlərini məharətlə idarə edin

Outlook-da tez-tez müxtəlif səhvlərlə qarşılaşırsınızsa, üstün və etibarlı saxlamağınız tövsiyə olunur Outlook bərpası yaxınlıqdakı alət kimi DataNumen Outlook Repair. Bu halda, onun vasitəsilə zəhlətökən məsələləri vaxtında həll etmək üçün istifadə edə bilərsiniz.

Müəllif Giriş:

Shirley Zhang məlumatların bərpası üzrə mütəxəssisdir DataNumendaxil olmaqla məlumatların bərpası texnologiyaları üzrə dünya lideri olan , Inc sql bərpa edin və Outlook təmiri proqram məhsulları. Ətraflı məlumat üçün ziyarət edin www.datanumen.com