Excel ფაილში კონტაქტების სიიდან საკონტაქტო ჯგუფის შექმნის 2 მეთოდი

თუ გსურთ შექმნათ Outlook საკონტაქტო ჯგუფი კონტაქტების სიიდან Excel ფაილში, შეგიძლიათ გამოიყენოთ ამ სტატიაში წარმოდგენილი 2 მეთოდი.

ზოგიერთი მომხმარებელი ეძებს გზას სწრაფად შექმნას Outlook საკონტაქტო ჯგუფი Excel ფაილიდან, რომელიც შეიცავს კონტაქტების სიას. რა თქმა უნდა, თქვენ შეგიძლიათ შექმნათ ასეთი საკონტაქტო ჯგუფი ხელით. თუმცა, ეს ცოტა პრობლემურია. აქედან გამომდინარე, გარდა სახელმძღვანელო საშუალებებისა, აქ დამატებით შემოგთავაზებთ კიდევ ერთ სწრაფ მეთოდს, რომელიც იყენებს VBA-ს.

მეთოდი 1: ხელით შექმნა

1. თავიდანვე გახსენით Excel ფაილი.
2. შემდეგ აირჩიეთ ელ.ფოსტის მისამართების შემცველი სვეტები. სურვილისამებრ, ასევე შეგიძლიათ შეიტანოთ სვეტები სახელებისთვისაც.
3. შემდეგ დააჭირეთ "Ctrl + C" ყველა არჩეულ უჯრედს.
4. ამის შემდეგ, გაუშვით თქვენი Outlook პროგრამა.
5. შემდეგ გადადით კონტაქტების პანელზე და დააჭირეთ ღილაკს "ახალი საკონტაქტო ჯგუფი".
6. ამის შემდეგ, დააჭირეთ "წევრების დამატება" -> "Outlook კონტაქტებიდან"
7. მოგვიანებით დააწკაპუნეთ ველზე „წევრები ->“ და დააჭირეთ „Ctrl + V“ კლავიშებს, რომ ჩასვათ ადრე კოპირებული კონტაქტები.
8. დააჭირეთ ღილაკს "OK".
9. შემდეგ მიანიჭეთ სახელი ახალი საკონტაქტო ჯგუფისთვის.
10. ბოლოს დააწკაპუნეთ „შენახვა და დახურვა“ ამ ჯგუფის შესანახად.

მეთოდი 2: შექმნა Outlook VBA-ით

1. პირველ რიგში, დააჭირეთ ღილაკს "Alt + F11" Outlook-ში.
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. ერთდროულად გამოჩნდება ახალი საკონტაქტო ჯგუფი, როგორიცაა შემდეგი ეკრანის სურათი:

ოსტატურად გაუმკლავდეთ Outlook-ის საშინელ პრობლემებს

თუ Outlook-ში ხშირად აწყდებით სხვადასხვა შეცდომებს, გირჩევთ შეინარჩუნოთ გამორჩეული და საიმედო Outlook აღდგენა ინსტრუმენტი სიახლოვეს, როგორიცაა DataNumen Outlook Repair. ამ შემთხვევაში, თქვენ შეგიძლიათ გამოიყენოთ იგი დროულად გაუმკლავდეთ შემაშფოთებელ საკითხებს.

ავტორი შესავალი:

შირლი ჟანგი არის მონაცემთა აღდგენის ექსპერტი DataNumen, Inc., რომელიც მსოფლიო ლიდერია მონაცემთა აღდგენის ტექნოლოგიებში, მათ შორის sql-ის აღდგენა და Outlook სარემონტო პროგრამული პროდუქტები. დამატებითი ინფორმაციისთვის ეწვიეთ www.datanumen. ერთად