Outlook Əlaqə Qrupunun bütün üzvlərini Excel-ə ixrac etmək üçün 2 üsul

Bəzən müəyyən bir Outlook əlaqə qrupunun üzvlərini ixrac etmək istəyə bilərsiniz. Beləliklə, bu məqalə sizə qrup üzvlərini Excel-ə çıxarmaq üçün 2 vasitəni paylaşacaq.

Outlook müəyyən bir əlaqə qovluğunun bütün kontaktlarını ixrac etməyə imkan verən yerli xüsusiyyət təklif edir. Bununla belə, bu, əlaqə qruplarını ixrac etməyə imkan vermir, əlaqə qruplarında üzvlərin çıxarılmasını qeyd etmir. Buna görə də, seçilmiş əlaqə qrupunun üzvlərini çıxarmaq istəyirsinizsə, daha çox səy göstərməlisiniz. Burada istinad edə biləcəyiniz iki məsləhət var.

Metod 1: Qrup Üzvlərini Fərqli Saxla vasitəsilə çıxarın

1. Ən başlanğıcda Outlook-u işə salın.
2. Sonra üzvlərini çıxarmaq lazım olan əlaqə qrupunu tapın və seçin.
3. Sonra "Fayl" menyusuna keçməlisiniz və "Fərqli Saxla" düyməsini sıxmalısınız.
4. Sonra, açılan “Fərqli Saxla” informasiya qutusunda saxlamaq üçün təyinat qovluğunu seçin və “Növ kimi saxla” açılan siyahısından “Yalnız mətn” seçin.
5. Və sonra "Saxla" düyməsini basın.
6. Bundan sonra Excel-i açın və yeni bir excel faylı yaradın.
7. Daha sonra "Fayl" a dönməli və "Açıq" düyməsini sıxmalısınız.
8. Sonrakı "Açıq" dialoq qutusunda əvvəlcə əlaqə qrupunu indi saxladığınız qovluğa daxil olmalısınız.
9. Sonra "Fayl adı" sətrindəki ikinci xananı vurun və açılan siyahıdan "Bütün fayllar" seçin.
10. Bundan sonra, əlaqə qrupu üçün Mətn faylına yerləşdirin və "Açıq" düyməsini basın.
11. Açılan “Mətn İdxal Sihirbazı” informasiya qutusunda “Adlanan”ın seçildiyinə əmin olun və “Bitir” düyməsini basın.
12. Nəhayət, aşağıdakı ekran görüntüsü kimi üzvləri əldə edəcəksiniz:

Metod 2: Qrup üzvlərini Outlook VBA vasitəsilə çıxarın

1. İlk növbədə, Outlook-da "Alt + F11" düymələrini basın.
2. Sonra VBA redaktoru pəncərəsində yeni modul açın.
3. Daha sonra aşağıdakı VBA kodlarını ona kopyalayın.

Sub ExtractContactGroupMembersToExcel()
    Dim objContactGroup As Outlook.DistListItem
    Dim objMember As Outlook.recipient
    Dim objExcelApp As Excel.Application
    Dim objExcelWorkBook As Excel.Workbook
    Dim objExcelWorkSheet As Excel.Worksheet
    Dim i As Integer
    Dim nRow As Integer
    Dim strPath As String
    Dim strFilename As String
 
    Select Case Application.ActiveWindow.Class
           Case olExplorer
                Set objContactGroup = Application.ActiveExplorer.Selection(1)
           Case olInspector
                Set objContactGroup = Application.ActiveInspector.CurrentItem
    End Select
 
    If TypeOf objContactGroup Is DistListItem Then
       'Create a new Excel workbook
       Set objExcelApp = CreateObject("Excel.Application")
       Set objExcelWorkBook = objExcelApp.Workbooks.Add
       Set objExcelWorkSheet = objExcelWorkBook.Worksheets(1)
 
       'Set the two column headers
       objExcelWorkSheet.Cells(1, 1) = "Contact Name"
       objExcelWorkSheet.Cells(1, 2) = "Email Address"

       nRow = 2
 
       'Extract the contact group members' names and email addresses
       For i = 1 To objContactGroup.MemberCount
           Set objMember = objContactGroup.GetMember(i)
           objExcelWorkSheet.Cells(nRow, 1) = objMember.Name
           objExcelWorkSheet.Cells(nRow, 2) = objMember.Address
           nRow = nRow + 1
       Next
 
       'AutoFit the columns in the new Excel worksheet
       objExcelWorkSheet.Columns("A:B").AutoFit
 
       'Change the strPath to your actual case
       strPath = "C:\Contact Groups\"
       strFilename = strPath & objContactGroup.DLName & ".xlsx"
 
       'Save the Excel workbook
       objExcelWorkBook.Close True, strFilename
 
       'Notify you of the export complete
       MsgBox ("Export Complete!")
    End If
End Sub

4. Bundan sonra, makronu həmişəki kimi Tez Giriş Alətlər Panelinə (QAT) əlavə edə bilərsiniz.
5. Daha sonra siz əlaqə qrupu seçə və QAT-da makro düyməsini klikləyə bilərsiniz.
6. İxrac etdikdən sonra bir mesaj alacaqsınız - "İxrac tamamlandı!"
7. Nəhayət, Excel faylını VBA kodlarında əvvəlcədən müəyyən edilmiş qovluqda tapa bilərsiniz. Onu açın, aşağıdakı şəkildəki kimi qrup üzvlərini görə bilərsiniz:

Əvvəlki PST məlumatlarınızı geri alın

Outlook qəzaya həssas olduğundan, PST məlumatlarınız heç bir əlamət olmadan korlana bilər. Buna görə də, PST fayllarınızın müntəzəm ehtiyat nüsxəsini çıxarmalısınız. Həmçinin, kimi güclü bir vasitə hazırlasanız daha yaxşı olardı DataNumen Outlook Repair, ola bilər Outlook-u təmir edin məlumatların vaxtında verilməsi.

Müəllif Giriş:

Shirley Zhang məlumatların bərpası üzrə mütəxəssisdir DataNumendaxil olmaqla məlumatların bərpası texnologiyaları üzrə dünya lideri olan , Inc sql-ı düzəldin və Outlook təmiri proqram məhsulları. Ətraflı məlumat üçün ziyarət edin www.datanumen.com