2 būdai eksportuoti visus „Outlook“ kontaktų grupės narius į „Excel“.

Kartais galbūt norėsite eksportuoti tam tikros „Outlook“ kontaktų grupės narius. Taigi šiame straipsnyje bus pateiktos 2 priemonės, kaip ištraukti grupės narius į „Excel“.

„Outlook“ siūlo savąją funkciją, leidžiančią eksportuoti visus tam tikro kontaktų aplanko kontaktus. Tačiau tai neleidžia eksportuoti kontaktų grupių, jau nekalbant apie narių ištraukimą kontaktų grupėse. Todėl, jei norite išskirti pasirinktos kontaktų grupės narius, turite įdėti daugiau pastangų. Štai du patarimai, kuriais galite pasinaudoti.

1 būdas: išskleiskite grupės narius naudodami Įrašyti kaip

1. Pačioje pradžioje paleiskite „Outlook“.
2. Tada suraskite ir pasirinkite kontaktų grupę, kurios narius reikia išskirti.
3. Tada eikite į meniu „Failas“ ir spustelėkite „Išsaugoti kaip“.
4. Tada iššokančiajame dialogo lange „Išsaugoti kaip“ pasirinkite paskirties aplanką, kurį norite išsaugoti, ir išskleidžiamajame sąraše „Išsaugoti kaip tipą“ pasirinkite „Tik tekstas“.
5. Ir tada spustelėkite „Išsaugoti“.
6. Po to atidarykite „Excel“ ir sukurkite naują „Excel“ failą.
7. Vėliau turėtumėte pasukti į „Failas“ ir spustelėti mygtuką „Atidaryti“.
8. Kitame dialogo lange „Atidaryti“ pirmiausia turėtumėte pasiekti aplanką, kuriame ką tik išsaugojote kontaktų grupę.
9. Tada spustelėkite antrąjį laukelį eilutėje „Failo pavadinimas“ ir išskleidžiamajame sąraše pasirinkite „Visi failai“.
10. Po to nustatykite kontaktų grupės teksto failą ir paspauskite „Atidaryti“.
11. Iššokančiajame dialogo lange „Teksto importavimo vedlys“ įsitikinkite, kad pasirinkta „Atskirta“, ir spustelėkite mygtuką „Baigti“.
12. Galiausiai gausite narius, tokius kaip ši ekrano kopija:

2 būdas: išskleiskite grupės narius naudodami „Outlook VBA“.

1. Visų pirma, „Outlook“ paspauskite klavišų kombinaciją „Alt + F11“.
2. Tada atidarykite naują modulį VBA redaktoriaus lange.
3. Vėliau į jį nukopijuokite šiuos 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. Po to makrokomandą galite pridėti prie greitosios prieigos įrankių juostos (QAT), kaip įprasta.
5. Vėliau galite pasirinkti kontaktų grupę ir spustelėti makrokomandos mygtuką QAT.
6. Eksportavę gausite pranešimą „Eksportas baigtas!
7. Galiausiai galite rasti „Excel“ failą aplanke, kuris iš anksto nustatytas VBA kodais. Atidarykite jį ir pamatysite grupės narius, kaip paveikslėlyje žemiau:

Susigrąžinkite savo ankstesnius PST duomenis

Kadangi „Outlook“ gali strigti, jūsų PST duomenys gali būti sugadinti be jokių ženklų. Todėl turėtumėte reguliariai kurti atsargines PST failų kopijas. Be to, geriau paruoškite galingą įrankį, pvz DataNumen Outlook Repair, kuri gali pataisyti Outlook duomenis laiku.

Autoriaus įvadas:

Shirley Zhang yra duomenų atkūrimo ekspertė DataNumen, Inc., kuri yra pasaulyje duomenų atkūrimo technologijų lyderė, įskaitant pataisyti sql ir „Outlook“ taisymo programinės įrangos produktai. Norėdami gauti daugiau informacijos, apsilankykite WWW.datanumen.com