Nếu bạn muốn tạo một email mới và nối thêm tất cả các tệp đính kèm trong một số email khác vào thư mới, bạn có thể sử dụng phương pháp được giới thiệu trong bài viết này. Nó sẽ dạy bạn sử dụng VBA một cách dễ dàng.
Đôi khi, bạn có thể cần sao chép hàng loạt tất cả tệp đính kèm từ nhiều email sang email mới. Tất nhiên, bạn có thể chọn thực hiện thủ công, trước tiên chỉ cần lưu chúng vào ổ đĩa cục bộ rồi đính kèm từng cái một vào email mới tạo. Tuy nhiên, rõ ràng, bằng cách này, nó sẽ là một công việc khá tẻ nhạt. Vậy tại sao bạn không tận dụng VBA để nhanh chóng nhận ra điều đó? Trong phần sau, chúng tôi sẽ giới thiệu cho bạn các thao tác phức tạp và mã VBA tương ứng.
Sao chép hàng loạt tất cả tệp đính kèm từ nhiều email sang email mới
- Ngay từ đầu, hãy khởi động chương trình Outlook như bình thường.
- Tiếp theo trong cửa sổ chính của Outlook, nhấn nút phím “Alt + F11”.
- Trong cửa sổ “Microsoft Visual Basic for Application” tiếp theo, hãy chèn một mô-đun mới hoặc mở một mô-đun không được sử dụng.
- Sau đó sao chép và dán các mã VBA sau vào mô-đun như vậy.
Sub NewEmailwithAttachmentsinSeveralEmails()
Dim objSelection As Outlook.Selection
Dim objMail As Outlook.MailItem
Dim objAttachment As Outlook.Attachment
Dim objFileSystem As Object
Dim strFilePath As String
Dim objNewMail As Outlook.MailItem
Set objSelection = Outlook.Application.ActiveExplorer.Selection
Set objNewMail = Outlook.Application.CreateItem(olMailItem)
On Error Resume Next
For Each objMail In objSelection
For Each objAttachment In objMail.attachments
'Save all the attachments to temporary folder
Set objFileSystem = CreateObject("Scripting.FileSystemObject")
strFilePath = objFileSystem.GetSpecialFolder(2).Path & "\" & objAttachment.filename
objAttachment.SaveAsFile (strFilePath)
'Add the attachments to the new email
objNewMail.attachments.Add (strFilePath)
'Delete the temporary files
objFileSystem.DeleteFile (strFilePath)
Next
Next
'Show the new email
objNewMail.Display
End Sub
- Sau đó, bạn nên tiến hành thêm dự án VBA mới vào Thanh công cụ truy cập nhanh. Bạn có thể hoàn thành nó trong “Tùy chọn Outlook”.
- Sau đó, bạn nên thay đổi cấp độ bảo mật macro Outlook của mình thành thấp.
- Cuối cùng bạn có thể có một thử.
- Đầu tiên, nhấn phím “Ctrl” và chọn một số email có tệp đính kèm bạn muốn sao chép.
- Sau đó nhấn nút macro mới trong Thanh công cụ truy cập nhanh.
- Ngay lập tức, một email mới sẽ hiện lên kèm theo toàn bộ file đính kèm.
Thách thức các vấn đề thường gặp về Outlook PST
Vì các sự cố Outlook PST thỉnh thoảng có thể xảy ra nên bạn nên dành nhiều nỗ lực để bảo vệ dữ liệu PST của mình. Ví dụ: tốt hơn hết bạn nên sao lưu dữ liệu PST của mình một cách thường xuyên để có thể lấy lại Outlook bị hỏng dữ liệu từ các bản sao lưu mà không phải đổ mồ hôi. Hơn nữa, bạn phải có một công cụ có uy tín ở gần, như DataNumen Outlook Repair.
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