Excel файл дахь харилцагчдын жагсаалтаас холбоо барих бүлэг үүсгэх 2 арга

Хэрэв та Excel файл дахь харилцагчдын жагсаалтаас Outlook холбоо барих бүлэг үүсгэхийг хүсвэл энэ нийтлэлд оруулсан 2 аргыг ашиглаж болно.

Зарим хэрэглэгчид Excel файлаас холбоо барих жагсаалтыг багтаасан Outlook холбоо барих бүлгийг хурдан үүсгэх арга замыг хайж байна. Мэдээжийн хэрэг та ийм холбоо барих бүлгийг гараар үүсгэж болно. Гэсэн хэдий ч энэ нь жаахан асуудалтай байдаг. Тиймээс гарын авлагаас гадна VBA ашигладаг өөр нэг хурдан аргыг нэмж танилцуулах болно.

Арга 1: Гараар үүсгэх

1. Хамгийн эхэнд Excel файлыг нээнэ үү.
2. Дараа нь имэйл хаягуудыг агуулсан багануудыг сонгоно уу. Сонголтоор та нэрсэд зориулсан багануудыг нэмж оруулах боломжтой.
3. Дараа нь сонгосон бүх нүдэнд "Ctrl + C" товчийг дарна уу.
4. Үүний дараа Outlook програмаа эхлүүлнэ үү.
5. Дараа нь Contacts pane руу шилжиж "New Contact Group" товчийг дарна уу.
6. Дараа нь "Гишүүд нэмэх" -> "Outlook харилцагчаас" дээр дарна уу.
7. Дараа нь “Гишүүд ->” талбар дээр дараад “Ctrl + V” товчийг дарж өмнө нь хуулсан харилцагчдыг буулгана уу.
8. "OK" товчийг дарна уу.
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. Үүний дараа хэрэгслийн самбар дээрх "Run" дүрсийг дарна уу.
5. Дараахь дэлгэцийн агшин шиг нэгэн зэрэг шинэ холбоо барих бүлэг гарч ирнэ.

Vexing Outlook-тэй холбоотой бэрхшээлийг чадварлагаар зохицуулах

Хэрэв та Outlook дээр янз бүрийн алдаануудтай байнга тулгардаг бол давуу тал, найдвартай байдлыг хадгалахыг зөвлөж байна Outlook сэргээх ойролцоох хэрэгсэл DataNumen Outlook Repair. Энэ тохиолдолд та үүнийг ашиглан ядаргаатай асуудлыг цаг тухайд нь шийдвэрлэхэд ашиглаж болно.

Зохиогчийн танилцуулга:

Ширли Жан бол мэдээлэл сэргээх мэргэжилтэн юм DataNumen, Үүнд мэдээлэл сэргээх технологиор дэлхийд тэргүүлэгч, Inc. sql сэргээх програм хангамжийн бүтээгдэхүүнийг засах хэтийн төлөв. Дэлгэрэнгүй мэдээллийг авна уу WWW.datanumen.com