Kā pakešu eksportēt visus sarunas e-pastus kā teksta failus, izmantojot Outlook VBA

Dažreiz, iespējams, vēlēsities tvert visus konkrētas sarunas e-pastus un pēc tam eksportēt tos uz vietējo mapi kā teksta failus. Šis raksts jums iemācīs, kā to ātri iegūt.

Kādu iemeslu dēļ jums, iespējams, būs jāeksportē visi konkrētas sarunas e-pasta ziņojumi uz vietējo disku. Ja to darīsit manuāli, proti, pa vienam atrast un saglabāt, tas būs nogurdinošs un grūts uzdevums. Tāpēc labāk ir meklēt citu ātrāku metodi, piemēram, šo. Tas izmantos VBA koda fragmentu, lai to iegūtu bez svīšanas.

Paketē eksportējiet visas sarunas vēstules kā teksta failus

1. Pašā sākumā palaidiet programmu Outlook.
2. Pēc tam nospiediet taustiņu “Alt + F11” taustiņus, lai piekļūtu Outlook VBA redaktoram.
3. Pēc tam jaunajā logā ir jāatver modulis, kas netiek lietots, vai tieši jāievieto jauns modulis.
4. Tālāk jums vajadzētu kopēt un ielīmēt tālāk norādītos VBA kodus šajā modulī.

Public strFilePath, strFileName As String

Sub ExportMailsInConversationAsTXT()
    Dim objSelectedMail As Outlook.MailItem
    Dim objConversation As Outlook.Conversation
    Dim objMail As Outlook.MailItem

    Set objSelectedMail = ActiveExplorer.Selection.Item(1)
    Set objConversation = objSelectedMail.GetConversation
 
    If Not (objConversation Is Nothing) Then
       'Get all root items in this conversation
       For Each objMail In objConversation.GetRootItems
 
          strFileName = objMail.Subject
 
          'Remove the unsupported characters in email subject
          strFileName = Replace(strFileName, "/", " ")
          strFileName = Replace(strFileName, "\", " ")
          strFileName = Replace(strFileName, ":", "")
          strFileName = Replace(strFileName, "?", " ")
          strFileName = Replace(strFileName, Chr(34), " ")

          strFileName = Format(objMail.ReceivedTime, "YYYY-MM-DD") & "_" & strFileName & ".txt"
 
         'Export as Text files
         'Change "E:\" to other local folder path as per your needs
         strFilePath = "E:\" & strFileName
         objMail.SaveAs strFilePath, OLTXT

         'Process all children as well
         Call ProcessChildren(objMail, objConversation)
      Next
   End If

   MsgBox "Complete!", vbExclamation
End Sub

Sub ProcessChildren(objCurMail As Outlook.MailItem, objCurConversation As Outlook.Conversation)
    Dim objItems As Outlook.SimpleItems
    Dim objItem As Outlook.MailItem
 
    Set objItems = objCurConversation.GetChildren(objCurMail)

    If objItems.Count > 0 Then
       For Each objItem In objItems
 
           strFileName = objItem.Subject
 
           strFileName = Replace(strFileName, "/", " ")
           strFileName = Replace(strFileName, "\", " ")
           strFileName = Replace(strFileName, ":", "")
           strFileName = Replace(strFileName, "?", " ")
           strFileName = Replace(strFileName, Chr(34), " ")
 
           strFileName = Format(objItem.ReceivedTime, "yyyy-mm-dd") & "_" & strFileName & ".txt"
 
           strFilePath = "E:\" & strFileName
           objItem.SaveAs strFilePath, OLTXT
 
           'Process all children recursively
           Call ProcessChildren(objItem, objCurConversation)
       Next
    End If
End Sub

5. Pēc tam jauno VBA projektu kā parasti varat pievienot ātrās piekļuves rīkjoslai.
6. Vēlāk nodrošiniet savu Outlook makro drošības līmeni uz zemu.
7. Visbeidzot, jūs varētu mēģināt.

• Pirmkārt, atlasiet e-pastu.
• Pēc tam ātrās piekļuves rīkjoslā noklikšķiniet uz jaunās pogas makro.
• Kad saņemat ziņojumu “Complete”, varat atvērt iepriekš definētu lokālo mapi, kurā redzēsit e-pastus “TXT” formātā.

Padomi PST datu atjaunošanai pēc korupcijas

Bieži vien programmā Outlook jūs varat saskarties ar dažādām Outlook kļūdām, no kurām dažas var būt ļoti nopietnas un izraisīt PST bojājumus. Tajā laikā jums ir jārīkojas, lai remonts PST failu, lai atrastu savus vērtīgos datus. Šajā gadījumā varat vienkārši izmantot cienījamu un labi pārbaudītu rīku, piemēram, DataNumen Outlook Repair.

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