Jak szybko wyodrębnić wszystkich odbiorców z wielu plików wiadomości programu Outlook (.msg)

Niektórzy użytkownicy chcieliby szybko wyodrębnić wszystkich odbiorców z wielu plików wiadomości programu Outlook zapisanych z wiadomości e-mail programu Outlook. Teraz to post przyjrzymy się temu, aby podzielić się szybkim podejściem.

Aby wyodrębnić odbiorców z pojedynczego pliku wiadomości programu Outlook, wystarczy kliknąć dwukrotnie, aby go otworzyć, a następnie skopiować odbiorców w otwartym oknie wiadomości. Ale jeśli musisz poradzić sobie z partią plików wiadomości programu Outlook, metoda ręczna nie jest wystarczająco wydajna. Dlatego możesz poszukać znacznie wydajniejszego sposobu. Tutaj przedstawimy Ci taki. Czytaj dalej, aby poznać szczegóły.

Wyodrębnij wszystkich adresatów z wielu plików wiadomości programu Outlook (msg)

1. Jaktart, uzyskaj dostęp do edytora Outlook VBA zgodnie z „Jak uruchomić kod VBA w swoim Outlooku".
2. Następnie skopiuj i wklej następujący kod VBA do pustego modułu.

Dim strRecipients As String

Sub ExtractRecipientsFromOutlookMSGFiles()
    Dim objShell, objWindowsFolder As Object
 
    strRecipients = ""
    'Select a Windows folder
    Set objShell = CreateObject("Shell.Application")
    Set objWindowsFolder = objShell.BrowseForFolder(0, "Select a Windows Folder:", 0, "")
 
    If Not objWindowsFolder Is Nothing Then
       Call ProcessWindowsFolders(objWindowsFolder.self.Path & "\")
       'Display a Message
       MsgBox "Recipients: " & vbCrLf & strRecipients, vbInformation + vbOKOnly
    End If
End Sub

Sub ProcessWindowsFolders(strFolderPath As String)
    Dim objFileSystem As Object
    Dim objFolder As Object
    Dim objFile As Object
    Dim objItem As Object
    Dim objMail As Outlook.MailItem
    Dim objRecipient As Outlook.Recipient
    Dim objSubfolder As Object

    Set objFileSystem = CreateObject("Scripting.FileSystemObject")
    Set objFolder = objFileSystem.GetFolder(strFolderPath)
 
    For Each objFile In objFolder.Files
        If objFileSystem.GetExtensionName(objFile) = "msg" Then
           Set objItem = Session.OpenSharedItem(objFile.Path)

           If TypeName(objItem) = "MailItem" Then
              Set objMail = objItem
              'Extract recipients' email addresses
              For Each objRecipient In objMail.Recipients
                  strRecipients = strRecipients & objRecipient.Address & vbCr
              Next
           End If
        End If
    Next
 
    'Process all subfolders recursively
    If objFolder.SubFolders.Count > 0 Then
       For Each objSubfolder In objFolder.SubFolders
           If ((objSubfolder.Attributes And 2) = 0) And ((objSubfolder.Attributes And 4) = 0) Then
               Call ProcessWindowsFolders(objSubfolder.Path)
           End If
       Next
    End If
End Sub

3. Następnie przesuń kursor do pierwszego podprogramu.
4. Następnie kliknij przycisk „Uruchom” lub naciśnij klawisz „F5”.
5. Następnie w wyskakującym oknie dialogowym wybierz folder Windows zawierający źródłowe pliki wiadomości programu Outlook (.msg).
6. Po wybraniu kliknij „OK”, aby umożliwić kontynuowanie działania makra.
7. Po zakończeniu działania makra pojawi się wiadomość z listą wszystkich wyodrębnionych adresów e-mail odbiorców, jak pokazano na poniższym zrzucie ekranu.

Chroń swoje dane programu Outlook przed zagrożeniami

Dane programu Outlook są wprawdzie podatne na uszkodzenia. Dlatego ochrona danych programu Outlook jest dość uciążliwym zadaniem. Wymaga wytrwałości w wykonywaniu regularnych kopii zapasowych danych programu Outlook. Ponadto, jeśli to możliwe, rozważne i zalecane jest przygotowanie doświadczonego i profesjonalnego Outlooka Naprawa PST narzędzie, takie jak DataNumen Outlook Repair, dzięki czemu można uzyskać natychmiastową i terminową pomoc w przypadku uszkodzenia programu Outlook.

Wprowadzenie autora:

Shirley Zhang jest ekspertem w dziedzinie odzyskiwania danych w DataNumen, Inc., która jest światowym liderem w technologiach odzyskiwania danych, w tym wyzdrowieć Sql Server i oprogramowanie do naprawy programu Outlook. po więcej informacji odwiedź www.datanumen.com