2 metodes, kā izveidot kontaktu grupu no kontaktu saraksta Excel failā

Ja vēlaties izveidot Outlook kontaktpersonu grupu no kontaktpersonu saraksta Excel failā, varat izmantot 2 šajā rakstā ieviestās metodes.

Daži lietotāji meklē veidu, kā ātri izveidot Outlook kontaktpersonu grupu no Excel faila, kurā ir kontaktu saraksts. Protams, jūs varat manuāli izveidot šādu kontaktu grupu. Tomēr tas ir mazliet traucējošs. Tādējādi, izņemot manuālos līdzekļus, šeit mēs papildus ieviesīsim vēl vienu ātru metodi, kurā tiek izmantota VBA.

1. metode: izveidojiet manuāli

1. Sākumā atveriet Excel failu.
2. Pēc tam atlasiet kolonnas, kurās ir e-pasta adreses. Pēc izvēles varat iekļaut arī slejas nosaukumiem.
3. Pēc tam nospiediet “Ctrl + C” visām atlasītajām šūnām.
4. Pēc tam startējiet savu Outlook programmu.
5. Pēc tam pārslēdzieties uz rūti Kontaktpersonas un nospiediet pogu “Jauna kontaktu grupa”.
6. Pēc tam noklikšķiniet uz “Pievienot dalībniekus” -> “No Outlook kontaktiem”
7. Vēlāk noklikšķiniet laukā “Dalībnieki ->” un nospiediet taustiņus “Ctrl + V”, lai ielīmētu iepriekš nokopētos kontaktus.
8. Nospiediet pogu Labi.
9. Pēc tam piešķiriet jaunās kontaktu grupas nosaukumu.
10. Visbeidzot noklikšķiniet uz “Saglabāt un aizvērt”, lai saglabātu šo grupu.

2. metode: izveidojiet, izmantojot Outlook VBA

1. Pirmkārt, programmā Outlook nospiediet taustiņu pogas “Alt + F11”.
2. Pēc tam atveriet jaunu moduli.
3. Pēc tam nokopējiet un ielīmējiet tajā šādus 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. Pēc tam rīkjoslā nospiediet ikonu “Palaist”.
5. Uzreiz tiks parādīta jauna kontaktu grupa, piemēram, šāds ekrānuzņēmums:

Prasmīgi rīkojieties ar Vexing Outlook nepatikšanām

Ja programmā Outlook bieži tiek novērotas dažādas kļūdas, ieteicams saglabāt izcilu un uzticamu Outlook atkopšana rīks tuvumā, piemēram DataNumen Outlook Repair. Šajā gadījumā jūs varat to izmantot, lai savlaicīgi risinātu kaitinošos jautājumus.

Autora ievads:

Šērlija Džana ir datu atkopšanas eksperte DataNumen, Inc., kas ir pasaules līderis datu atkopšanas tehnoloģiju, tostarp atgūt kv un perspektīvas remonta programmatūras produktus. Lai iegūtu vairāk informācijas, apmeklējiet vietni www.datanumen. Ar