2 Mga Paraan upang Lumikha ng isang Pangkat ng Pakikipag-ugnay mula sa isang Listahan ng Mga contact sa isang Excel File

Kung nais mong lumikha ng isang pangkat ng contact sa Outlook mula sa listahan ng mga contact sa isang file na Excel, maaari mong gamitin ang 2 pamamaraan na ipinakilala sa artikulong ito.

Ang ilang mga gumagamit ay naghahanap ng isang paraan upang mabilis na lumikha ng isang pangkat ng contact sa Outlook mula sa isang file na Excel na naglalaman ng isang listahan ng mga contact. Siyempre, maaari kang lumikha ng naturang contact group nang manu-mano. Gayunpaman, ito ay medyo mahirap. Samakatuwid, bukod sa mga manu-manong paraan, dito dinididagdag namin ang isa pang mabilis na pamamaraan na gumagamit ng VBA.

Paraan 1: Lumikha ng Manu-manong

1. Sa simula pa lamang, buksan ang file na Excel.
2. Pagkatapos piliin ang mga haligi na naglalaman ng mga email address. Bilang pagpipilian, maaari mo ring isama ang mga haligi para sa mga pangalan din.
3. Susunod na pindutin ang "Ctrl + C" sa lahat ng napiling mga cell.
4. Pagkatapos nito, simulan ang iyong programa sa Outlook.
5. Pagkatapos ay lumipat sa pane ng Mga contact at pindutin ang pindutan na "Bagong Pangkat ng Pakikipag-ugnay".
6. Kasunod, i-click ang "Magdagdag ng Mga Miyembro" -> "Mula sa Mga Contact sa Outlook"
7. Mamaya mag-click sa patlang na "Mga Miyembro ->" at pindutin ang mga "Ctrl + V" na mga key upang i-paste ang dating kinopyang mga contact.
8. Pindutin ang pindutan na "OK".
9. Pagkatapos ay magtalaga ng isang pangalan para sa bagong pangkat ng contact.
10. Panghuli i-click ang "I-save at Isara" upang mai-save ang pangkat na ito.

Paraan 2: Lumikha sa pamamagitan ng Outlook VBA

1. Sa unang lugar, pindutin ang mga pindutan ng "Alt + F11" sa Outlook.
2. Pagkatapos buksan ang isang bagong module.
3. Kasunod, kopyahin at i-paste ang mga sumusunod na code dito.

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. Pagkatapos nito, pindutin ang icon na "Run" sa toolbar.
5. Kaagad, lalabas ang isang bagong pangkat ng contact, tulad ng sumusunod na screenshot:

Mahusay na Pangasiwaan ang Vexing Outlook Troubles

Kung madalas kang nakatagpo ng iba't ibang mga pagkakamali sa Outlook, lubos na iminungkahi na panatilihin ang isang kauna-unahan at maaasahan Paggaling ng Outlook tool sa paligid, tulad ng DataNumen Outlook Repair. Sa kasong ito, maaari mo itong magamit upang harapin ang mga nakakainis na isyu sa pamamagitan nito sa oras.

Panimula ng May-akda:

Si Shirley Zhang ay isang dalubhasa sa pagbawi ng data sa DataNumen, Inc., na pinuno ng mundo sa mga teknolohiya sa pagbawi ng data, kasama ang mabawi ang sql at pananaw sa pag-aayos ng mga produktong software. Para sa karagdagang impormasyon pagbisita www.datanumen. Sa