2 Metodat për të krijuar një grup kontakti nga një listë kontaktesh në një skedar Excel

Nëse dëshironi të krijoni një grup kontakti Outlook nga lista e kontakteve në një skedar Excel, mund të përdorni 2 metodat e prezantuara në këtë artikull.

Disa përdorues po kërkojnë një mënyrë për të krijuar shpejt një grup kontakti Outlook nga një skedar Excel i cili përmban një listë kontaktesh. Sigurisht, ju mund të krijoni një grup të tillë kontakti me dorë. Megjithatë, është pak e mundimshme. Prandaj, përveç mjeteve manuale, këtu do të prezantojmë gjithashtu një metodë tjetër të shpejtë e cila përdor VBA.

Metoda 1: Krijo me dorë

1. Që në fillim, hapni skedarin Excel.
2. Pastaj zgjidhni kolonat që përmbajnë adresat e emailit. Opsionale, mund të përfshini edhe kolonat për emrat.
3. Pastaj shtypni "Ctrl + C" në të gjitha qelizat e zgjedhura.
4. Pas kësaj, nisni programin tuaj Outlook.
5. Më pas kaloni në panelin e kontakteve dhe shtypni butonin "Grupi i ri i kontaktit".
6. Më pas, klikoni "Shto anëtarë" -> "Nga Kontaktet e Outlook"
7. Më vonë klikoni në fushën "Anëtarët ->" dhe shtypni tastet "Ctrl + V" për të ngjitur kontaktet e kopjuara më parë.
8. Shtypni butonin "OK".
9. Më pas caktoni një emër për grupin e ri të kontaktit.
10. Së fundi klikoni "Ruaj & Mbyll" për të ruajtur këtë grup.

Metoda 2: Krijo përmes Outlook VBA

1. Në radhë të parë, shtypni butonat "Alt + F11" në Outlook.
2. Pastaj hapni një modul të ri.
3. Më pas, kopjoni dhe ngjisni kodet e mëposhtme në të.

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. Pas kësaj, shtypni ikonën "Run" në shiritin e veglave.
5. Menjëherë, do të shfaqet një grup i ri kontakti, si pamja e mëposhtme e ekranit:

Trajtoni me mjeshtëri problemet shqetësuese të Outlook

Nëse hasni shpesh gabime të ndryshme në Outlook, sugjerohet shumë që të mbani një nivel të lartë dhe të besueshëm Rimëkëmbja e opinionit mjet në afërsi, si DataNumen Outlook Repair. Në këtë rast, ju mund ta përdorni atë për t'u marrë me çështjet e bezdisshme nëpërmjet tij në kohë.

Hyrje e autorit:

Shirley Zhang është një eksperte për rikuperimin e të dhënave DataNumen, Inc., e cila është lider botëror në teknologjitë e rikuperimit të të dhënave, duke përfshirë rikuperoni sql dhe produkte softuerike të riparimit të pamjes. Për më shumë informacion vizitoni www.datanumen.com