2 metodes, kā eksportēt visus Outlook kontaktpersonu grupas dalībniekus programmā Excel

Dažkārt, iespējams, vēlēsities eksportēt dalībniekus noteiktā Outlook kontaktpersonu grupā. Tāpēc šajā rakstā tiks parādīti divi veidi, kā iegūt grupas dalībniekus programmā Excel.

Programma Outlook piedāvā vietējo līdzekli, kas ļauj eksportēt visas noteiktas kontaktpersonu mapes kontaktpersonas. Tomēr tas neļauj eksportēt kontaktpersonu grupas, nemaz nerunājot par dalībnieku izņemšanu kontaktpersonu grupās. Tāpēc, ja vēlaties iegūt atlasītās kontaktu grupas dalībniekus, jums ir jāpieliek vēl dažas pūles. Šeit ir divi padomi, uz kuriem varat atsaukties.

1. metode: izņemiet grupas dalībniekus, izmantojot Saglabāt kā

1. Pašā sākumā palaidiet programmu Outlook.
2. Pēc tam atrodiet un atlasiet kontaktu grupu, kuras dalībnieki ir jāizvelk.
3. Tālāk jums jāiet uz izvēlni "Fails" un noklikšķiniet uz "Saglabāt kā".
4. Pēc tam uznirstošajā dialoglodziņā “Saglabāt kā” atlasiet saglabāšanas mērķa mapi un nolaižamajā sarakstā “Saglabāt kā veids” izvēlieties “Tikai teksts”.
5. Un pēc tam noklikšķiniet uz "Saglabāt".
6. Pēc tam atveriet programmu Excel un izveidojiet jaunu Excel failu.
7. Vēlāk atveriet "Fails" un noklikšķiniet uz pogas "Atvērt".
8. Nākamajā dialoglodziņā “Atvērt” vispirms vajadzētu piekļūt mapei, kurā tikko saglabājāt kontaktu grupu.
9. Pēc tam noklikšķiniet uz otrā lodziņa rindā “Faila nosaukums” un nolaižamajā sarakstā atlasiet “Visi faili”.
10. Pēc tam novietojiet kontaktpersonu grupas teksta failu un nospiediet “Atvērt”.
11. Uznirstošajā dialoglodziņā “Teksta importēšanas vednis” pārliecinieties, vai ir atlasīta opcija “Delimited”, un noklikšķiniet uz pogas “Pabeigt”.
12. Visbeidzot, jūs iegūsit dalībniekus, piemēram, šādu ekrānuzņēmumu:

2. metode: izņemiet grupas dalībniekus, izmantojot Outlook VBA

1. Pirmkārt, programmā Outlook nospiediet taustiņu pogas “Alt + F11”.
2. Pēc tam atveriet jaunu moduli VBA redaktora logā.
3. Pēc tam tajā iekopējiet šādus VBA kodus.

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. Pēc tam varat pievienot makro ātrās piekļuves rīkjoslai (QAT), kā parasti.
5. Vēlāk varat atlasīt kontaktpersonu grupu un QAT noklikšķināt uz makro pogas.
6. Pēc eksportēšanas jūs saņemsit ziņojumu “Eksports pabeigts!”
7. Galu galā jūs varat atrast Excel failu mapē, kas ir iepriekš noteikta VBA kodos. Atveriet to, jūs varat redzēt grupas dalībniekus, piemēram, attēlā zemāk:

Atgūstiet savus iepriekšējos PST datus

Tā kā programma Outlook ir pakļauta avārijām, jūsu PST dati var tikt bojāti bez jebkādām zīmēm. Tāpēc jums regulāri jāveido PST failu dublējums. Arī jums bija labāk sagatavot spēcīgu instrumentu, piemēram, DataNumen Outlook Repair, kas var labot Outlook datus savlaicīgi.

Autora ievads:

Šērlija Džana ir datu atkopšanas eksperte DataNumen, Inc., kas ir pasaules līderis datu atkopšanas tehnoloģiju, tostarp labot kv un perspektīvas remonta programmatūras produktus. Lai iegūtu vairāk informācijas, apmeklējiet vietni www.datanumen. Ar