Söhbətdəki bütün e-poçtları Outlook VBA vasitəsilə mətn faylları kimi toplu şəkildə necə ixrac etmək olar

Bəzən, müəyyən bir söhbətdəki bütün e-poçtları toplu şəkildə ələ keçirmək və sonra onları mətn faylları kimi yerli qovluğa toplu şəkildə ixrac etmək istəyə bilərsiniz. Bu məqalə sizə onu tez bir zamanda necə əldə edəcəyinizi öyrədəcək.

Nədənsə, müəyyən bir söhbətdəki bütün e-poçtları yerli diskinizə ixrac etməli ola bilərsiniz. Bunu əl ilə etsəniz, yəni bir-bir tapıb saxlasanız, bu, yorucu və çətin bir iş olacaq. Buna görə də, aşağıdakı kimi daha sürətli üsul axtarmağınız daha yaxşıdır. O, tər tökmədən onu əldə etmək üçün VBA kodunun bir hissəsini istifadə edəcək.

Söhbətdəki bütün məktubları mətn faylları kimi toplu ixrac edin

1. Ən başlanğıcda Outlook proqramınızı işə salın.
2. Sonra Outlook VBA redaktoruna daxil olmaq üçün "Alt + F11" düymələrini basın.
3. Sonradan, yeni pəncərədə istifadə olunmayan modulu açmalı və ya birbaşa yeni modul daxil etməlisiniz.
4. Sonra aşağıdakı VBA kodlarını kopyalayıb bu modula yapışdırmalısınız.

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. Bundan sonra, yeni VBA layihəsini həmişəki kimi Quick Access Toolbar-a əlavə edə bilərsiniz.
6. Daha sonra Outlook makro təhlükəsizlik səviyyənizin aşağı olmasını təmin edin.
7. Nəhayət, cəhd edə bilərsiniz.

• Əvvəlcə e-poçt seçin.
• Sonra Tez Giriş Alətlər Panelində yeni makro düyməsini basın.
• “Tamamlandı” mesajını aldığınız zaman əvvəlcədən təyin edilmiş yerli qovluğu aça bilərsiniz, orada “TXT” formatında e-poçtları görəcəksiniz.

Korrupsiyadan sonra PST məlumatlarını bərpa etmək üçün məsləhətlər

Tez-tez Outlook-da müxtəlif Outlook səhvləri ilə qarşılaşa bilərsiniz, bəziləri ciddi ola bilər ki, onlar birbaşa PST-nin pozulmasına gətirib çıxarır. O zaman üçün tədbirlər görmək lazımdır təmir PST dəyərli məlumatlarınızı tapmaq üçün fayl. Bu vəziyyətdə, sadəcə olaraq etibarlı və yaxşı sübut edilmiş bir vasitəyə müraciət edə bilərsiniz DataNumen Outlook Repair.

Müəllif Giriş:

Shirley Zhang məlumatların bərpası üzrə mütəxəssisdir DataNumendaxil olmaqla məlumatların bərpası texnologiyaları üzrə dünya lideri olan , Inc bərpa edin sql server və Outlook təmiri proqram məhsulları. Ətraflı məlumat üçün ziyarət edin www.datanumen.com