Ako želite grupno izvesti više Outlook e-poruka u jedan dokument riječi, možete koristiti VBA kod prikazan u ovom članku. Može vam pomoći da ovaj zadatak obavite u roku od nekoliko sekundi.
U svom prethodnom članku sam ikada predstavio kako pretvoriti Outlook e-poštu u Word dokument – “2 efikasne metode za pretvaranje Outlook e-pošte u Word dokument”. Međutim, oba 2 sredstva navedena u toj strost će biti bespomoćno u slučaju kada želite grupno izvesti mnogo e-poruka u jedan Word dokument. Dakle, ovdje ćemo vas naučiti na drugi način. Sada, čitajte dalje da biste to detaljnije shvatili.
Grupni izvoz više Outlook e-poruka u jedan Word dokument
- Za start sa, pokrenite svoj Outlook program.
- Zatim, nakon ulaska u glavni Outlook prozor, trebate pritisnuti tipke “Alt + F11”.
- Zatim ćete dobiti pristup Outlook VBA editoru, u kojem treba da otvorite prazan modul.
- Zatim kopirajte VBA kod ispod u otvoreni prozor 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
- Nakon toga, bolje je da ovaj novi VBA projekat dodate na traku sa alatkama za brzi pristup ili traku.
- Na kraju krajeva, možete pokušati.
- Na prvom mjestu odaberite više Outlook e-poruka.
- Zatim pronađite i kliknite na novo dodano dugme makroa.
- Nakon što se od vas zatraži "Završeno", možete pretraživati unaprijed definiranu lokalnu mapu kako biste pronašli novi Word dokument.
- Otvorite ovaj dokument u kojem možete vidjeti da su svi odabrani emailovi izvezeni.
Držite Mighty Recovery Tool u blizini
Bez obzira na brojne funkcije, Outlook i dalje ne može biti imun na greške. Ako ste navikli da ostavljate greške na miru, uz njihovo gomilanje, sigurno će doći do pada Outlooka. U tom trenutku, od suštinskog je značaja da se vratite na moćan i efikasan alat za oporavak, kao što je DataNumen Outlook Repair. Dobro je upućen u to PST fix. Sve dok je s njim, više nećete morati da brinete o gubitku podataka Outlooka.
Uvod za autora:
Shirley Zhang je stručnjak za oporavak podataka DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući oštećen mdf i Outlook softverski proizvodi za popravku. Za više informacija posjetite www.datanumen.com