Nếu bạn muốn xuất hàng loạt nhiều email Outlook thành một tài liệu từ, bạn có thể sử dụng mã VBA được hiển thị trong bài viết này. Nó có thể hỗ trợ bạn hoàn thành nhiệm vụ này trong vòng vài giây.
Tôi đã từng giới thiệu cách chuyển đổi email Outlook thành tài liệu Word trong bài viết trước của mình – “2 phương pháp hiệu quả để chuyển đổi email Outlook thành tài liệu Word”. Tuy nhiên, cả 2 phương tiện được đề cập trong p đóost sẽ bất lực trong trường hợp bạn muốn xuất hàng loạt email vào một văn bản Word. Do đó, ở đây chúng tôi sẽ dạy cho bạn một cách khác. Bây giờ, đọc tiếp để có được nó một cách công phu.
Xuất hàng loạt nhiều email Outlook thành một tài liệu Word
- Để start bằng, khởi chạy chương trình Outlook của bạn.
- Sau đó, sau khi vào cửa sổ chính của Outlook, bạn cần nhấn các nút phím “Alt + F11”.
- Tiếp theo, bạn sẽ có quyền truy cập vào trình soạn thảo VBA của Outlook, trong đó bạn phải mở một mô-đun trống.
- Sau đó, sao chép mã VBA bên dưới vào cửa sổ mô-đun đã mở.
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
- Sau đó, bạn nên thêm dự án VBA mới này vào Thanh công cụ Truy nhập Nhanh hoặc dải băng.
- Cuối cùng, bạn có thể thử.
- Đầu tiên, hãy chọn nhiều email Outlook.
- Sau đó xác định vị trí và nhấp vào nút macro mới được thêm vào.
- Sau khi bạn được nhắc “Hoàn thành”, bạn có thể duyệt đến thư mục cục bộ được xác định trước để tìm tài liệu Word mới.
- Mở tài liệu này, trong đó bạn có thể thấy tất cả các email đã chọn đã được xuất.
Giữ một công cụ phục hồi mạnh mẽ gần đó
Bất kể có nhiều chức năng, Outlook vẫn không thể tránh khỏi lỗi. Nếu bạn đã quen để lỗi một mình, với việc chúng chồng chất lên nhau, sự cố Outlook chắc chắn sẽ xảy ra. Tại thời điểm đó, điều cần thiết là phải sử dụng một công cụ khôi phục mạnh mẽ và hiệu quả, như DataNumen Outlook Repair. Nó rất thành thạo trong PST sửa chữa. Với nó, bạn sẽ không cần phải lo lắng về việc mất dữ liệu Outlook nữa.
Giới thiệu tác giả:
Shirley Zhang là một chuyên gia phục hồi dữ liệu trong DataNumen, Inc., công ty hàng đầu thế giới về công nghệ khôi phục dữ liệu, bao gồm mdf bị hỏng và các sản phẩm phần mềm sửa chữa triển vọng. Để biết thêm thông tin, hãy truy cập www.datanumennăm