Outlook 에서 원본 첨부 파일과 함께 모두 회신하는 방법은？

Outlook 에서 '모두 회신(Reply All)‘을 누르고 원본 첨부 파일을 잃어버린 적이 있나요？ 정말 짜증나는 일이죠！ 모두 회신할 때 첨부 파일을 유지하는 방법이 궁금하신가요？ 네， 가능합니다！ 회신 시 원본 첨부 파일을 포함하는 방법을 알아보고， 이메일 관리를 원활하고 효율적으로 만들어 보세요。 계속 지켜봐 주세요！

VBA 코드로 원본 첨부 파일과 함께 모두 회신

Kutools for Outlook 으로 원본 첨부 파일과 함께 모두 회신

---

VBA 코드로 원본 첨부 파일과 함께 모두 회신

Outlook 에는 이 작업을 직접 처리하는 기능이 없지만， 다음 VBA 코드를 적용하면 이를 구현할 수 있습니다。 아래 단계에 따라 진행하세요：

1. Outlook 을 실행한 후ALT + F11키를 누른 채로Microsoft Visual Basic for Applications창을 엽니다。

2.Microsoft Visual Basic for Applications창에서ThisOutlookSession을(를)Project1(VbaProject.OTM)패널에서 두 번 클릭하여 모듈을 열고， 다음 코드를 빈 모듈에 복사하여 붙여넣습니다。

VBA 코드： 원본 첨부 파일과 함께 모두 회신하기：

Sub ReplyAllWithAttachments()
'Updateby Extendoffice
Dim xItem As Object
On Error Resume Next
Select Case TypeName(Outlook.Application.ActiveWindow)
Case "Explorer"
For Each xItem In Outlook.Application.ActiveExplorer.Selection
GetReplyItem xItem
Next
Case "Inspector"
Set xItem = Outlook.Application.ActiveInspector.CurrentItem
GetReplyItem xItem
End Select
Set xItem = Nothing
End Sub
Sub GetReplyItem(Item As Object)
Dim xReplyMailItem As Outlook.MailItem
On Error Resume Next
If Not Item Is Nothing Then
Set xReplyMailItem = Item.ReplyAll
GetAttachments Item, xReplyMailItem
xReplyMailItem.Display
'xReplyMailItem.Send
Item.UnRead = False
End If
Set xReplyMailItem = Nothing
End Sub
Sub GetAttachments(xSourceItem, xTargetItem)
Dim xFSO As Scripting.FileSystemObject
Dim xTmpPath As String
Dim xAttachment As Attachment
Dim xTmpFile As String
On Error Resume Next
Set xFSO = New Scripting.FileSystemObject
xTmpPath = CreateObject("shell.Application").NameSpace(5).self.Path & "\TmpAttachments\"
If xFSO.FolderExists(xTmpPath) = False Then
MkDir xTmpPath
End If
For Each xAttachment In xSourceItem.Attachments
If IsEmbeddedAttachment(xAttachment) = False Then
xTmpFile = xTmpPath & xAttachment.FileName
xAttachment.SaveAsFile xTmpFile
xTargetItem.Attachments.Add xTmpFile, , , xAttachment.DisplayName
xFSO.DeleteFile xTmpFile
End If
Next
If xFSO.FolderExists(xTmpPath) Then
Kill xTmpPath
End If
Set xFSO = Nothing
End Sub
Function IsEmbeddedAttachment(Attach As Attachment)
Dim xAttParent As Object
Dim xCID As String, xID As String
Dim xHTML As String
On Error Resume Next
Set xAttParent = Attach.Parent
xCID = ""
xCID = Attach.PropertyAccessor.GetProperty("http://schemas.microsoft.com/mapi/proptag/0x3712001F")
If xCID <> "" Then
xHTML = xAttParent.HTMLBody
xID = "cid:" & xCID
If InStr(xHTML, xID) > 0 Then
IsEmbeddedAttachment = True
Else
IsEmbeddedAttachment = False
End If
End If
End Function

3。 그런 다음도구(Tools)>참조(References)를 클릭합니다。Microsoft Visual Basic for Applications창에서 나타난참조-Project1(References-Project1)대화 상자에서Microsoft Scripting Runtime옵션을사용 가능한 참조(Available References)목록 상자에서 선택합니다。 스크린샷 참조：

4。 그런 다음 코드 창을 닫고， 해당 매크로 버튼을빠른 실행 도구 모음(Quick Access Toolbar)에 추가할 수 있습니다。

5。 첨부 파일과 함께 모두 회신하려는 이메일을메시지(Message)창에서 열고，기타 명령(More Commands)을(를)빠른 실행 도구 모음 사용자 지정(Customize Quick Access Toolbar)드롭다운 메뉴에서 선택합니다。 스크린샷 참조：

6.Outlook 옵션(Outlook Options)대화 상자에서 다음 작업을 수행합니다：

(1.)매크로(Macros)를명령 선택(Choose commands from)드롭다운 목록에서 선택합니다；

(2.)방금 삽입한 매크로 이름을 클릭합니다；

(3.)그런 다음추가(Add)버튼을 클릭하여 매크로를빠른 실행 도구 모음 사용자 지정(Customize Quick Access Toolbar)에 추가합니다。

7。 그런 다음확인(OK)을 클릭하여 대화 상자를 닫습니다。 이제 매크로 버튼이빠른 실행 도구 모음(Quick Access Toolbar)에 삽입되었습니다。 스크린샷 참조：

8。 이제 매크로 버튼을 클릭하면 원본 첨부 파일이 포함된 회신 메시지 창이 열립니다。 회신 메시지를 작성한 후보내기(Send)버튼을 클릭합니다。 스크린샷 참조：

---

Kutools for Outlook 으로 원본 첨부 파일과 함께 모두 회신

만약 이미Kutools for Outlook을(를) 보유하고 계시다면， 내장된첨부 파일 포함 모두 회신(Reply All with Attachment)기능을 사용해 단 한 번의 클릭으로 모두 회신(첨부 파일 포함 수 있습니다。)

Kutools for Outlook 설치 후Kutools for Outlook， 다음 단계를 따르세요：

1。 모두 회신(첨부 파일 포함하려는 메시지를 선택한 후)Kutools> 원본 첨부 파일과 함께 모두 회신(Reply All with Original Attachment)을 클릭합니다。 스크린샷 참조：

2。 그러면 원본 첨부 파일이 포함된 회신 메시지 창이 열립니다。 메시지를 작성한 후 보내기만 하면 됩니다。 스크린샷 참조：

Kutools for Outlook 의무료 버전(Free Version)을 지금 다운로드하세요！