Outlook VBA -ээр дамжуулан бүх имэйлийг текст файл хэлбэрээр хэрхэн яаж экспортлох вэ

Заримдаа, та тодорхой имэйл дэх бүх имэйлийг багцлан авч, дараа нь тэдгээрийг текст файл болгон локал хавтсанд экспортлохыг хүсч болно. Энэ нийтлэл нь үүнийг хэрхэн хурдан хугацаанд олж авахыг танд заах болно.

Зарим шалтгааны улмаас та тодорхой харилцан ярианд байгаа бүх имэйлийг дотоод хөтөч рүү экспортлох шаардлагатай байж магадгүй юм. Хэрэв та үүнийг гараар хийвэл, тухайлбал нэг нэгээр нь хайж олох, хадгалах нь уйтгартай, хэцүү ажил байх болно. Тиймээс та доорх гэх мэт өөр хурдан аргыг хайх нь дээр. Энэ нь VBA кодыг ашиглан хөлсөө дуслуулахгүйгээр авах болно.

Бүх мессежийг харилцан ярианд текст файл болгон экспортлох

1. Хамгийн эхэнд Outlook програмаа ажиллуулна уу.
2. Дараа нь "Alt + F11" товчлуурыг дарж Outlook VBA засварлагч руу орно уу.
3. Үүний дараа шинэ цонхонд та ашиглагдаагүй байгаа модулийг нээх эсвэл шинэ модулийг шууд оруулах шаардлагатай болно.
4. Дараа нь та энэ модульд дараах VBA кодыг хуулж буулгах хэрэгтэй.

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. Үүний дараа та шинэ VBA төслийг Quick Access Toolbar дээр ердийнхөөрөө нэмж болно.
6. Дараа нь Outlook макро аюулгүй байдлын түвшинг хамгийн бага түвшинд байлгах хэрэгтэй.
7. Эцэст нь та оролдож үзэх боломжтой.

• Нэгдүгээрт, имэйл сонгоно уу.
• Дараа нь Quick Access Toolbar дээрх шинэ макро товчийг дарна уу.
• "Бүрэн боллоо" гэсэн мессежийг хүлээн авмагц та "TXT" форматтай имэйлийг харах болно.

Авлигын дараа PST өгөгдлийг сэргээх зөвлөмжүүд

Ихэнхдээ Outlook дээр Outlook -ийн янз бүрийн алдаатай тулгардаг бөгөөд тэдгээрийн зарим нь ноцтой байж болох бөгөөд ингэснээр шууд PST авлигалд хүргэдэг. Тэр үед та арга хэмжээ авах хэрэгтэй засварын газар үнэ цэнэтэй өгөгдлөө буцааж олохын тулд файл. Энэ тохиолдолд та нэр хүндтэй, сайн батлагдсан хэрэгсэл рүү дахин орох боломжтой болно DataNumen Outlook Repair.

Зохиогчийн танилцуулга:

Ширли Жан бол мэдээлэл сэргээх мэргэжилтэн юм DataNumen, Үүнд мэдээлэл сэргээх технологиор дэлхийд тэргүүлэгч, Inc. сэргээх sql server програм хангамжийн бүтээгдэхүүнийг засах хэтийн төлөв. Дэлгэрэнгүй мэдээллийг авна уу WWW.datanumen.com