Ak chcete hromadne exportovať viac e-mailov programu Outlook do jedného slovného dokumentu, môžete použiť kód VBA uvedený v tomto článku. Môže vám pomôcť splniť túto úlohu v priebehu niekoľkých sekúnd.
Ako som konvertoval e-mail programu Outlook na dokument Word, som už niekedy predstavil v mojom predchádzajúcom článku - „2 efektívne spôsoby prevodu e-mailu z programu Outlook na dokument vo formáte Word“. Oba dva prostriedky uvedené v tejto strost bude bezmocný v prípade, že chcete hromadne exportovať veľa e-mailov do jedného dokumentu programu Word. Preto vás tu naučíme iným spôsobom. Čítajte ďalej, aby ste to dostali komplikovane.
Hromadný export viacerých e-mailov z programu Outlook do dokumentu s jedným slovom
- K start s, spustite program Outlook.
- Po vstupe do hlavného okna programu Outlook musíte stlačiť klávesové skratky „Alt + F11“.
- Ďalej získate prístup k editoru Outlook VBA, v ktorom by ste mali otvoriť prázdny modul.
- Následne skopírujte nižšie uvedený kód VBA do otvoreného okna modulu.
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
- Potom bude lepšie pridať tento nový projekt VBA na panel s nástrojmi alebo na pásku s nástrojmi Rýchly prístup.
- Nakoniec to môžete vyskúšať.
- Na prvom mieste vyberte viac e-mailov služby Outlook.
- Potom vyhľadajte a kliknite na novo pridané tlačidlo makra.
- Keď sa zobrazí výzva na dokončenie, môžete prejsť do preddefinovaného miestneho priečinka a nájsť nový dokument programu Word.
- Otvorte tento dokument, v ktorom uvidíte všetky vybrané e-maily, ktoré boli exportované.
Udržujte Mighty Recovery Tool nablízku
Bez ohľadu na množstvo funkcií nemôže byť program Outlook stále odolný voči chybám. Ak ste zvyknutí nechať chyby samy a pri ich hromadení, určite dôjde k zlyhaniu Outlooku. V tom okamihu je nevyhnutné vrátiť sa k mocnému a efektívnemu nástroju na zotavenie, ako je DataNumen Outlook Repair. Je dobre vyznaný v Oprava PST. Pokiaľ s ním už nebudete viac musieť mať obavy zo straty údajov v programe Outlook.
Úvod autora:
Shirley Zhang je expertkou na obnovu dát v DataNumen, Inc., ktorá je svetovým lídrom v oblasti technológií obnovy dát, vrátane poškodený mdf a výhľadové softvérové produkty na opravu. Pre viac informácií navštívte www.datanumen. S