2 meetodit Outlooki kontaktrühma kõigi liikmete eksportimiseks Excelisse

Outlooki lahendused September 29, 2025

Mõnikord võite soovida eksportida teatud Outlooki kontaktirühma liikmed. Seega jagab see artikkel teile kahte võimalust rühmaliikmete Exceli ekstraktimiseks.

Outlook pakub natiivset funktsiooni, mis võimaldab teil eksportida kõik teatud kontaktide kausta kontaktid. Kuid see ei võimalda teil kontaktirühmi eksportida, rääkimata kontaktirühmade liikmete ekstraheerimisest. Seega, kui soovite valitud kontaktrühma liikmeid välja tõmmata, peate tegema rohkem pingutusi. Siin on kaks nõuannet, millele saate viidata.

1. meetod: ekstraheerige rühma liikmed, kasutades Salvesta nimega

  1. Käivitage kohe alguses Outlook.
  2. Seejärel leidke ja valige kontaktirühm, mille liikmed peate ekstraktima.
  3. Järgmisena peaksite minema menüüsse "Fail" ja klõpsake "Salvesta nimega".
  4. Seejärel valige dialoogiboksis "Salvesta nimega" sihtkaust, mida soovite salvestada, ja valige "Salvesta nimega" ripploendist "Ainult tekst".
  5. Ja seejärel klõpsake nuppu "Salvesta".Salvestage kontaktirühm ainult tekstina
  6. Pärast seda avage Excel ja looge uus Exceli fail.
  7. Hiljem peaksite valima "Fail" ja klõpsama nuppu "Ava".
  8. Järgmises dialoogiboksis "Ava" peaksite esmalt pääsema juurde kaustale, kuhu just praegu kontaktirühma salvestasite.
  9. Seejärel klõpsake real "Faili nimi" teist kasti ja valige selle ripploendist "Kõik failid".
  10. Seejärel sisestage kontaktirühma tekstifail ja klõpsake nuppu "Ava".Avage tekstifail Excelis
  11. Hüpikaknas "Teksti importimise viisard" veenduge, et valitud on "Delimited" ja klõpsake nuppu "Lõpeta".Lõpetage tekstiimpordi viisard
  12. Lõpuks saate liikmed, nagu järgmine ekraanipilt:Ekstraheeritud liikmed Exceli töövihikust

2. meetod: ekstraheerige rühmaliikmed Outlook VBA kaudu

  1. Esiteks vajutage Outlookis klahvikombinatsiooni Alt + F11.
  2. Seejärel avage VBA redaktori aknas uus moodul.
  3. Seejärel kopeerige sellesse järgmised VBA-koodid.
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

VBA koodid – eksportige kõik Outlooki kontaktrühma liikmed Excelisse

  1. Pärast seda saate makro lisada kiirpääsu tööriistaribale (QAT), nagu tavaliselt.
  2. Hiljem saate valida kontaktirühma ja klõpsata QATis makronuppu.Käivitage makro kiirpääsu tööriistaribal
  3. Pärast eksportimist kuvatakse teade "Eksport on lõpetatud!"Eksport on lõpetatud
  4. Lõpuks leiate Exceli faili kaustast, mis on VBA-koodides eelnevalt määratud. Avage see, näete grupi liikmeid, nagu alloleval pildil:Ekstrakti liikmed Excelis Outlook VBA kaudu

Saate oma varasemad PST-andmed tagasi

Kuna Outlook on vastuvõtlik kokkujooksmisele, võivad teie PST-andmed rikkuda ilma igasuguste märkideta. Seetõttu peaksite oma PST-failidest regulaarselt varundama. Samuti peaksite parem ette valmistama võimsa tööriista, näiteks DataNumen Outlook Repair, mis võib Outlooki parandamine andmeid õigeaegselt.

Autori sissejuhatus:

Shirley Zhang on andmete taastamise ekspert DataNumen, Inc., mis on maailmas juhtiv andmete taastamise tehnoloogiate, sealhulgas paranda sql ja Outlooki remonditarkvaratooted. Lisateabe saamiseks külastage www.datanumenCom

Kommentaarid on suletud.