Outlook 에서 회신 시 모든 첨부 파일 이름을 복사하려면 어떻게 해야 하나요？

Outlook 에서 홈 > 회신을 클릭하기 전에 HTML 이메일을 RTF 로 변환해 두면 회신 메시지에 모든 첨부 파일 이름이 자동으로 복사됩니다。

1。 첨부 파일 이름을 복사할 이메일을 두 번 클릭하여 열고， 메시지 창에서메시지>작업>메시지 편집을 클릭하세요。 스크린샷 참조：

2。 계속해서글꼴 서식>서식 있는 텍스트(RTF)를 클릭한 후 이메일을 저장하고 닫기하세요。

3。 이제 기본 화면으로 돌아갑니다。 해당 이메일을 선택한 상태에서홈>회신을 클릭하세요。

4。 이제 원본 이메일의 모든 첨부 파일 이름이 아래 스크린샷과 같이 회신 메시지에 복사되었습니다。 회신 메시지를 작성하여 보내세요。

Outlook 에서 원본 첨부 파일을 모두 유지한 채로 쉽게 여러 선택한 이메일에 회신

일반적으로 Outlook 에서 이메일을 회신하면 원본 첨부 파일이 제거됩니다. 하지만 Kutools for Outlook 의 멋진첨부 파일 포함 회신기능을 사용하면 Outlook 에서 이메일을 회신할 때 모든 첨부 파일을 손쉽게 유지할 수 있습니다。

설치된Kutools for Outlook이 있다면， 그 안의이름 복사기능을 활용하여 수신한 이메일의 모든 【附件】 이름을 빠르게 복사한 후 Outlook 에서 회신 메시지에 쉽게 붙여넣을 수 있습니다。

1。 회신할 이메일을 선택하고Kutools 플러스>첨부 파일 도구>이름 복사을 클릭하세요。

그러면 대화 상자가 나타나서 【附件】 이름이 클립보드에 복사되었음을 알려줍니다。확인을 클릭하여 닫으세요。

2。 계속해서홈>회신을 클릭하여 선택한 이메일에 회신하세요。

3。 회신 메시지 창에서 본문에 커서를 두고Ctrl+V키를 눌러 【附件】 이름을 쉽게 붙여넣으세요。

이 방법은 Outlook 에서 이메일을 회신할 때 모든 첨부 파일 이름을 복사하여 회신 이메일의 본문에 붙여넣는 VBA 매크로를 소개합니다。

1.Alt+F11키를 동시에 눌러 Microsoft Visual Basic for Applications 창을 엽니다。

2. 왼쪽의 프로젝트 탐색기에서 프로젝트 1 을 확장하고，ThisOutlookSession창을 두 번 클릭하여 엽니다(아래 스크린샷 참조)。 그런 다음 아래 코드를 해당 창에 붙여넣으세요。

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 용 2016 프로젝트의 참조 – 프로젝트 1 창에서 사용 가능한 참조 목록에서Microsoft Word 16.0 개체 라이브러리항목을 선택하고확인버튼을 클릭하세요。 스크린샷 참조：

참고: Outlook 2013 을 사용 중이라면Microsoft Word 15.0 개체 라이브러리참조를 선택하거나, Outlook 2010 을 사용 중이라면Microsoft Word 14.0 개체 라이브러리참조를 선택하세요。

5。 VBA 코드를 저장한 후 Microsoft Visual Basic for Applications 창을 닫으세요。

6. 이제 Outlook 의 기본 인터페이스로 돌아갑니다。 회신할 이메일을 선택하고홈>회신또는전체 회신을 클릭하세요。
참고：회신 이메일에 【附件】 이름이 복사되어 붙여넣어지지 않으면 Outlook 을 다시 시작한 후 다시 회신해 보세요。

이제 선택한 이메일의 모든 첨부 파일 이름이 회신 이메일에 복사되어 붙여넣어졌습니다。 스크린샷 참조：