VBA арқылы бірнеше Word Outlook хаттарын бір сөзді құжатқа қалай экспорттауға болады

Outlook шешімдері Қыркүйек 29, 2025
Қазір бөлісу:

Егер сіз бірнеше Outlook электрондық пошталарын бір сөзді құжатқа экспорттағыңыз келсе, осы мақалада көрсетілген VBA кодын пайдалана аласыз. Бұл сізге бірнеше секунд ішінде осы тапсырманы орындауға көмектеседі.

Мен Outlook электрондық поштасын Word құжатына қалай түрлендіруді алдыңғы мақалада енгізген болатынмын - «2 Outlook электрондық поштасын Word құжатына түрлендірудің тиімді әдістері». Алайда, осы б. Аталған екі құралдың екеуі деost көптеген электрондық хаттарды бір Word құжатына экспорттауды қалаған жағдайда дәрменсіз болады. Демек, мұнда біз сізге басқа жолды үйретеміз. Енді оны егжей-тегжейлі алу үшін оқыңыз.

VBA арқылы бірнеше Word Outlook электрондық поштасын бір Word құжатына экспорттау

Бір Word құжатына бірнеше Outlook электрондық пошталарын пакеттік экспорттау

  1. Кімгеtart көмегімен Outlook бағдарламасын іске қосыңыз.
  2. Одан кейін негізгі Outlook терезесіне кіргеннен кейін «Alt + F11» батырмаларын басу керек.
  3. Одан кейін сіз бос модульді ашуға болатын Outlook VBA редакторына кіре аласыз.
  4. Кейіннен төмендегі VBA кодын ашылған модуль терезесіне көшіріңіз.
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 коды - Outlook поштасынан бірнеше электрондық поштаны бір Word құжатына пакеттік экспорттау

  1. Осыдан кейін, сіз VBA жобасын жылдам қол жетімді құралдар тақтасына немесе таспаға қосқаныңыз жөн.
  2. Сайып келгенде, сіз көріңіз.
  • Біріншіден, бірнеше Outlook электрондық поштасын таңдаңыз.
  • Содан кейін жаңадан қосылған макро батырманы тауып, оны нұқыңыз.
  • Сізден «Аяқтау» сұралғаннан кейін, жаңа Word құжатын табу үшін алдын ала анықталған жергілікті қалтаны шолуға болады.
  • Барлық таңдалған электрондық хаттардың экспортталғанын көруге болатын құжатты ашыңыз.

Мықты қалпына келтіру құралын жақын жерде ұстаңыз

Көптеген функцияларға қарамастан, Outlook әлі де қателіктерден қорғалмайды. Егер сіз қателіктерді жалғыз қалдыруға дағдыланған болсаңыз, оларды көбейтетін болсаңыз, Outlook апаты орын алуы мүмкін. Сол кезде қалпына келтірудің күшті және тиімді құралына жүгіну өте маңызды DataNumen Outlook Repair. Ол жақсы біледі PST түзету. Онымен қоса, сіз деректердің жоғалуы туралы бұдан әрі алаңдамайсыз.

Автордың кіріспесі:

Ширли Чжан - деректерді қалпына келтіру бойынша сарапшы DataNumen, Соның ішінде деректерді қалпына келтіру технологиялары бойынша әлемдік көшбасшы болып табылатын Inc. бүлінген mdf және бағдарламалық жасақтаманы жөндеу бағдарламалары. Қосымша ақпарат алу үшін кіріңіз WWW.datanumen.com

Қазір бөлісу:

Пікірлер жабылды.