Tip: Other languages are Google-Translated. You can visit the English version of this link.
Log in
x
or
x
x
Register
x

or

在Outlook裡答覆郵件並保留(原郵件的)附件

在Outlook裡轉發郵件時,Outlook會自動將原郵件中的附件添加到轉發郵件裡。但是,答覆郵件時,原郵件裡的附件卻不會添加到答覆郵件裡。一般情況下,複製附件後再粘貼到答覆郵件裡也是可行的。除此之外,我們還要介紹幾種更簡單便捷的方法。

Kutools for Outlook: 100+ New Advanced Tools for Outlook.
Office Tab: Enable Tabbed Editing and Browsing in Office, Just Like Chrome, Firefox, IE 8/9/10.
Classic Menu: Bring Old Menus and Toolbars Back to Office 2007, 2010, 2013, 2016 and 2019.

arrow blue right bubble 方法一:複製原郵件裡的附件,再粘貼到答覆郵件裡

想要實現答覆郵件並保留附件,最常見的方法就是在原郵件裡複製附後,直接粘貼到答覆郵件裡。

1. 在閱讀窗格裡預覽將答覆的郵件,或者是按兩下打開。

2. 在附件欄裡,全選所有的附件並複製。

快速鍵全選:選中任一附件後,在鍵盤上同時按Ctrl鍵和A鍵;
快速鍵複製:Ctrl + C。

3. 點擊開始 > 答覆按鈕答覆郵件, 然後在答覆郵件視窗裡點擊郵件 > 粘貼

如果你使用的是Outlook 2013, 請點擊預覽窗格左上角的彈出按鈕彈出答覆郵件視窗。

6. 編輯答覆郵件並發送。


arrow blue right bubble 方法二:運行VBA答覆郵件並保留原附件

下面VBA代碼可以幫你快速答覆郵件並保留原郵件裡的附件。

注意:在運行VBA巨集之前,你需要先在Outlook裡啟用宏。

1. 選擇將要答覆並保留附件的郵件。

2. 在鍵盤上同時點擊Alt和F11鍵打開Microsoft Visual Basic for Applications視窗。

3. 在工程資源管理器窗格中,展開Project1,按兩下打開ThisOutlookSession視窗。

4. 將下面的代碼粘貼到ThisOutlookSession視窗中。

VBA: 答覆郵件並保留附件

Sub RunReplyWithAttachments()
Dim oReply As Outlook.MailItem
Dim oItem As Object
Set oItem = GetCurrentItem()
If Not oItem Is Nothing Then
Set oReply = oItem.Reply
CopyAttachments oItem, oReply
oReply.Display
End If
Set oReply = Nothing
Set oItem = Nothing
End Sub
Sub RunReplyAllWithAttachments()
Dim oReply As Outlook.MailItem
Dim oItem As Object
Set oItem = GetCurrentItem()
If Not oItem Is Nothing Then
Set oReply = oItem.ReplyAll
CopyAttachments oItem, oReply
oReply.Display
End If
Set oReply = Nothing
Set oItem = Nothing
End Sub
Function GetCurrentItem() As Object
On Error Resume Next
Select Case TypeName(Application.ActiveWindow)
Case "Explorer"
Set GetCurrentItem = Application.ActiveExplorer.Selection.Item(1)
Case "Inspector"
Set GetCurrentItem = Application.ActiveInspector.CurrentItem
End Select
End Function
Sub CopyAttachments(oSourceItem, oTargetItem)
Set oFso = CreateObject("Scripting.FileSystemObject")
Set fldTemp = oFso.GetSpecialFolder(2) 'Temporary Folder
sPath = fldTemp.Path & "\"
For Each oAtt In oSourceItem.Attachments
sFile = sPath & oAtt.FileName
oAtt.SaveAsFile sFile
oTargetItem.Attachments.Add sFile, , , oAtt.DisplayName
oFso.DeleteFile sFile
Next
Set fldTemp = Nothing
Set oFso = Nothing
End Sub

5. 點擊F5鍵運行VBA。

這時答覆郵件視窗打開,原郵件中的所有附件都自動複製到附件欄裡。

6. 編輯答覆郵件並發送。

注意:如果原郵件正文裡包含圖片,運行上面的VBA後,這些圖片也會添加到答覆郵件的附件欄裡。


arrow blue right bubble 方法三:運行Kutools for Outlook答覆郵件並保留原附件

安裝Kutools for Outlook後,你可以運行其帶附件答覆功能一鍵答覆當前選中的郵件並保留其附件。

Kutools for Outlook - 讓你在 Outlook 裡的工作更簡單、更快捷!批量保存/壓縮附件、高級列印、自動答覆\轉發\攔截垃圾郵件、刪除重複項,等等……

1. 選擇你需要答覆並保留附件的郵件。

2.點擊Kutools > 帶附件答覆 > 帶附件答覆。見下圖:

3. 此時答覆郵件視窗彈出,原郵件中的所有附件都自動添加到當前答覆郵件裡的附件欄中。編輯郵件並發送。

點擊下載 Kutools for Outlook, 45天無限制免費試用!

 

Recommended Productivity Tools

shot kutools outlook kutools tab 1180x121
shot kutools outlook kutools plus tab 1180x121

Kutools for Outlook - More than 100 Advanced Functions for Outlook, Improve 70% Efficiency For you

  • Complicated and repeated operations can be done a one-time processing in seconds.
  • Forward multiple emails individually with one-click, and auto forward by rules.
  • Auto CC/BCC every sending email and easy for customizing rules, and auto reply without requiring exchange server.
  • Powerful junk emails filter, remove duplicate emails, reply with attachment, bunch of one-click operations, and so on...
  • 60-day unlimited free trial. 60-day money back guarantee. 2 years free upgrade and support. Buy once, use forever.
Say something here...
symbols left.
You are guest ( Sign Up? )
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.