Nhiều người dùng hy vọng định cấu hình Outlook của họ để giữ các tệp đính kèm email ban đầu khi trả lời email. Bài viết này sẽ đưa ra 5 cách giải quyết cũng như một cách thông minh, đó là sử dụng VBA để tự động nhận ra nó.
Tôi đã nghe rất nhiều người dùng phàn nàn rằng Outlook không có tính năng riêng để giữ các tệp đính kèm ban đầu khi trả lời email. Do đó, ở đây chúng tôi sẽ chia sẻ cho bạn 6 phương pháp, một trong số đó khá hữu ích là sử dụng VBA để làm cho Outlook tự động đính kèm các tệp đính kèm gốc vào email trả lời. Bây giờ hãy đọc để có được chúng một cách chi tiết.
1. Trả lời kèm theo Email gốc
Mặc dù Outlook không cung cấp tính năng giữ tệp đính kèm email gốc khi trả lời email, nhưng nó cho phép người dùng giữ email gốc được đính kèm. Do đó, nó là một cách giải quyết tùy chọn cho bạn. Bạn có thể đi tới phần “Tệp” > “Tùy chọn” > “Thư” > “Trả lời và chuyển tiếp” để thay đổi cài đặt trả lời. Để biết thêm chi tiết, bạn nên tham khảo bài viết trước của tôi – “5 bước để trả lời với tệp đính kèm gốc trong Outlook”. Nhưng, nếu bạn vẫn hy vọng chỉ giữ những chấp trước ban đầu, hãy chuyển sang tìm hiểu những phương tiện khác.
2. Kéo và thả tệp đính kèm theo cách thủ công
- Trước tiên, hãy nhấp đúp vào email nguồn đó để mở nó trong một cửa sổ riêng.
- Sau đó nhấp vào nút "Trả lời", nút này sẽ hiển thị email trả lời.
- Tiếp theo, bạn nên thu nhỏ cả hai cửa sổ Tin nhắn cho đến khi bạn có thể nhìn thấy chúng trên cùng một màn hình.
- Sau đó, chọn tất cả các tệp đính kèm trong email gốc.
- Cuối cùng, kéo và thả chúng vào dòng “Đính kèm” trong email trả lời.
3. Sao chép và dán tệp đính kèm theo cách thủ công
- Đầu tiên, sau khi mở email nguồn, hãy chọn tất cả các tệp đính kèm.
- Sau đó nhấp vào nút “Sao chép” trong tab “Tệp đính kèm”.
- Sau đó, nhấp vào nút “Trả lời” trong tab “Tin nhắn” để mở thư trả lời.
- Cuối cùng, trong email trả lời, hãy nhấp vào dòng “Đã đính kèm” và nhấn nút “Ctrl + V” để dán các tệp đính kèm đã sao chép trước đó.
4. Chuyển tiếp Email & Điền Người nhận
- Trước hết, hãy chọn một email như vậy và sau đó nhấp vào nút “Chuyển tiếp” trên ruy-băng.
- Trong cửa sổ Tin nhắn mới bật lên, các tệp đính kèm ban đầu được giữ nguyên. Bây giờ bạn cần điền vào trường “Tới” cho người gửi email ban đầu.
- Tùy chọn, bạn có thể thay đổi chủ đề theo nhu cầu của mình.
5. Gửi lại email này và thay đổi người nhận
- Để bắt đầu, hãy mở email nguồn.
- Sau đó nhấp vào nút "Hành động" trong nhóm "Di chuyển".
- Tiếp theo chọn “Gửi lại tin nhắn này” từ danh sách thả xuống.
- Có lẽ bạn sẽ nhận được thông báo đề cập rằng bạn không phải là người gửi ban đầu. Chỉ cần bỏ qua nó và nhấn “Yes”.
- Trong email mới tiếp theo, bạn nên sửa đổi trường “Tới” thành người gửi email ban đầu.
- Ngoài ra, hãy nhớ thay đổi gửi bằng tài khoản email thành tài khoản của riêng bạn.
6. Tự động thêm tệp đính kèm gốc qua VBA
Thành thật mà nói, tất cả các cách tiếp cận được đề cập ở trên đều là giải pháp thay thế. Nếu bạn hy vọng rằng Outlook có thể tự động giữ các tệp đính kèm ban đầu khi trả lời, bạn có thể sử dụng cách này.
- Trong cửa sổ Outlook chính, nhấn phím “Alt + F11”.
- Sau đó, trong cửa sổ “Microsoft Visual Basic for Applications”, hãy sao chép mã VBA bên dưới vào dự án “ThisOutlookSession”.
Private WithEvents objExplorer As Outlook.Explorer
Private WithEvents objInspectors As Outlook.Inspectors
Private WithEvents objMail As Outlook.MailItem
Private Sub Application_Startup()
Set objExplorer = Outlook.Application.ActiveExplorer
Set objInspectors = Outlook.Application.Inspectors
End Sub
Private Sub objExplorer_Activate()
On Error Resume Next
If TypeName(objExplorer.Selection.Item(1)) = "MailItem" Then
Set objMail = objExplorer.Selection.Item(1)
End If
End Sub
Private Sub objInspectors_NewInspector(ByVal Inspector As Inspector)
If TypeName(Inspector.CurrentItem) = "MailItem" Then
Set objMail = Inspector.CurrentItem
End If
End Sub
'Occurs when clicking "Reply" button
Private Sub objMail_Reply(ByVal Response As Object, Cancel As Boolean)
Call KeepOriginalAttachments(objMail, Response)
End Sub
'Occurs when clicking "Reply All" button
Private Sub objMail_ReplyAll(ByVal Response As Object, Cancel As Boolean)
Call KeepOriginalAttachments(objMail, Response)
End Sub
Private Sub KeepOriginalAttachments(ByVal objOriginalMail As MailItem, objReply As Object)
Dim strEnviro As String
Dim strTempFolder As String
Dim strFilePath As String
Dim objAttachment As Outlook.Attachment
'Get the temp folder in Windows
strEnviro = CStr(Environ("USERPROFILE"))
strTempFolder = strEnviro & "\AppData\Local\Temp"
For Each objAttachment In objOriginalMail.Attachments
'Skip the embedded image attachments
If IsEmbeddedAttachment(objAttachment) = False Then
strFilePath = strTempFolder & "\" & objAttachment.filename
objAttachment.SaveAsFile strFilePath
'Attach the temporarily saved attachments to the Reply
objReply.Attachments.Add strFilePath
'Delete the temporarily saved attachments
Kill strFilePath
End If
Next
End Sub
'Function for checking if an attachment is embedded image attachment
Function IsEmbeddedAttachment(objCurrentAttachment As Outlook.Attachment) As Boolean
Dim objPropertyAccessor As Outlook.propertyAccessor
Dim strProperty As String
Set objPropertyAccessor = objCurrentAttachment.propertyAccessor
strProperty = objPropertyAccessor.GetProperty("http://schemas.microsoft.com/mapi/proptag/0x3712001E")
If InStr(1, strProperty, "@") > 0 Then
IsEmbeddedAttachment = True
Else
IsEmbeddedAttachment = False
End If
End Function
- Sau đó, hãy ký macro này và thay đổi cài đặt macro Outlook của bạn để cho phép các macro đã ký.
- Sau đó, hãy khởi động lại ứng dụng Outlook để kích hoạt dự án VBA này.
- Từ bây giờ, mỗi khi bạn nhấp vào nút “Trả lời”. Email trả lời sẽ hiển thị cùng lúc với các tệp đính kèm ban đầu.
Sử dụng một công cụ sửa chữa ưu việt
Outlook đã vượt qua các ứng dụng email khác do vô số tính năng của nó. Nhưng nó vẫn dễ bị tham nhũng. Do đó, bạn nên chú ý nhiều hơn đến sức khỏe của nó. Nói chung, khi gặp phải các sự cố nhỏ, bạn có thể chỉ cần quay lại tiện ích sửa lỗi tích hợp sẵn. Tuy nhiên, nếu bạn gặp phải những rắc rối nghiêm trọng, tốt hơn hết bạn nên sử dụng một công cụ thành thạo hơn nhiều, chẳng hạn như DataNumen Outlook Repair. Nó có thể sửa chữa Outlook tập tin ngay lập tức.
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 lỗi sql 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