2 metode za stvaranje grupe kontakata s popisa kontakata u Excel datoteci

Ako želite stvoriti Outlook grupu kontakata s popisa kontakata u Excel datoteci, možete koristiti 2 metode predstavljene u ovom članku.

Neki korisnici traže način da brzo kreiraju Outlook grupu kontakata iz Excel datoteke koja sadrži popis kontakata. Naravno, takvu grupu kontakata možete kreirati ručno. Međutim, malo je problematično. Dakle, osim ručnih sredstava, ovdje ćemo dodatno predstaviti još jednu brzu metodu koja koristi VBA.

Metoda 1: Stvorite ručno

1. Na samom početku otvorite Excel datoteku.
2. Zatim odaberite stupce koji sadrže adrese e-pošte. Po želji, također možete uključiti stupce za imena.
3. Zatim pritisnite “Ctrl + C” za sve odabrane ćelije.
4. Nakon toga pokrenite Outlook program.
5. Zatim prijeđite na okno s kontaktima i pritisnite gumb "Nova grupa kontakata".
6. Nakon toga kliknite “Dodaj članove” -> “Iz Outlook kontakata”
7. Kasnije kliknite na polje “Članovi ->” i pritisnite tipke “Ctrl + V” da zalijepite prethodno kopirane kontakte.
8. Pritisnite gumb "OK".
9. Zatim dodijelite naziv novoj grupi kontakata.
10. Na kraju kliknite "Spremi i zatvori" da biste spremili ovu grupu.

Metoda 2: Stvorite putem programa Outlook VBA

1. Na prvom mjestu pritisnite tipke "Alt + F11" u programu Outlook.
2. Zatim otvorite novi modul.
3. Nakon toga kopirajte i zalijepite sljedeće kodove u njega.

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. Nakon toga pritisnite ikonu "Pokreni" na alatnoj traci.
5. Odmah će se prikazati nova grupa kontakata, poput sljedeće snimke zaslona:

Vješto riješite dosadne probleme s Outlookom

Ako se često susrećete s raznim pogreškama u Outlooku, toplo se preporučuje da zadržite nadmoćan i pouzdan Outlook oporavak alat u blizini, npr DataNumen Outlook Repair. U ovom slučaju, možete ga koristiti za rješavanje dosadnih problema putem njega na vrijeme.

Uvod za autora:

Shirley Zhang stručnjakinja je za oporavak podataka u DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući oporaviti sql i softverske proizvode za popravak Outlooka. Za više informacija posjetite www.datanumen.com