跳到主要內容

在Outlook中回复時如何復制所有附件的名稱?

在Outlook中回复RTF電子郵件(格式為Rich Format)時,它將復制所有附件的名稱並自動粘貼在郵件正文中(請參見下面的屏幕截圖)。 但是,在Outlook中回复HTML電子郵件時,回復電子郵件中缺少附件。 在這裡,本文將介紹一些在回復電子郵件時或直接在收到的電子郵件中復制所有附件名稱的方法。


將HTML更改為RTF答复時,複製所有附件的名稱

如果我們在回復之前將HTML電子郵件轉換為RTF,則在Outlook中單擊“主頁”>“回复”後,所有附件的名稱都將被複製到回复郵件中。

1。 雙擊以打開您需要復製附件名稱的電子郵件,然後單擊 您的留言 > 動態 > 編輯訊息 在消息窗口中。 看截圖:

2。 繼續點擊 格式化文字 > 富文本,然後保存並關閉電子郵件。

3。 現在返回主視圖。 繼續選擇電子郵件,然後單擊 首頁 > 回复.

4。 現在,所有附件的名稱都將從原始電子郵件中復制並粘貼到回复郵件中,如下圖所示。 請撰寫回复郵件並發送。

用VBA答复時復制所有附件的名稱

此方法將引入VBA宏,以在回復電子郵件時復制所有附件的名稱,然後將名稱粘貼到Outlook中回復電子郵件的郵件正文中。

1。 按 其他 + F11 同時按下鍵以打開“ Microsoft Visual Basic for Applications”窗口。

2。 在左側的Project Explorer中,展開Project 1,雙擊以打開 本次展望會議 窗口(請參見下面的屏幕截圖),然後將下面的代碼粘貼到窗口中。

VBA:在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。 點擊 工具 > 參考.

4。 在Outlook 1的開頭參考-項目2016窗口中,請檢查 Microsoft Word 16.0對像庫 可用參考框中的參考,然後單擊 OK 按鈕。 看截圖:

備註:請選擇 Microsoft Word 15.0對像庫 如果您使用的是Outlook 2013,請參考;或者 Microsoft Word 14.0對像庫 Outlook 2010參考。

5。 保存VBA並關閉“ Microsoft Visual Basic應用程序”窗口。

6。 現在,您返回到Outlook的主界面。 選擇您要回复的電子郵件,然後單擊 首頁 > 回复 or 全部回复.
備註: 如果附件名稱未復制並粘貼到回復電子郵件中,請重新啟動Outlook並再次回复。

現在,所有附件的名稱都將從所選電子郵件中復制並粘貼到回復電子郵件中。 看截圖:


使用出色的工具回复時復制所有附件名稱

如果你有 Kutools for Outlook 安裝後,可以應用它 複製名稱 功能可以快速復制收到的電子郵件中的所有附件名稱,然後輕鬆地將其粘貼到Outlook中的回复郵件中。

Kutools for Outlook:終極 Outlook 工具包,包含 100 多個方便的工具。 免費試用 60 天,無任何限制,不用擔心!   閱讀更多...   立即開始免費試用!

1。 選擇您要回复的電子郵件,然後單擊 庫工具 > 附件工具 > 複製名稱.

然後會出現一個對話框,告訴您附件名稱已復製到剪貼板。 請點擊 OK 關閉它。

2。 繼續點擊 首頁 > 回复 回复所選電子郵件。

3。 在回复郵件窗口中,將光標置於郵件正文中,然後按 按Ctrl + V 鍵以輕鬆粘貼附件名稱。

輕鬆回复所有保留在Outlook中的帶有原始附件的電子郵件

通常,在Outlook中回復電子郵件時,原始附件會被刪除。 但是,夢幻般 帶附件回复 Kutools for Outlook的功能,您可以在Outlook中回復電子郵件時輕鬆保留所有電子郵件附件。


帶附件回复


相關文章:


最佳辦公生產力工具

Kutools for Outlook - 超過 100 種強大的功能可增強您的 Outlook

📧 電子郵件自動化: 外出(適用於 POP 和 IMAP)  /  安排發送電子郵件  /  發送電子郵件時按規則自動抄送/密件副本  /  自動轉送(進階規則)   /  自動添加問候語   /  自動將多收件者電子郵件拆分為單獨的訊息 ...

📨 電子郵件管理: 輕鬆回憶電子郵件  /  按主題和其他人阻止詐騙電子郵件  /  刪除重複的電子郵件  /  進階搜索  /  合併資料夾 ...

📁 附件專業版批量保存  /  批量分離  /  批量壓縮  /  自動保存   /  自動分離  /  自動壓縮 ...

🌟 介面魔法: 😊更多又漂亮又酷的表情符號   /  使用選項卡式視圖提高 Outlook 工作效率  /  最小化 Outlook 而不是關閉 ...

👍 一鍵奇蹟: 使用傳入附件回覆全部  /   反網路釣魚電子郵件  /  🕘顯示寄件者的時區 ...

👩🏼‍🤝‍👩🏻 通訊錄和行事曆: 從選定的電子郵件中大量新增聯絡人  /  將聯絡人群組拆分為各組  /  刪除生日提醒 ...

超過 100特點 等待您的探索! 按此處了解更多。

閱讀更多       免費下載      購買
 

 

Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations