Bir Excel Dosyasındaki Kişiler Listesinden Kişi Grubu Oluşturmanın 2 Yöntemi

Bir Excel dosyasındaki kişiler listesinden bir Outlook kişi grubu oluşturmak istiyorsanız, bu makalede açıklanan 2 yöntemi kullanabilirsiniz.

Bazı kullanıcılar, bir kişi listesi içeren bir Excel dosyasından hızlı bir şekilde bir Outlook kişi grubu oluşturmanın bir yolunu arıyor. Elbette, böyle bir kişi grubunu manuel olarak oluşturabilirsiniz. Ancak biraz sıkıntılı. Bu nedenle, manuel yöntemlerden ayrı olarak, burada ayrıca VBA kullanan başka bir hızlı yöntemi tanıtacağız.

Yöntem 1: El ile Oluştur

1. En başta, Excel dosyasını açın.
2. Ardından, e-posta adreslerini içeren sütunları seçin. İsteğe bağlı olarak adlar için sütunlar da ekleyebilirsiniz.
3. Ardından, seçilen tüm hücrelere "Ctrl + C" tuşlarına basın.
4. Ardından Outlook programınızı başlatın.
5. Ardından Kişiler bölmesine geçin ve “Yeni Kişi Grubu” düğmesine basın.
6. Ardından, "Üye Ekle" -> "Outlook Kişilerinden" seçeneğini tıklayın.
7. Daha sonra “Üyeler ->” alanına tıklayın ve daha önce kopyalanan kişileri yapıştırmak için “Ctrl + V” tuşlarına basın.
8. “Tamam” düğmesine basın.
9. Ardından yeni kişi grubu için bir ad atayın.
10. Bu grubu kaydetmek için son olarak “Kaydet ve Kapat”a tıklayın.

Yöntem 2: Outlook VBA ile oluşturun

1. İlk olarak Outlook'ta “Alt + F11” tuşlarına basın.
2. Ardından yeni bir modül açın.
3. Daha sonra içine aşağıdaki kodları kopyalayıp yapıştırın.

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. Bundan sonra, araç çubuğundaki “Çalıştır” simgesine basın.
5. Aynı anda, aşağıdaki ekran görüntüsündeki gibi yeni bir kişi grubu görüntülenecektir:

Can Sıkıcı Görünüm Sorunlarını Ustaca Yönetin

Outlook'ta sık sık çeşitli hatalarla karşılaşırsanız, seçkin ve güvenilir bir görünüm elde etmeniz önemle tavsiye edilir. Outlook kurtarma civardaki araç gibi DataNumen Outlook Repair. Bu durumda, can sıkıcı sorunlarla zamanında başa çıkmak için kullanabilirsiniz.

Yazar Tanıtımı:

Shirley Zhang, bir veri kurtarma uzmanıdır. DataNumendahil olmak üzere veri kurtarma teknolojilerinde dünya lideri olan , Inc. sql'yi kurtar ve görünüm onarım yazılım ürünleri. Daha fazla bilgi için ziyaret edin www.datanumen.com