Kuinka viedä kaikki keskustelun sähköpostit tekstitiedostoina Outlook VBA:n kautta

Joskus saatat haluta kaapata kaikki tietyn keskustelun sähköpostit ja viedä ne sitten erässä paikalliseen kansioon tekstitiedostoina. Tämä artikkeli opettaa sinulle, kuinka saat sen nopeasti.

Jostain syystä saatat joutua viemään kaikki tietyn keskustelun sähköpostit paikalliseen asemaan. Jos teet tämän manuaalisesti, eli etsit ja tallennat yksitellen, se on työläs ja työläs tehtävä. Siksi sinun on parempi etsiä toinen nopeampi tapa, kuten seuraava. Se käyttää palaa VBA-koodia saadakseen sen ilman hikoilua.

Erävie kaikki keskustelun viestit tekstitiedostoina

1. Käynnistä Outlook-sovellus heti alusta.
2. Paina sitten "Alt + F11" -näppäimiä päästäksesi Outlook VBA -editoriin.
3. Sen jälkeen uudessa ikkunassa sinun on avattava moduuli, joka ei ole käytössä, tai lisättävä suoraan uusi moduuli.
4. Seuraavaksi sinun tulee kopioida ja liittää seuraavat VBA-koodit tähän moduuliin.

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. Tämän jälkeen voit lisätä uuden VBA-projektin Quick Access Toolbariin tavalliseen tapaan.
6. Varmista myöhemmin Outlook-makrosi suojaustaso alhaiseksi.
7. Lopuksi voit kokeilla.

• Valitse ensin sähköposti.
• Napsauta sitten uutta makronappia Pikakäynnistystyökalurivillä.
• Kun saat viestin “Complete”, voit avata ennalta määritetyn paikallisen kansion, jossa näet sähköpostit “TXT”-muodossa.

Vinkkejä PST-tietojen palauttamiseen korruption jälkeen

Usein saatat kohdata Outlookissa erilaisia ​​Outlook-virheitä, joista osa voi olla niin vakavia, että ne johtavat suoraan PST-korruptioon. Tuolloin sinun on ryhdyttävä toimiin korjaa PST tiedosto löytääksesi arvokkaat tietosi. Tässä tapauksessa voit vain käyttää hyvämaineista ja hyvin todistettua työkalua, kuten DataNumen Outlook Repair.

Tekijän esittely:

Shirley Zhang on tietojen palauttamisen asiantuntija DataNumen, Inc., joka on maailman johtava tietojen palautustekniikoissa, mukaan lukien toipua sql server ja Outlookin korjausohjelmistotuotteet. Lisätietoja osoitteessa www.datanumen.com