Đôi khi, bạn sẽ cần trích xuất và in danh sách đính kèm của nhiều email. Trong bài viết này, chúng tôi sẽ hướng dẫn bạn 2 phương pháp để có được nó.
Nếu bạn nhận được nhiều email có nhiều tệp đính kèm để tham khảo, bạn có thể muốn in các tên tệp đính kèm này ra. Trong tình huống này, làm thế nào bạn có thể có được nó với số lượng lớn? Sau đó, chúng tôi sẽ hướng dẫn bạn 2 cách in nhanh danh sách đính kèm của nhiều email Outlook.
Phương pháp 1: In và sao chép danh sách tệp đính kèm ở định dạng văn bản đa dạng thức
- Ngay từ đầu, hãy mở một email Outlook.
- Sau đó, trong cửa sổ Tin nhắn, nhấp vào “Hành động” và chọn “Chỉnh sửa tin nhắn”.
- Tiếp theo, chuyển sang tab “Định dạng văn bản”, trên đó chọn định dạng “Văn bản có định dạng”.
- Ngay lập tức, bạn có thể thấy rằng các tệp đính kèm email đã được chuyển vào nội dung.
- Sau đó, nhấp vào nút “Trả lời” trong nhóm “Phản hồi” trên tab “Tin nhắn”.
- Trong thư tiếp theo, danh sách tệp đính kèm đã có sẵn trong nội dung, giống như ảnh chụp màn hình bên dưới.
- Bây giờ bạn có thể sao chép danh sách đính kèm sang email mới.
- Sau đó, hãy sử dụng phương pháp này để sao chép danh sách đính kèm của các email khác sang thư mới.
- Cuối cùng, bạn có thể in thư mới này ra như bình thường.
Phương pháp 2: In danh sách tệp đính kèm qua Outlook VBA
- Trước tiên, hãy nhấn tổ hợp phím “Alt + F11” để mở trình chỉnh sửa VBA của Outlook.
- Sau đó, sao chép mã VBA sau vào một mô-đun.
Sub PrintAttachmentListsOfManyEmails()
Dim objSelection As Outlook.Selection
Dim objMail As Outlook.MailItem
Dim objAttachment As Outlook.Attachment
Dim objTempMail As Outlook.MailItem
'Get the selected emails
Set objSelection = Outlook.Application.ActiveExplorer.Selection
If Not (objSelection Is Nothing) Then
'Input the attachment lists into a temp mail
Set objTempMail = Outlook.Application.CreateItem(olMailItem)
For i = 1 To objSelection.Count
If objSelection(i).Class = olMail Then
Set objMail = objSelection(i)
If objMail.Attachments.Count > 0 Then
objTempMail.Body = objTempMail.Body & vbCr & "-------------------------------------------------------------------------------------------------------------" & vbCr & vbCr & i & ". " & objMail.Subject & vbCr & vbCr & "Attachment List:" & vbCr
For n = 1 To objMail.Attachments.Count
Set objAttachment = objMail.Attachments(n)
objTempMail.Body = objTempMail.Body & vbCr & "<<" & objAttachment.FileName & " Size: " & Round(objAttachment.Size / 1024, 1) & " KB>>"
Next
End If
End If
Next
'Print the temp mail
objTempMail.PrintOut
End If
End Sub
- Sau đó, thêm macro này vào Thanh công cụ truy cập nhanh bằng cách tham khảo bài viết – “Cách chạy mã VBA trong Outlook của bạn".
- Cuối cùng, hãy thử macro này.
- Lúc đầu, hãy chọn một vài email.
- Sau đó, bấm vào nút macro trong Thanh công cụ truy cập nhanh.
- Ngay lập tức, danh sách đính kèm của những email này phải được in ra.
Sử dụng Công cụ sửa chữa Outlook hàng đầu
Khi bạn gặp phải sự cố tệp Outlook, tin tốt nhất là bạn có bản sao lưu dữ liệu Outlook gần đây. Nó có thể cho phép bạn loại bỏ việc sửa tệp Outlook phức tạp. Tuy nhiên, đôi khi bản sao lưu có thể không được khôi phục. Vào thời điểm đó, bạn sẽ cần phải nhờ đến một công cụ sửa lỗi chuyên nghiệp và hiệu quả hơn, như DataNumen Outlook Repair. Nó có thể sửa chữa PST hỏng trong vài phút.
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 sửa chữa mdf 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