Excel faylidagi kontaktlar ro'yxatidan kontaktlar guruhini yaratishning 2 usuli

Agar Excel faylidagi kontaktlar ro'yxatidan Outlook kontaktlar guruhini yaratmoqchi bo'lsangiz, ushbu maqolada keltirilgan 2 usuldan foydalanishingiz mumkin.

Ba'zi foydalanuvchilar kontaktlar ro'yxatini o'z ichiga olgan Excel faylidan Outlook kontaktlar guruhini tezda yaratish yo'lini izlamoqda. Albatta, bunday aloqa guruhini qo'lda yaratishingiz mumkin. Biroq, bu biroz muammoli. Shunday qilib, qo'lda ishlatiladigan vositalardan tashqari, biz VBA-dan foydalanadigan yana bir tezkor usulni qo'shimcha ravishda kiritamiz.

1-usul: Qo'lda yaratish

1. Eng boshida Excel faylini oching.
2. Keyin elektron pochta manzillarini o'z ichiga olgan ustunlarni tanlang. Majburiy emas, shuningdek, nomlar uchun ustunlarni ham qo'shishingiz mumkin.
3. Keyin barcha tanlangan kataklarga "Ctrl + C" tugmalarini bosing.
4. Shundan so'ng, Outlook dasturingizni ishga tushiring.
5. Keyin Kontaktlar paneliga o'ting va "Yangi kontakt guruhi" tugmasini bosing.
6. Keyinchalik, "A'zolarni qo'shish" -> "Outlook kontaktlaridan" tugmasini bosing.
7. Keyinroq "A'zolar ->" maydoniga bosing va avval nusxalangan kontaktlarni joylashtirish uchun "Ctrl + V" tugmalarini bosing.
8. "OK" tugmasini bosing.
9. Keyin yangi kontakt guruhi uchun nom belgilang.
10. Nihoyat, ushbu guruhni saqlash uchun “Saqlash va yopish” tugmasini bosing.

2-usul: Outlook VBA orqali yarating

1. Birinchidan, Outlook-da "Alt + F11" tugmachalarini bosing.
2. Keyin yangi modulni oching.
3. Keyinchalik, quyidagi kodlarni nusxa ko'chiring va unga joylashtiring.

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. Shundan so'ng, asboblar panelidagi "Ishga tushirish" belgisini bosing.
5. Bir vaqtning o'zida yangi kontakt guruhi paydo bo'ladi, masalan, quyidagi skrinshot:

Ajablanadigan Outlook muammolarini mohirona hal qiling

Agar siz Outlook-da tez-tez turli xil xatolarga duch kelsangiz, uni eng muhim va ishonchli saqlash tavsiya etiladi Outlookni tiklash yaqin atrofdagi asbob, kabi DataNumen Outlook Repair. Bunday holda, siz o'z vaqtida u orqali zerikarli muammolarni hal qilish uchun foydalanishingiz mumkin.

Muallif kirish:

Shirli Chjan ma'lumotlarni qayta tiklash bo'yicha mutaxassis DataNumenMa'lumotlarni qayta tiklash texnologiyalari bo'yicha jahon yetakchisi bo'lgan , Inc sql-ni tiklash va Outlook ta'mirlash dasturiy mahsulotlar. Qo'shimcha ma'lumot olish uchun tashrif buyuring www.datanumen.com