Bir Konuşmadaki Tüm E-postaları Outlook VBA Üzerinden Metin Dosyaları Olarak Toplu Dışa Aktarma

Bazen, belirli bir görüşmedeki tüm e-postaları toplu olarak yakalamak ve ardından bunları Metin dosyaları olarak yerel klasöre toplu olarak dışa aktarmak isteyebilirsiniz. Bu makale size onu nasıl hızlı bir şekilde alacağınızı öğretecek.

Herhangi bir nedenle, belirli bir görüşmedeki tüm e-postaları yerel sürücünüze aktarmanız gerekebilir. Bunu manuel olarak, yani tek tek bulup kaydetmeyi yaparsanız, sıkıcı ve meşakkatli bir iş olacaktır. Bu nedenle, aşağıdaki gibi daha hızlı başka bir yöntem arasanız iyi olur. Terlemeden almak için bir parça VBA kodu kullanacaktır.

Bir Konuşmadaki Tüm Postaları Metin Dosyaları Olarak Toplu Dışa Aktarma

1. En başta, Outlook uygulamanızı başlatın.
2. Daha sonra Outlook VBA editörüne erişmek için “Alt + F11” tuşlarına basın.
3. Akabinde, yeni pencerede, kullanılmayan bir modülü açmanız veya doğrudan yeni bir modül eklemeniz gerekir.
4. Daha sonra aşağıdaki VBA kodlarını kopyalayıp bu modüle yapıştı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 projesini her zamanki gibi Hızlı Erişim Araç Çubuğuna ekleyebilirsiniz.
6. Daha sonra Outlook makro güvenlik düzeyinizin düşük olduğundan emin olun.
7. Son olarak, bir deneyebilirsin.

• Öncelikle bir e-posta seçin.
• Ardından, Hızlı Erişim Araç Çubuğundaki yeni makro düğmesini tıklayın.
• "Tamamlandı" mesajını aldığınızda, "TXT" formatında e-postaları göreceğiniz önceden tanımlanmış yerel klasörü açabilirsiniz.

Bozulmadan Sonra PST Verilerini Geri Yükleme İpuçları

Genellikle, Outlook'ta çeşitli Outlook hatalarıyla karşılaşabilirsiniz; bunların bazıları doğrudan PST bozulmasına yol açacak kadar ciddi olabilir. O zaman, harekete geçmek için harekete geçmeniz gerekir. PST'yi onar değerli verilerinizi geri bulmak için dosya. Bu durumda, saygın ve kendini kanıtlamış bir araca tekrar dönebilirsiniz. DataNumen Outlook Repair.

Yazar Tanıtımı:

Shirley Zhang, bir veri kurtarma uzmanıdır. DataNumendahil olmak üzere veri kurtarma teknolojilerinde dünya lideri olan , Inc. kurtarmak sql server ve görünüm onarım yazılım ürünleri. Daha fazla bilgi için ziyaret edin www.datanumen.com