Birden Çok Outlook E-postasını VBA Aracılığıyla Tek Bir Word Belgesine Toplu Dışa Aktarma

Görünüm Çözümleri Eylül 29, 2025
Şimdi paylaş:

Birden çok Outlook e-postasını tek bir sözcük belgesine toplu olarak dışa aktarmak istiyorsanız, bu makalede gösterilen VBA kodunu kullanabilirsiniz. Bu görevi saniyeler içinde gerçekleştirmenize yardımcı olabilir.

Bir Outlook e-postasının Word belgesine nasıl dönüştürüleceğini önceki makalemde anlatmıştım – “Bir Outlook E-postasını Word Belgesine Dönüştürmenin 2 Etkili Yöntemi”. Bununla birlikte, her iki 2 anlamı da bu p'de bahsedilen anlamına gelir.ost birçok e-postayı tek bir Word belgesine toplu olarak dışa aktarmak istediğinizde çaresiz kalacaktır. Bu nedenle, burada size başka bir yol öğreteceğiz. Şimdi, ayrıntılı bir şekilde almak için okumaya devam edin.

Birden Çok Outlook E-postasını VBA Aracılığıyla Tek Bir Word Belgesine Toplu Olarak Aktarın

Birden Çok Outlook E-postasını Tek Bir Word Belgesine Toplu Aktarma

  1. İçintart ile Outlook programınızı başlatın.
  2. Ardından, ana Outlook penceresine girdikten sonra “Alt + F11” tuş düğmelerine basmanız gerekir.
  3. Ardından, boş bir modül açmanız gereken Outlook VBA düzenleyicisine erişeceksiniz.
  4. Daha sonra aşağıdaki VBA kodunu açılan modül penceresine kopyalayın.
Sub ExportMultipleEmails_OneWordDocument()
    Dim objFileSystem As Object
    Dim strTempFolder As String
    Dim objSelection As Outlook.Selection
    Dim objMail As Outlook.MailItem
    Dim strFileName As String
    Dim objWordApp As Word.Application
    Dim objNewWordDocument As Word.Document
    Dim objWordRange As Word.Range
    Dim strWordDocument As String
    Dim i As Long
  
    'Create a temp folder
    Set objFileSystem = CreateObject("Scripting.FileSystemObject")
    strTempFolder = objFileSystem.GetSpecialFolder(2).Path & "\Temp" & Format(Now, "YYYYMMDDhhmmss")
    MkDir (strTempFolder)
 
    On Error Resume Next
    'Save each selected email as an individual Word document in a temp folder
    Set objSelection = Outlook.Application.ActiveExplorer.Selection
    For Each objMail In objSelection
        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), " ")
 
        objMail.SaveAs strTempFolder & "\" & strFileName & ".doc", olDoc
    Next
 
    'Merge all the Word documents into a single document
    Set objWordApp = CreateObject("Word.Application")
    Set objNewWordDocument = objWordApp.Documents.Add
 
    strWordDocument = Dir(strTempFolder & "\" & "*.doc")
    i = 0
    Do Until strWordDocument = ""
       i = i + 1
       Set objWordRange = objNewWordDocument.Range
       With objWordRange
           .Collapse wdCollapseEnd
           If i > 1 Then
             .InsertBreak wdSectionBreakNextPage
             .End = objNewWordDocument.Range.End
             .Collapse wdCollapseEnd
           End If
           .InsertFile strTempFolder & "\" & strWordDocument
      End With
      strWordDocument = Dir()
    Loop
 
    'Change the path as per your own needs
    objNewWordDocument.SaveAs "E:\Exported Emails " & Format(Now, "YYYY-MM-DD hh-mm-ss")
    objWordApp.Quit
 
    'Delete the temp folder
    objFileSystem.DeleteFolder (strTempFolder)
End Sub

VBA Kodu - Birden Çok Outlook E-postasını Toplu Olarak Tek Bir Word Belgesine Aktarın

  1. Bundan sonra, bu yeni VBA projesini Hızlı Erişim Araç Çubuğuna veya şeride eklemeniz daha iyi olur.
  2. Sonunda, bir deneyebilirsin.
  • İlk olarak, birden çok Outlook e-postası seçin.
  • Ardından yeni eklenen makro düğmesini bulun ve tıklayın.
  • Sizden “Tamamlandı” istendikten sonra, yeni bir Word belgesi bulmak için önceden tanımlanmış yerel klasöre göz atabilirsiniz.
  • Seçilen tüm e-postaların dışa aktarıldığını görebileceğiniz bu belgeyi açın.

Güçlü Bir Kurtarma Aracını Yakınınızda Bulundurun

Çok sayıda işlevden bağımsız olarak, Outlook yine de hatalardan muaf olamaz. Hataları kendi haline bırakmaya alışkınsanız, bunlar birikerek, Outlook çökmesi kesinlikle gerçekleşir. Bu noktada, gibi güçlü ve etkili bir kurtarma aracına tekrar başvurmak önemlidir. DataNumen Outlook Repair. Bu konuda çok bilgili PST düzeltmesi. Onunla olduğu sürece, artık görünüm veri kaybı konusunda endişelenmenize gerek kalmayacak.

Yazar Tanıtımı:

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

Şimdi paylaş:

Yoruma kapalı.