2 Metody exportu všech členů skupiny kontaktů aplikace Outlook do aplikace Excel

Občas můžete chtít exportovat členy v určité skupině kontaktů aplikace Outlook. Tento článek vám tedy sdělí 2 způsoby, jak extrahovat členy skupiny do Excelu.

Aplikace Outlook nabízí nativní funkci, která vám umožňuje exportovat všechny kontakty z určité složky kontaktů. Neumožňuje však exportovat skupiny kontaktů, nemluvě o extrahování členů ve skupinách kontaktů. Pokud tedy chcete extrahovat členy vybrané skupiny kontaktů, musíte vynaložit více úsilí. Zde jsou dva tipy, na které se můžete odkázat.

Metoda 1: Extrahujte členy skupiny pomocí Uložit jako

1. Na úplném začátku spusťte aplikaci Outlook.
2. Poté vyhledejte a vyberte skupinu kontaktů, jejíž členy potřebujete extrahovat.
3. Dále byste měli přejít do nabídky „Soubor“ a kliknout na „Uložit jako“.
4. Následně ve vyskakovacím dialogovém okně „Uložit jako“ vyberte cílovou složku pro uložení a v rozevíracím seznamu „Uložit jako typ“ vyberte „Pouze text“.
5. A poté klikněte na „Uložit“.
6. Poté otevřete Excel a vytvořte nový soubor Excel.
7. Později byste se měli obrátit na „Soubor“ a kliknout na tlačítko „Otevřít“.
8. V následujícím dialogovém okně „Otevřít“ byste měli nejprve otevřít složku, do které jste právě uložili skupinu kontaktů.
9. Poté klikněte na druhé pole v řádku „Název souboru“ a v rozevíracím seznamu vyberte „Všechny soubory“.
10. Poté vyberte textový soubor pro skupinu kontaktů a stiskněte „Otevřít“.
11. V dialogovém okně „Průvodce importem textu“ se ujistěte, že je vybrána možnost „Oddělovač“ a klikněte na tlačítko „Dokončit“.
12. Nakonec získáte členy, jako je následující snímek obrazovky:

Metoda 2: Extrahujte členy skupiny prostřednictvím aplikace Outlook VBA

1. Na prvním místě stiskněte v aplikaci Outlook klávesy „Alt + F11“.
2. Poté otevřete nový modul v okně editoru VBA.
3. Následně do něj zkopírujte následující kódy 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. Poté můžete makro přidat na panel nástrojů Rychlý přístup (QAT) jako obvykle.
5. Později můžete vybrat skupinu kontaktů a kliknout na tlačítko makra v QAT.
6. Po exportu obdržíte zprávu „Export dokončen!
7. Nakonec můžete soubor Excel najít ve složce, která je předem určena v kódech VBA. Otevřete jej a uvidíte členy skupiny, jako na obrázku níže:

Získejte zpět svá předchozí data PST

Vzhledem k tomu, že aplikace Outlook je náchylná k selhání, vaše data PST se mohou bez jakýchkoliv znamení poškodit. Proto byste měli pravidelně zálohovat soubory PST. Také byste si měli lépe připravit účinný nástroj, jako je např DataNumen Outlook Repair, které mohou opravit Outlook údaje včas.

Úvod autora:

Shirley Zhang je expertem na obnovu dat DataNumen, Inc., která je světovým lídrem v oblasti technologií pro obnovu dat, včetně opravit sql a výhledové softwarové produkty pro opravy. Pro více informací navštivte www.datanumen.com