2 būdai, kaip sukurti kontaktų grupę iš kontaktų sąrašo „Excel“ faile

Jei norite sukurti „Outlook“ kontaktų grupę iš kontaktų sąrašo „Excel“ faile, galite naudoti 2 šiame straipsnyje aprašytus metodus.

Kai kurie vartotojai ieško būdo greitai sukurti „Outlook“ kontaktų grupę iš „Excel“ failo, kuriame yra kontaktų sąrašas. Žinoma, tokią kontaktų grupę galite sukurti ir rankiniu būdu. Tačiau tai šiek tiek vargina. Taigi, be rankinių priemonių, čia papildomai pristatysime kitą greitą metodą, kuris naudoja VBA.

1 būdas: kurkite rankiniu būdu

1. Pačioje pradžioje atidarykite „Excel“ failą.
2. Tada pasirinkite stulpelius, kuriuose yra el. pašto adresai. Pasirinktinai taip pat galite įtraukti vardų stulpelius.
3. Tada paspauskite „Ctrl + C“ visoms pasirinktoms ląstelėms.
4. Po to start savo „Outlook“ programą.
5. Tada perjunkite į kontaktų sritį ir paspauskite mygtuką „Nauja kontaktų grupė“.
6. Tada spustelėkite „Pridėti narius“ -> „Iš Outlook“ kontaktų
7. Vėliau spustelėkite lauką „Nariai ->“ ir paspauskite „Ctrl + V“ klavišus, kad įklijuotumėte anksčiau nukopijuotus kontaktus.
8. Paspauskite mygtuką „Gerai“.
9. Tada naujai kontaktų grupei priskirkite pavadinimą.
10. Galiausiai spustelėkite „Išsaugoti ir uždaryti“, kad išsaugotumėte šią grupę.

2 būdas: kurkite naudodami „Outlook VBA“.

1. Visų pirma, „Outlook“ paspauskite klavišų kombinaciją „Alt + F11“.
2. Tada atidarykite naują modulį.
3. Tada nukopijuokite ir įklijuokite toliau nurodytus kodus.

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. Po to įrankių juostoje spustelėkite piktogramą „Vykdyti“.
5. Iš karto bus rodoma nauja kontaktų grupė, tokia kaip ši ekrano kopija:

Sumaniai susitvarkykite su erzinančiomis „Outlook“ problemomis

Jei dažnai susiduriate su įvairiomis „Outlook“ klaidomis, labai rekomenduojama išlaikyti išskirtinį ir patikimą Outlook atkūrimas įrankis šalia, pvz DataNumen Outlook Repair. Tokiu atveju galite jį naudoti norėdami laiku išspręsti erzinančias problemas.

Autoriaus įvadas:

Shirley Zhang yra duomenų atkūrimo ekspertė DataNumen, Inc., kuri yra pasaulyje duomenų atkūrimo technologijų lyderė, įskaitant atkurti sql ir „Outlook“ taisymo programinės įrangos produktai. Norėdami gauti daugiau informacijos, apsilankykite WWW.datanumen.com