2 načina za izvoz vseh članov Outlookove skupine stikov v Excel

Včasih boste morda želeli izvoziti člane v določeni Outlookovi skupini stikov. Ta članek vam bo torej predstavil 2 načina za ekstrahiranje članov skupine v Excel.

Outlook ponuja izvorno funkcijo, ki vam omogoča izvoz vseh stikov določene mape s stiki. Vendar vam ne dovoljuje izvoza skupin stikov, da ne omenjamo ekstrahiranja članov v skupinah stikov. Če torej želite izvleči člane izbrane skupine stikov, se morate še malo potruditi. Tu sta dva nasveta, na katera se lahko obrnete.

1. način: Ekstrahirajte člane skupine prek možnosti Shrani kot

1. Na samem začetku zaženite Outlook.
2. Nato poiščite in izberite skupino stikov, katere člane želite ekstrahirati.
3. Nato pojdite v meni »Datoteka« in kliknite »Shrani kot«.
4. Nato v pojavnem pogovornem oknu »Shrani kot« izberite ciljno mapo za shranjevanje in na spustnem seznamu »Shrani kot vrsto« izberite »Samo besedilo«.
5. In nato kliknite »Shrani«.
6. Po tem odprite Excel in ustvarite novo datoteko excel.
7. Kasneje se obrnite na »Datoteka« in kliknite gumb »Odpri«.
8. V naslednjem pogovornem oknu »Odpri« morate najprej odpreti mapo, v katero ste pravkar shranili skupino stikov.
9. Nato kliknite drugo polje v vrstici »Ime datoteke« in na spustnem seznamu izberite »Vse datoteke«.
10. Nato se obrnite na besedilno datoteko za skupino stikov in pritisnite »Odpri«.
11. V pojavnem pogovornem oknu »Čarovnik za uvoz besedila« se prepričajte, da je izbrana možnost »Razmejeno« in kliknite gumb »Dokončaj«.
12. Končno boste dobili člane, kot je ta posnetek zaslona:

2. način: Ekstrahirajte člane skupine prek Outlooka VBA

1. V Outlooku najprej pritisnite tipke “Alt + F11”.
2. Nato odprite nov modul v oknu urejevalnika VBA.
3. Nato vanj kopirajte naslednje kode VBA.

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. Po tem lahko dodate makro v orodno vrstico za hitri dostop (QAT) kot običajno.
5. Kasneje lahko izberete skupino stikov in kliknete gumb makra v QAT.
6. Po izvozu boste prejeli sporočilo "Izvoz končan!"
7. Sčasoma lahko datoteko Excel najdete v mapi, ki je vnaprej določena v kodah VBA. Odprite ga, lahko vidite člane skupine, kot je spodnja slika:

Pridobite nazaj svoje prejšnje podatke PST

Ker je Outlook dovzeten za zrušitev, se lahko vaši podatki PST brez kakršnih koli znamenj poškodujejo. Zato bi morali redno varnostno kopirati datoteke PST. Prav tako je bolje, da pripravite močno orodje, kot je npr DataNumen Outlook Repair, ki lahko popravilo Outlook podatke pravočasno.

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 popraviti sql in obeti za popravilo programskih izdelkov. Za več informacij obiščite www.datanumen.com