2 načina za ustvarjanje skupine stikov s seznama stikov v Excelovi datoteki

Če želite na seznamu stikov v Excelovi datoteki ustvariti Outlookovo skupino stikov, lahko uporabite dve metodi, predstavljeni v tem članku.

Nekateri uporabniki iščejo način za hitro ustvarjanje Outlookove skupine stikov iz Excelove datoteke, ki vsebuje seznam stikov. Takšno skupino stikov lahko seveda ustvarite ročno. Vendar je nekoliko težavno. Zato bomo tukaj poleg ročnih sredstev predstavili še eno hitro metodo, ki uporablja VBA.

1. način: ročno ustvarite

1. Na začetku odprite datoteko Excel.
2. Nato izberite stolpce, ki vsebujejo e-poštne naslove. Po želji lahko vključite tudi stolpce za imena.
3. Nato pritisnite "Ctrl + C" na vse izbrane celice.
4. Po tem zaženite program Outlook.
5. Nato preklopite na podokno stikov in pritisnite gumb »Nova skupina stikov«.
6. Nato kliknite »Dodaj člane« -> »Iz Outlookovih stikov«
7. Kasneje kliknite v polje »Člani ->« in pritisnite tipki »Ctrl + V«, da prilepite prej kopirane stike.
8. Pritisnite gumb »V redu«.
9. Nato dodelite ime novi skupini stikov.
10. Nazadnje kliknite »Shrani in zapri«, da shranite to skupino.

2. način: Ustvarite prek Outlookovega VBA

1. V Outlooku najprej pritisnite tipke “Alt + F11”.
2. Nato odprite nov modul.
3. Nato kopirajte in prilepite vanjo naslednje kode.

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. Po tem v orodni vrstici pritisnite ikono »Zaženi«.
5. Takoj se bo prikazala nova skupina stikov, na primer naslednji posnetek zaslona:

Spretno obvladujte težave z Outlookom

Če se v Outlooku pogosto srečujete z različnimi napakami, vam priporočamo, da ohranite prednost in zanesljivost Obnovitev programa Outlook orodje v bližini, všeč DataNumen Outlook Repair. V tem primeru ga lahko uporabite za pravočasno reševanje nadležnih težav.

Uvod avtorja:

Shirley Zhang je strokovnjakinja za obnovitev podatkov v DataNumen, Inc., ki je vodilna na svetu na področju tehnologij za obnovitev podatkov, vključno z obnoviti sql in obeti za popravilo programskih izdelkov. Za več informacij obiščite www.datanumen.com