Če želite paketno izvoziti več Outlookovih e-poštnih sporočil v en sam dokument Word, lahko uporabite kodo VBA, prikazano v tem članku. Lahko vam pomaga, da to nalogo opravite v nekaj sekundah.
V svojem prejšnjem članku sem kdaj predstavil, kako pretvoriti Outlookovo e-pošto v Wordov dokument – "2 učinkoviti metodi za pretvorbo Outlookove e-pošte v Wordov dokument”. Vendar pa obe pomeni, omenjeni v tej strost bo nemočen v primeru, ko želite paketno izvoziti več e-poštnih sporočil v en Wordov dokument. Zato vas bomo tukaj naučili drugega načina. Zdaj pa preberite, če želite podrobneje razumeti.
Paketno izvozite več Outlookovih e-poštnih sporočil v en Wordov dokument
- Za starZaženite program Outlook.
- Potem, ko vstopite v glavno okno programa Outlook, morate pritisniti tipke »Alt + F11«.
- Nato boste dobili dostop do urejevalnika Outlook VBA, v katerem bi morali odpreti prazen modul.
- Nato kopirajte spodnjo kodo VBA v odprto okno modula.
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
- Po tem je bolje, da dodate ta novi projekt VBA v orodno vrstico za hitri dostop ali trak.
- Navsezadnje lahko poskusite.
- Najprej izberite več Outlookovih e-poštnih sporočil.
- Nato poiščite in kliknite na novo dodan gumb makra.
- Ko se prikaže poziv »Dokončano«, lahko poiščete vnaprej določeno lokalno mapo in poiščete nov Wordov dokument.
- Odprite ta dokument, v katerem lahko vidite, da so bila vsa izbrana e-poštna sporočila izvožena.
V bližini imejte zmogljivo orodje za obnovitev
Ne glede na številne funkcije Outlook še vedno ni imun na napake. Če ste navajeni pustiti napake pri miru, ko se kopičijo, se bo zagotovo zrušil Outlook. Na tej točki je bistveno, da se vrnete na mogočno in učinkovito obnovitveno orodje, kot je DataNumen Outlook Repair. Dobro je seznanjen PST popravek. Dokler je z njim, vam ne bo treba več skrbeti za izgubo podatkov Outlook.
Uvod avtorja:
Shirley Zhang je strokovnjakinja za obnovitev podatkov v DataNumen, Inc., ki je vodilna na svetu na področju tehnologij za obnovitev podatkov, vključno z poškodovan mdf in obeti za popravilo programskih izdelkov. Za več informacij obiščite www.datanumen.com