Lưu ý: Các ngôn ngữ khác của trang web đều do Google dịch. Quay lại tiếng Anh
Đăng nhập  \/ 
x
or
x
Đăng ký  \/ 
x

or

Làm cách nào để sao chép tất cả tên của tệp đính kèm khi trả lời trong Outlook?

Khi trả lời email RTF (được định dạng là Rich Format) trong Outlook, nó sẽ sao chép tất cả tên của tệp đính kèm và tự động dán vào nội dung thư (xem ảnh chụp màn hình bên dưới). Tuy nhiên, khi trả lời email HTML trong Outlook, phần đính kèm bị thiếu trong email trả lời. Ở đây, bài viết này sẽ giới thiệu một số phương pháp để sao chép tên của tất cả các tệp đính kèm khi trả lời email hoặc trực tiếp trong các email đã nhận.


Sao chép tất cả tên của tệp đính kèm khi trả lời bằng cách thay đổi HTML thành RTF

Nếu chúng tôi đã chuyển đổi email HTML sang RTF trước khi trả lời, tất cả tên của tệp đính kèm sẽ được sao chép vào thư trả lời sau khi nhấp vào Trang chủ> Trả lời trong Outlook.

1. Bấm đúp để mở email có tên tệp đính kèm mà bạn cần sao chép, sau đó bấm Câu Hỏi/Nội Dung “*” > Hoạt động > Chỉnh sửa tin nhắn trong cửa sổ tin nhắn. Xem ảnh chụp màn hình:

2. Tiếp tục nhấp vào Định dạng văn bản > Văn bản đa dạng, sau đó lưu và đóng email.

3. Bây giờ bạn trở lại giao diện chính. Tiếp tục chọn email và nhấp vào Trang chủ > đáp lại.

4. Bây giờ tất cả tên của tệp đính kèm được sao chép từ email gốc và dán vào thư trả lời như hình minh họa bên dưới. Vui lòng soạn tin nhắn trả lời và gửi đi.

Sao chép tất cả tên của tệp đính kèm khi trả lời bằng VBA

Phương pháp này sẽ giới thiệu macro VBA để sao chép tên của tất cả các tệp đính kèm khi trả lời email, sau đó dán tên vào nội dung thư của email trả lời trong Outlook.

1. nhấn Khác + F11 đồng thời để mở cửa sổ Microsoft Visual Basic for Applications.

2. Trong Project Explorer bên trái, hãy mở rộng Project 1, nhấp đúp để mở ThisOutlookSession cửa sổ (xem ảnh chụp màn hình bên dưới), và sau đó dán mã bên dưới vào cửa sổ.

VBA: Sao chép tên của tất cả tệp đính kèm khi trả lời email trong Outlook

Option Explicit
Private WithEvents oExpl As Explorer
Private WithEvents oItem As MailItem
Private bAttachEvent As Boolean


Private Sub Application_Startup()
Set oExpl = Application.ActiveExplorer
bAttachEvent = False   
End Sub

Private Sub oExpl_SelectionChange()
On Error Resume Next
Set oItem = oExpl.Selection.Item(1)
End Sub

' Reply
Private Sub oItem_Reply(ByVal Response As Object, Cancel As Boolean)

Dim oAtt As Attachment
Dim sAtts As String
Dim olInspector As Outlook.Inspector
Dim olDocument As Word.Document
Dim olSelection As Word.Selection

If bAttachEvent Or oItem.Attachments.Count = 0 Then
Exit Sub
End If

Cancel = True
bAttachEvent = True
sAtts = ""

For Each oAtt In oItem.Attachments
sAtts = sAtts & "<<" & oAtt.FileName & ">> "
Next oAtt

Dim oResponse As MailItem
Set oResponse = oItem.Reply
oResponse.Display

Set olInspector = Application.ActiveInspector()
Set olDocument = olInspector.WordEditor
Set olSelection = olDocument.Application.Selection

olSelection.InsertBefore sAtts

bAttachEvent = False
Set oItem = Nothing
End Sub

' Reply All
Private Sub oItem_ReplyAll(ByVal Response As Object, Cancel As Boolean)

Dim oAtt As Attachment
Dim sAtts As String
Dim olInspector As Outlook.Inspector
Dim olDocument As Word.Document
Dim olSelection As Word.Selection

If bAttachEvent Or oItem.Attachments.Count = 0 Then
Exit Sub
End If

Cancel = True
bAttachEvent = True

sAtts = ""

For Each oAtt In oItem.Attachments
sAtts = sAtts & "<<" & oAtt.FileName & ">> "
Next oAtt

Dim oResponse As MailItem
Set oResponse = oItem.ReplyAll
oResponse.Display

Set olInspector = Application.ActiveInspector()
Set olDocument = olInspector.WordEditor
Set olSelection = olDocument.Application.Selection

