Kā ātri iegūt visus adresātus no vairākiem Outlook ziņojumu (.msg) failiem

Daži lietotāji vēlas ātri iegūt visus adresātus no vairākiem Outlook ziņojumu failiem, kas saglabāti no Outlook e-pastiem. Tagad šī lppost to aplūkos, lai dalītos ar ātru pieeju.

Lai izvilktu adresātus no viena Outlook ziņojuma faila, varat vienkārši veikt dubultklikšķi, lai to atvērtu, un pēc tam atvērtajā ziņojuma logā kopēt adresātus. Bet, ja jums jārisina Outlook ziņojumu failu pakete, manuālā metode nav pietiekami efektīva. Tādējādi jūs varat meklēt daudz efektīvāku veidu. Šeit mēs jūs tādu iepazīstināsim. Lasiet tālāk, lai uzzinātu tā informāciju.

Izvilkt visus adresātus no vairākiem Outlook ziņojumu (.msg) failiem

1. Par kātart, piekļūstiet Outlook VBA redaktoram saskaņā ar “Kā palaist VBA kodu programmā Outlook".
2. Pēc tam nokopējiet un ielīmējiet šo VBA kodu tukšā modulī.

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. Pēc tam pārvietojiet kursoru pirmajā apakšprogrammā.
4. Pēc tam noklikšķiniet uz pogas “Palaist” vai nospiediet taustiņu “F5”.
5. Pēc tam uznirstošajā dialoglodziņā atlasiet Windows mapi, kas satur avota Outlook ziņojumu (.msg) failus.
6. Pēc izvēles noklikšķiniet uz “OK”, lai makro turpinātu darboties.
7. Kad makro būs pabeigts, tiks parādīts ziņojums, kurā uzskaitītas visas izrakstīto saņēmēju e-pasta adreses, kā parādīts nākamajā ekrānuzņēmumā.

Aizsargājiet savus Outlook datus no Jeopardy

Outlook dati, protams, ir pakļauti korupcijai. Tādējādi Outlook datu aizsardzība ir diezgan apgrūtinošs uzdevums. Tas prasa neatlaidīgu regulāru Outlook datu dublēšanu. Turklāt, ja iespējams, ir piesardzīgi un ieteicams sagatavot pieredzējušu un profesionālu programmu Outlook PST remonts rīks, piemēram DataNumen Outlook Repair, lai jūs varētu iegūt tūlītēju un savlaicīgu glābšanu Outlook korupcijas gadījumā.

Autora ievads:

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