Jeśli chcesz zbiorczo wyeksportować wiele wiadomości e-mail programu Outlook do jednego dokumentu tekstowego, możesz użyć kodu VBA pokazanego w tym artykule. Może pomóc w wykonaniu tego zadania w ciągu kilku sekund.
W poprzednim artykule przedstawiłem, jak przekonwertować wiadomość e-mail programu Outlook na dokument programu Word – „2 skuteczne metody konwersji wiadomości e-mail programu Outlook na dokument programu Word”. Jednak oba 2 środki wymienione w tym post będzie bezradny w przypadku, gdy chcesz zbiorczo wyeksportować wiele e-maili do jednego dokumentu Word. Dlatego tutaj nauczymy Cię innego sposobu. Teraz czytaj dalej, aby uzyskać to szczegółowo.
Eksport wsadowy wielu wiadomości e-mail z programu Outlook do jednego dokumentu programu Word
- Do S.tart, uruchom program Outlook.
- Następnie po wejściu do głównego okna Outlooka należy nacisnąć klawisze „Alt + F11”.
- Następnie uzyskasz dostęp do edytora Outlook VBA, w którym powinieneś otworzyć pusty moduł.
- Następnie skopiuj poniższy kod VBA do otwartego okna modułu.
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
- Następnie lepiej dodać ten nowy projekt VBA do paska narzędzi lub wstążki szybkiego dostępu.
- Ostatecznie możesz spróbować.
- W pierwszej kolejności wybierz wiele wiadomości e-mail programu Outlook.
- Następnie zlokalizuj i kliknij nowo dodany przycisk makra.
- Po wyświetleniu monitu „Zakończono” możesz przejść do wstępnie zdefiniowanego folderu lokalnego, aby znaleźć nowy dokument programu Word.
- Otwórz ten dokument, w którym możesz zobaczyć, że wszystkie wybrane e-maile zostały wyeksportowane.
Trzymaj w pobliżu potężne narzędzie do odzyskiwania
Niezależnie od wielu funkcji, Outlook nadal nie może być odporny na błędy. Jeśli jesteś przyzwyczajony do pozostawiania błędów w spokoju, które się nawarstwiają, awaria programu Outlook nastąpi na pewno. W tym momencie ważne jest, aby powrócić do potężnego i skutecznego narzędzia do odzyskiwania, takiego jak DataNumen Outlook Repair. Jest dobrze zorientowany Poprawka PST. Dopóki z nim nie będziesz musiał się już martwić utratą danych programu Outlook.
Wprowadzenie autora:
Shirley Zhang jest ekspertem w dziedzinie odzyskiwania danych w DataNumen, Inc., która jest światowym liderem w technologiach odzyskiwania danych, w tym uszkodzony mdf i oprogramowanie do naprawy programu Outlook. po więcej informacji odwiedź www.datanumen.com