2 Módszerek egy Outlook kapcsolattartó csoport összes tagjának Excelbe exportálására

Időnként érdemes lehet exportálni egy bizonyos Outlook-névjegycsoport tagjait. Tehát ez a cikk megosztja Önnel a 2 módszert, amellyel a csoport tagjait Excelbe bonthatja.

Az Outlook natív szolgáltatást kínál, amely lehetővé teszi egy bizonyos névjegymappa összes névjegyének exportálását. Nem teszi lehetővé azonban a névjegycsoportok exportálását, nem beszélve a névjegycsoportok tagjainak kibontásáról. Ezért, ha egy kiválasztott kapcsolati csoport tagjait szeretné kinyerni, további erőfeszítéseket kell tennie. Íme két tipp, amelyekre hivatkozhat.

1. módszer: Bontsa ki a csoport tagjait a Mentés másként funkcióval

1. A legelején indítsa el az Outlookot.
2. Ezután keresse meg és válassza ki azt a névjegycsoportot, amelynek tagjait ki kell bontani.
3. Ezután lépjen a „Fájl” menübe, és kattintson a „Mentés másként” gombra.
4. Ezt követően a felugró „Mentés másként” párbeszédpanelen válassza ki a menteni kívánt célmappát, és válassza a „Csak szöveg” lehetőséget a „Mentés típusa” legördülő listából.
5. Ezután kattintson a „Mentés” gombra.
6. Ezután nyissa meg az Excelt, és hozzon létre egy új Excel fájlt.
7. Később lépjen a „Fájl” menübe, és kattintson a „Megnyitás” gombra.
8. A következő „Megnyitás” párbeszédpanelen először nyissa meg azt a mappát, ahová a névjegycsoportot az imént mentette.
9. Ezután kattintson a második mezőre a „Fájlnév” sorban, és válassza ki az „Összes fájl” lehetőséget a legördülő listából.
10. Ezután helyezze be a kapcsolati csoport szövegfájlját, és nyomja meg a „Megnyitás” gombot.
11. A felugró „Szövegimportáló varázsló” párbeszédpanelen győződjön meg arról, hogy a „Határozott” elem van kiválasztva, és kattintson a „Befejezés” gombra.
12. Végül megkapja a tagokat, például a következő képernyőképet:

2. módszer: Bontsa ki a csoporttagokat az Outlook VBA segítségével

1. Először is nyomja meg az „Alt + F11” billentyűket az Outlookban.
2. Ezután nyisson meg egy új modult a VBA-szerkesztő ablakában.
3. Ezt követően másolja be a következő VBA-kódokat.

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. Ezt követően a szokásos módon hozzáadhatja a makrót a Gyorselérési eszköztárhoz (QAT).
5. Később kiválaszthat egy kapcsolattartó csoportot, és rákattinthat a makró gombra a QAT-ban.
6. Az exportálás után üzenetet kap: „Exportálás befejeződött!”
7. Végül megtalálhatja az Excel fájlt a VBA-kódokban előre meghatározott mappában. Nyissa meg, láthatja a csoport tagjait, mint az alábbi képen:

Szerezze vissza korábbi PST-adatait

Mivel az Outlook hajlamos az összeomlásra, a PST-adatok minden előjel nélkül megsérülhetnek. Ezért rendszeresen készítsen biztonsági másolatot a PST-fájlokról. Ezenkívül jobb, ha előkészít egy hatékony eszközt, mint pl DataNumen Outlook Repair, melyik tud javítás Outlook adatokat kellő időben.

Szerző Bevezetés:

Shirley Zhang adat-helyreállítási szakértő DataNumen, Inc., amely világelső az adat-helyreállítási technológiák területén, beleértve sql javítás és outlook javítószoftver termékek. További információért látogasson el www.datanumen.com