Ja vēlaties eksportēt vairākus Outlook e-pasta ziņojumus vienā vārda dokumentā, varat izmantot šajā rakstā parādīto VBA kodu. Tas var palīdzēt jums veikt šo uzdevumu dažu sekunžu laikā.
Es kādreiz savā iepriekšējā rakstā esmu iepazīstinājis, kā Outlook e-pastu pārveidot par Word dokumentu -2 efektīvas metodes Outlook e-pasta konvertēšanai Word dokumentā”. Tomēr abi tajā nozīmē minētie 2 līdzekļiost būs bezpalīdzīgs gadījumā, ja vēlaties daudzus e-pastus eksportēt vienā Word dokumentā. Tādējādi šeit mēs iemācīsim jums citu veidu. Tagad lasiet tālāk, lai to precīzi iegūtu.
Partijas eksportēt vairākus Outlook e-pastus vienā Word dokumentā
- Uz start, palaidiet programmu Outlook.
- Pēc tam, ievadot galveno Outlook logu, jums jānospiež taustiņu pogas “Alt + F11”.
- Pēc tam jūs iegūsit piekļuvi Outlook VBA redaktoram, kurā jums vajadzētu atvērt tukšu moduli.
- Pēc tam kopējiet zemāk redzamo VBA kodu atvērtajā moduļa logā.
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
- Pēc tam labāk pievienot šo jauno VBA projektu ātrās piekļuves rīkjoslai vai lentei.
- Galu galā jūs varat izmēģināt.
- Pirmkārt, atlasiet vairākus Outlook e-pasta ziņojumus.
- Pēc tam atrodiet un noklikšķiniet uz nesen pievienotās makro pogas.
- Pēc tam, kad tiek parādīts uzaicinājums pabeigt, varat pārlūkot iepriekš noteiktu vietējo mapi, lai atrastu jaunu Word dokumentu.
- Atveriet šo dokumentu, kurā varat redzēt, ka visi atlasītie e-pasta ziņojumi ir eksportēti.
Turiet tuvumā varenu atkopšanas rīku
Neatkarīgi no daudzajām funkcijām, Outlook joprojām nevar pasargāt no kļūdām. Ja esat pieradis atstāt kļūdas vienatnē, tām krājoties, Outlook avārija notiks noteikti. Tajā brīdī ir svarīgi atkārtoti izmantot spēcīgu un efektīvu atkopšanas rīku, piemēram, DataNumen Outlook Repair. Tas ir labi pārzina PST labojums. Kamēr tas notiks, jums vairs nebūs jāuztraucas par perspektīvas datu zaudēšanu.
Autora ievads:
Šērlija Džana ir datu atkopšanas eksperte DataNumen, Inc., kas ir pasaules līderis datu atkopšanas tehnoloģiju, tostarp sabojāts mdf un perspektīvas remonta programmatūras produktus. Lai iegūtu vairāk informācijas, apmeklējiet vietni www.datanumen. Ar