olSelection.InsertBefore sAtts  
bAttachEvent = False
Set oItem = Nothing

End Sub

3. Nhấp chuột CÔNG CỤ > dự án.

4. Trong cửa sổ Tài liệu tham khảo đang mở - Dự án 1 cho Outlook 2016, vui lòng kiểm tra Thư viện đối tượng Microsoft Word 16.0 trong hộp Tham chiếu Có sẵn và nhấp vào OK cái nút. Xem ảnh chụp màn hình:

chú thích: Vui lòng chọn Thư viện đối tượng Microsoft Word 15.0 tham khảo nếu bạn đang làm việc với Outlook 2013 hoặc Thư viện đối tượng Microsoft Word 14.0 tham chiếu với Outlook 2010.

5. Lưu VBA và đóng cửa sổ Microsoft Visual Basic for Applications.

6. Bây giờ bạn quay lại giao diện chính của Outlook. Chọn email bạn sẽ trả lời và nhấp vào Trang chủ > đáp lại or Trả lời tất cả.
chú thích: Nếu tên tệp đính kèm không được sao chép và dán vào email trả lời, vui lòng khởi động lại Outlook của bạn và trả lời lại.

Và bây giờ tất cả tên của tệp đính kèm được sao chép từ email đã chọn và dán vào email trả lời. Xem ảnh chụp màn hình:


Sao chép tất cả các tên tệp đính kèm khi trả lời bằng công cụ tuyệt vời

Nếu bạn có Kutools cho Outlook đã cài đặt, bạn có thể áp dụng nó Sao chép tên tính năng sao chép nhanh tất cả các tên tệp đính kèm từ email đã nhận, sau đó dễ dàng dán vào thư trả lời của nó trong Outlook.

Kutools cho Outlook: Thêm hơn 100 công cụ tiện dụng cho Outlook, dùng thử miễn phí không giới hạn trong 60 ngày. Đọc Thêm      Dùng thử miễn phí ngay bây giờ

1. Chọn email bạn sẽ trả lời và nhấp vào Kutools > Công cụ đính kèm > Sao chép tên.

Sau đó, một hộp thoại xuất hiện và cho bạn biết tên tệp đính kèm đã được sao chép vào khay nhớ tạm. Nhấp chuột OK để đóng nó.

2. Tiếp tục nhấp vào Trang chủ > đáp lại để trả lời email đã chọn.

3. Trong cửa sổ tin nhắn trả lời, hãy đặt con trỏ vào nội dung tin nhắn và nhấn Ctrl + V phím để dán tên tệp đính kèm dễ dàng.

Dễ dàng trả lời các email đã chọn với tất cả các tệp đính kèm gốc được lưu trong Outlook

Nói chung, các tệp đính kèm gốc sẽ bị xóa khi trả lời email trong Outlook. Nhưng, với sự tuyệt vời Trả lời bằng tệp đính kèm tính năng của Kutools cho Outlook, bạn có thể dễ dàng giữ tất cả các tệp đính kèm của email khi trả lời nó trong Outlook. Nhấp để dùng thử miễn phí 60 ngày không giới hạn!
trả lời bằng tệp đính kèm


Các bài liên quan:


Kutools cho Outlook - Cung cấp 100 Tính năng Nâng cao cho Outlook và Làm cho Công việc Dễ dàng hơn Nhiều!

  • Auto CC / BCC bởi các quy tắc khi gửi email; Tự động chuyển tiếp Nhiều Email theo tùy chỉnh; Tự động trả lời không có máy chủ trao đổi và các tính năng tự động khác ...
  • Cảnh báo BCC - hiển thị tin nhắn khi bạn cố gắng trả lời tất cả nếu địa chỉ thư của bạn có trong danh sách BCC; Nhắc nhở khi thiếu tệp đính kèmvà các tính năng nhắc nhở khác ...
  • Trả lời (Tất cả) Với Tất cả Tệp đính kèm trong cuộc trò chuyện qua thư; Trả lời nhiều email trong vài giây; Tự động thêm lời chào khi trả lời; Thêm Ngày vào chủ đề ...
  • Công cụ Tệp đính kèm: Quản lý Tất cả Tệp đính kèm trong Tất cả Thư, Tự động tách, Nén tất cả, Đổi tên tất cả, Lưu tất cả ... Báo cáo nhanh, Đếm thư đã chọn...
  • Email rác mạnh mẽ Theo phong tục; Xóa thư và liên hệ trùng lặp... Cho phép bạn làm việc thông minh hơn, nhanh hơn và tốt hơn trong Outlook.
shot kutools triển vọng tab kutools 1180x121
shot kutools triển vọng kutools plus tab 1180x121
 

Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.