Kako hitro ekstrahirati vse prejemnike iz več datotek Outlookovih sporočil (.msg).

Nekateri uporabniki bi radi hitro ekstrahirali vse prejemnike iz več datotek Outlookovih sporočil, shranjenih iz Outlookovih e-poštnih sporočil. Zdaj pa ta strost si bo ogledal to, da bi delil hiter pristop.

Če želite ekstrahirati prejemnike iz ene Outlookove sporočilne datoteke, jo lahko dvokliknete, da jo odprete, in nato kopirate prejemnike v odprtem oknu sporočila. Če pa se morate ukvarjati s serijo Outlookovih sporočilnih datotek, ročna metoda ni dovolj učinkovita. Tako lahko poiščete veliko bolj učinkovit način. Tukaj vam bomo predstavili takšnega. Preberite, če želite izvedeti podrobnosti.

Ekstrahirajte vse prejemnike iz več datotek Outlookovih sporočil (.msg).

1. Kajti kottart, pridobite dostop do urejevalnika Outlook VBA v skladu z “Kako zagnati kodo VBA v Outlooku".
2. Nato kopirajte in prilepite naslednjo kodo VBA v prazen 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. Nato premaknite kazalec v prvi podprogram.
4. Nato kliknite gumb »Zaženi« ali pritisnite tipko »F5«.
5. Nato v pojavnem pogovornem oknu izberite mapo Windows, ki vsebuje izvorne datoteke sporočil Outlook (.msg).
6. Ko izberete, kliknite »V redu«, da se makro nadaljuje.
7. Ko se makro konča, se prikaže sporočilo s seznamom vseh ekstrahiranih e-poštnih naslovov prejemnikov, kot je prikazano na naslednjem posnetku zaslona.

Zaščitite svoje Outlookove podatke pred nevarnostjo

Podatki Outlooka so seveda nagnjeni k poškodbam. Zato je varovanje Outlookovih podatkov precej zahtevna naloga. Od vas zahteva, da vztrajate pri rednem varnostnem kopiranju Outlookovih podatkov. Prav tako je, če je le mogoče, preudarno in priporočljivo pripraviti izkušen in strokoven Outlook Popravilo PST orodje, kot DataNumen Outlook Repair, tako da lahko dobite takojšnjo in pravočasno rešitev v primeru poškodovanja Outlooka.

Uvod avtorja:

Shirley Zhang je strokovnjakinja za obnovitev podatkov v DataNumen, Inc., ki je vodilna na svetu na področju tehnologij za obnovitev podatkov, vključno z opomore Sql Server in obeti za popravilo programskih izdelkov. Za več informacij obiščite www.datanumen.com