Làm cách nào để lưu email dưới dạng tệp pdf trong Outlook?
Nếu bạn đang làm việc với Microsoft Outlook 2010 và 2007, bạn sẽ thấy rằng không có tích hợp sẵn nào trong Outlook để thay đổi email thành định dạng pdf. Bạn cần chuyển đổi email thành tệp pdf bằng một số bổ trợ liên quan hoặc bằng mã VBA. Với bài viết dưới đây, bạn sẽ dễ dàng lưu email dưới dạng tệp pdf trong Outlook.
Lưu email dưới dạng tệp pdf trong Outlook với mã VBA
Lưu hàng loạt nhiều email dưới dạng tệp pdf hoặc các định dạng tệp khác với Lưu hàng loạt
Lưu email dưới dạng tệp pdf trong Outlook với mã VBA
1. Trước tiên, bạn nên chọn email mà bạn muốn lưu dưới dạng PDF.
2. nhấn Alt + F11 để khởi động Microsoft Visual Basic cho các ứng dụng cửa sổ.
3. nhấp chuột Chèn > Mô-đun, sau đó sao chép và dán mã VBA sau vào cửa sổ Mô-đun.
Mã VBA lưu email dưới dạng tệp PDF:
Sub SaveAsPDFfile()
Dim MyOlNamespace As NameSpace
Dim MySelectedItem As MailItem
Dim Response As String
Dim FSO As Object, TmpFolder As Object
Dim tmpFileName As String
Dim wrdApp As Object
Dim wrdDoc As Object
Dim bStarted As Boolean
Dim dlgSaveAs As FileDialog
Dim fdfs As FileDialogFilters
Dim fdf As FileDialogFilter
Dim i As Integer
Dim WshShell As Object
Dim SpecialPath As String
Dim msgFileName As String
Dim strCurrentFile As String
Dim strName As String
Dim oRegEx As Object
Dim intPos As Long
Set MyOlNamespace = Application.GetNamespace("MAPI")
Set MySelectedItem = ActiveExplorer.Selection.Item(1)
Set FSO = CreateObject("Scripting.FileSystemObject")
tmpFileName = FSO.GetSpecialFolder(2)
strName = "email_temp.mht"
tmpFileName = tmpFileName & "\" & strName
MySelectedItem.SaveAs tmpFileName, 10
On Error Resume Next
Set wrdApp = GetObject(, "Word.Application")
If Err Then
Set wrdApp = CreateObject("Word.Application")
bStarted = True
End If
On Error GoTo 0
Set wrdDoc = wrdApp.Documents.Open(FileName:=tmpFileName, Visible:=False, Format:=7)
Set dlgSaveAs = wrdApp.FileDialog(msoFileDialogSaveAs)
Set fdfs = dlgSaveAs.Filters
i = 0
For Each fdf In fdfs
i = i + 1
If InStr(1, fdf.Extensions, "pdf", vbTextCompare) > 0 Then
Exit For
End If
Next fdf
dlgSaveAs.FilterIndex = i
Set WshShell = CreateObject("WScript.Shell")
SpecialPath = WshShell.SpecialFolders(16)
msgFileName = MySelectedItem.Subject
Set oRegEx = CreateObject("vbscript.regexp")
oRegEx.Global = True
oRegEx.Pattern = "[\/:*?""<>|]"
msgFileName = Trim(oRegEx.Replace(msgFileName, ""))
dlgSaveAs.InitialFileName = SpecialPath & "\" & msgFileName
If dlgSaveAs.Show = -1 Then
strCurrentFile = dlgSaveAs.SelectedItems(1)
If Right(strCurrentFile, 4) <> ".pdf" Then
Response = MsgBox("Sorry, only saving in the pdf-format is supported." & _
vbNewLine & vbNewLine & "Save as pdf instead?", vbInformation + vbOKCancel)
If Response = vbCancel Then
wrdDoc.Close 0
If bStarted Then wrdApp.Quit
Exit Sub
ElseIf Response = vbOK Then
intPos = InStrRev(strCurrentFile, ".")
If intPos > 0 Then
strCurrentFile = Left(strCurrentFile, intPos - 1)
End If
strCurrentFile = strCurrentFile & ".pdf"
End If
End If
wrdApp.ActiveDocument.ExportAsFixedFormat OutputFileName:= _
strCurrentFile, _
ExportFormat:=17, _
OpenAfterExport:=False, _
OptimizeFor:=0, _
Range:=0, _
From:=0, _
To:=0, _
Item:=0, _
IncludeDocProps:=True, _
KeepIRM:=True, _
CreateBookmarks:=0, _
DocStructureTags:=True, _
BitmapMissingFonts:=True, _
UseISO19005_1:=False
End If
Set dlgSaveAs = Nothing
wrdDoc.Close
If bStarted Then wrdApp.Quit
Set MyOlNamespace = Nothing
Set MySelectedItem = Nothing
Set wrdDoc = Nothing
Set wrdApp = Nothing
Set oRegEx = Nothing
End Sub
Chú thích: Mã VBA này đã được kiểm tra thành công trong Outlook 2007 và 2010
4. nhấp chuột để chạy mã.
5. Sẽ có một Lưu tệp hộp thoại bật lên trong khi mã đang chạy. Chọn đường dẫn để lưu tệp, đặt tên cho tệp và cuối cùng nhấp vào Lưu .
6. Khi mã chạy xong, email đã chuyển đổi thành công sang tệp pdf.
Lưu hàng loạt nhiều email dưới dạng tệp pdf hoặc các định dạng tệp khác với Lưu hàng loạt
Với Kutools for Outlook được cài đặt, bạn có thể sử dụng nó Bulk Save tiện ích để nhanh chóng lưu hoặc xuất các email đã chọn sang tệp PDF / tệp Excel / tệp CSV hoặc các định dạng tệp khác.
Kutools for Outlook, bao gồm các tính năng và công cụ mạnh mẽ dành cho Microsoft Outlook 2019, 2016, 2013, 2010 và Office 365. |
||
1. Trong thư mục email, chọn thư bạn muốn lưu dưới dạng PDF, nhấp vào Kutools > Bulk Save.
2. bên trong Bulk Save hộp thoại, chọn một đường dẫn để đặt các tệp mới, kiểm tra PDF formatvà bạn có thể chỉ định Save content như bạn cần.
3. nhấp chuột Ok. Sau đó, các email đã chọn đã được lưu dưới dạng tệp PDF riêng lẻ.
Số lượng lớn Lưu email sang nhiều định dạng tệp
Công cụ năng suất văn phòng tốt nhất
Kutools cho Outlook - Hơn 100 tính năng mạnh mẽ để tăng cường Outlook của bạn
📧 Tự động hoá email: Vắng Mặt (Có sẵn cho POP và IMAP) / Lên lịch gửi email / Tự động CC/BCC theo quy định khi gửi Email / Tự động chuyển tiếp (Quy tắc nâng cao) / Tự động thêm lời chào / Tự động chia email nhiều người nhận thành các tin nhắn riêng lẻ hữu ích. Cảm ơn !
📨 Quản lý email: Dễ dàng thu hồi email / Chặn email lừa đảo theo chủ đề và những người khác / Xóa các email trùng lặp / Tìm Kiếm Nâng Cao / Hợp nhất các thư mục hữu ích. Cảm ơn !
📁 Tệp đính kèm chuyên nghiệp: Lưu hàng loạt / Tách hàng loạt / Nén hàng loạt / Tự động lưu / Tự động tách / Tự động nén hữu ích. Cảm ơn !
🌟 Giao diện ma thuật: 😊Thêm nhiều biểu tượng cảm xúc đẹp và thú vị hơn / Tăng năng suất Outlook của bạn với chế độ xem theo thẻ / Thu nhỏ Outlook thay vì đóng hữu ích. Cảm ơn !
👍 Kỳ quan chỉ bằng một cú nhấp chuột: Trả lời tất cả bằng tệp đính kèm đến / Email chống lừa đảo / 🕘Hiển thị múi giờ của người gửi hữu ích. Cảm ơn !
👩🏼🤝👩🏻 Danh bạ & Lịch: Thêm hàng loạt liên hệ từ các email đã chọn / Chia nhóm liên hệ thành các nhóm riêng lẻ / Xóa lời nhắc sinh nhật hữu ích. Cảm ơn !
Trên 100 tính năng Chờ đợi sự khám phá của bạn! Bấm vào đây để khám phá thêm.