Ha több Outlook e-mailt szeretne köteggel exportálni egyetlen Word dokumentumba, használhatja az ebben a cikkben bemutatott VBA-kódot. Segítségével másodpercek alatt elvégezheti ezt a feladatot.
Előző cikkemben bemutattam, hogyan alakíthatok át egy Outlook e-mailt Word-dokumentummá - "2 hatékony módszer az Outlook e-mailek Word-dokumentummá konvertálására”. Mindazonáltal mind a 2 azt jelenti, hogy a post tehetetlen lesz abban az esetben, ha sok e-mailt szeretne köteggel exportálni egyetlen Word dokumentumba. Ezért itt egy másik módszert fogunk megtanítani. Most olvassa el, hogy részletesen megértse.
Több Outlook e-mail kötegelt exportálása egyetlen Word dokumentumba
- A start, indítsa el az Outlook programot.
- Ezután, miután belépett az Outlook főablakába, meg kell nyomnia az „Alt + F11” billentyűket.
- Ezután hozzáférhet az Outlook VBA szerkesztőhöz, amelyben meg kell nyitnia egy üres modult.
- Ezt követően másolja be az alábbi VBA-kódot a megnyíló modulablakba.
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
- Ezt követően jobb, ha hozzáadja ezt az új VBA-projektet a Gyorselérési eszköztárhoz vagy szalaghoz.
- Végül is tehet egy próbát.
- Először is válasszon ki több Outlook e-mailt.
- Ezután keresse meg és kattintson az újonnan hozzáadott makró gombra.
- Miután megjelenik a „Befejezés” kérdés, tallózhat az előre meghatározott helyi mappába új Word-dokumentum kereséséhez.
- Nyissa meg ezt a dokumentumot, amelyben láthatja, hogy az összes kiválasztott e-mail exportálásra került.
Tartson a közelben egy hatalmas helyreállítási eszközt
Számos funkciótól függetlenül az Outlook továbbra sem mentes a hibáktól. Ha megszokta, hogy magukra hagyja a hibákat, amelyek egyre szaporodnak, az Outlook biztosan összeomlik. Ezen a ponton elengedhetetlen, hogy visszatérjünk egy hatalmas és hatékony helyreállítási eszközhöz, mint pl DataNumen Outlook Repair. Jól jártas benne PST javítás. Mindaddig, amíg ezt használja, nem kell többé aggódnia a kilátások adatvesztése miatt.
Szerző Bevezetés:
Shirley Zhang adat-helyreállítási szakértő DataNumen, Inc., amely világelső az adat-helyreállítási technológiák területén, beleértve sérült mdf és outlook javítószoftver termékek. További információért látogasson el www.datanumen.com