Jeśli chcesz utworzyć grupę kontaktów programu Outlook z listy kontaktów w pliku Excel, możesz skorzystać z 2 metod przedstawionych w tym artykule.
Niektórzy użytkownicy szukają sposobu na szybkie utworzenie grupy kontaktów programu Outlook z pliku Excel zawierającego listę kontaktów. Oczywiście możesz utworzyć taką grupę kontaktów ręcznie. Jest to jednak trochę kłopotliwe. Dlatego oprócz ręcznych środków, tutaj dodatkowo wprowadzimy kolejną szybką metodę, która wykorzystuje VBA.
Metoda 1: Utwórz ręcznie
- Na samym początku otwórz plik Excel.
- Następnie wybierz kolumny zawierające adresy e-mail. Opcjonalnie możesz również dołączyć kolumny nazw.
- Następnie naciśnij „Ctrl + C” do wszystkich zaznaczonych komórek.
- Następnie uruchom program Outlook.
- Następnie przejdź do panelu Kontakty i naciśnij przycisk „Nowa grupa kontaktów”.
- Następnie kliknij „Dodaj członków” -> „Z kontaktów programu Outlook”
- Później kliknij pole „Członkowie ->” i naciśnij klawisze „Ctrl + V”, aby wkleić skopiowane wcześniej kontakty.
- Naciśnij przycisk „OK”.
- Następnie przypisz nazwę nowej grupie kontaktów.
- Na koniec kliknij „Zapisz i zamknij”, aby zapisać tę grupę.
Metoda 2: Utwórz za pomocą programu Outlook VBA
- W pierwszej kolejności naciśnij klawisze „Alt + F11” w Outlooku.
- Następnie otwórz nowy moduł.
- Następnie skopiuj i wklej do niego następujące kody.
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
- Następnie kliknij ikonę „Uruchom” na pasku narzędzi.
- Od razu pojawi się nowa grupa kontaktów, jak na poniższym zrzucie ekranu:
Umiejętnie radzić sobie z irytującymi problemami z perspektywą
Jeśli często napotykasz różne błędy w programie Outlook, zdecydowanie zaleca się zachowanie wyróżniającego i niezawodnego Odzyskiwanie programu Outlook narzędzie w pobliżu, np DataNumen Outlook Repair. W takim przypadku możesz go użyć do rozwiązania irytujących problemów za jego pośrednictwem na czas.
Wprowadzenie autora:
Shirley Zhang jest ekspertem w dziedzinie odzyskiwania danych w DataNumen, Inc., która jest światowym liderem w technologiach odzyskiwania danych, w tym odzyskać sql i oprogramowanie do naprawy programu Outlook. po więcej informacji odwiedź www.datanumen.com