2 Metódy na vytvorenie skupiny kontaktov zo zoznamu kontaktov v súbore Excel

Ak chcete vytvoriť skupinu kontaktov programu Outlook zo zoznamu kontaktov v súbore programu Excel, môžete použiť dve metódy uvedené v tomto článku.

Niektorí používatelia hľadajú spôsob, ako rýchlo vytvoriť skupinu kontaktov programu Outlook zo súboru programu Excel, ktorý obsahuje zoznam kontaktov. Túto skupinu kontaktov môžete samozrejme vytvoriť manuálne. Je to však trochu nepríjemné. Preto okrem manuálnych prostriedkov tu navyše predstavíme ďalšiu rýchlu metódu, ktorá využíva VBA.

Metóda 1: Vytvorte ručne

1. Hneď na úvod otvorte súbor Excel.
2. Potom vyberte stĺpce obsahujúce e-mailové adresy. Voliteľne môžete zahrnúť aj stĺpce pre mená.
3. Ďalej stlačte „Ctrl + C“ na všetky vybrané bunky.
4. Potom spustite program Outlook.
5. Potom prepnite na tablu Kontakty a stlačte tlačidlo „Nová skupina kontaktov“.
6. Následne kliknite na „Pridať členov“ -> „Z kontaktov programu Outlook“
7. Neskôr kliknite do poľa „Členovia ->“ a stlačením klávesov „Ctrl + V“ prilepte predtým skopírované kontakty.
8. Stlačte tlačidlo „OK“.
9. Potom priraďte názov novej skupine kontaktov.
10. Nakoniec túto skupinu uložte kliknutím na tlačidlo „Uložiť a zavrieť“.

Metóda 2: Vytvorenie pomocou Outlooku VBA

1. Na prvom mieste stlačte v aplikácii Outlook klávesové skratky „Alt + F11“.
2. Potom otvorte nový modul.
3. Následne do nej skopírujte a vložte nasledujúce kódy.

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. Potom stlačte na paneli nástrojov ikonu „Spustiť“.
5. Okamžite sa zobrazí nová skupina kontaktov, napríklad nasledujúca snímka obrazovky:

Zvládnite nepríjemné problémy s programom Outlook šikovne

Ak sa v programe Outlook často stretávate s rôznymi chybami, dôrazne sa odporúča udržiavať vynikajúcu a spoľahlivú Obnova programu Outlook nástroj v okolí, ako DataNumen Outlook Repair. V takom prípade ho môžete použiť na včasné riešenie nepríjemných problémov.

Úvod autora:

Shirley Zhang je expertkou na obnovu dát v DataNumen, Inc., ktorá je svetovým lídrom v oblasti technológií obnovy dát, vrátane obnoviť sql a výhľadové softvérové ​​produkty na opravu. Pre viac informácií navštívte www.datanumen. S