2 meetodid kontaktirühma loomiseks Exceli faili kontaktide loendist

Kui soovite luua Outlooki kontaktirühma Exceli faili kontaktide loendist, saate kasutada kahte selles artiklis tutvustatud meetodit.

Mõned kasutajad otsivad võimalust kiiresti luua Outlooki kontaktirühm kontaktide loendit sisaldavast Exceli failist. Loomulikult saate sellise kontaktirühma käsitsi luua. Siiski on see veidi tülikas. Seetõttu tutvustame lisaks käsitsi kasutatavatele vahenditele veel üht kiiret meetodit, mis kasutab VBA-d.

1. meetod: looge käsitsi

1. Kohe alguses avage Exceli fail.
2. Seejärel valige e-posti aadresse sisaldavad veerud. Soovi korral saate lisada ka nimede veerge.
3. Järgmisena vajutage kõigi valitud lahtrite jaoks "Ctrl + C".
4. Pärast seda käivitage oma Outlooki programm.
5. Seejärel minge kontaktide paanile ja klõpsake nuppu "Uus kontaktirühm".
6. Seejärel klõpsake "Lisa liikmeid" -> "Outlooki kontaktidest"
7. Hiljem klõpsake väljal "Liikmed ->" ja vajutage eelnevalt kopeeritud kontaktide kleepimiseks klahve "Ctrl + V".
8. Vajutage nuppu "OK".
9. Seejärel määrake uuele kontaktirühmale nimi.
10. Viimasena klõpsake selle rühma salvestamiseks nuppu "Salvesta ja sulge".

2. meetod: looge Outlook VBA kaudu

1. Esiteks vajutage Outlookis klahvikombinatsiooni Alt + F11.
2. Seejärel avage uus moodul.
3. Seejärel kopeerige ja kleepige sellesse järgmised koodid.

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. Pärast seda klõpsake tööriistaribal ikooni "Käivita".
5. Korraga kuvatakse uus kontaktirühm, nagu järgmine ekraanipilt:

Käsitlege ärevaid Outlooki probleeme oskuslikult

Kui teil esineb Outlookis sageli mitmesuguseid tõrkeid, on väga soovitatav hoida silmapaistev ja usaldusväärne Outlooki taastamine tööriist läheduses, nagu DataNumen Outlook Repair. Sel juhul saate seda kasutada tüütute probleemide õigeaegseks lahendamiseks.

Autori sissejuhatus:

Shirley Zhang on andmete taastamise ekspert DataNumen, Inc., mis on maailmas juhtiv andmete taastamise tehnoloogiate, sealhulgas sql-i taastamine ja Outlooki remonditarkvaratooted. Lisateabe saamiseks külastage www.datanumenCom