Outlook에서 회신할 때 모든 첨부 파일 이름을 복사하는 방법은 무엇입니까?

HTML 이메일을 RTF로 변환한 후 회신하면, Outlook에서 홈 > 회신을 클릭한 후 모든 첨부 파일 이름이 회신 메시지에 복사됩니다.

1복사해야 할 첨부 파일 이름이 포함된 이메일을 더블 클릭하여 열고, 다음을 클릭하세요. 메시지 > 작업 > 메시지 편집 메시지 창에서. 스크린샷 보기:

2계속 진행하여 다음을 클릭하세요. 텍스트 서식 > 리치 텍스트그런 다음 저장하고 이메일을 닫습니다.

3. 이제 주 보기로 돌아왔습니다. 이메일을 계속 선택한 상태에서 홈 > 회신을 클릭하세요.

4이제 모든 첨부 파일 이름이 원본 이메일로부터 복사되어 아래 스크린샷과 같이 회신 메시지에 붙여넣어졌습니다. 회신 메시지를 작성하고 보내세요.

Outlook에서 모든 원본 첨부 파일을 유지하며 선택한 이메일에 회신하기

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

Kutools for Outlook이 설치되어 있는 경우, 받은 이메일에서 모든 첨부 파일 이름을 빠르게 복사하고, Outlook에서 쉽게 회신 메시지에 붙여넣을 수 있는 Copy Names 기능을 적용할 수 있습니다.

1회신할 이메일을 선택하고 다음을 클릭하세요. Kutools Plus > 첨부 파일 도구 > 이름 복사.

그러면 대화 상자가 나타나 첨부 파일 이름이 클립보드에 복사되었다고 알려줍니다. 확인을 클릭하여 닫으세요.

2. 계속 진행하여 홈 > 회신을 클릭하여 선택한 이메일에 회신하세요.

3회신 메시지 창에서 커서를 본문에 놓고 Ctrl + V 키를 눌러 첨부 파일 이름을 쉽게 붙여넣으세요.

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

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 개체 라이브러리 사용 가능한 참조 상자에서 참조를 선택하고 확인 버튼을 클릭하세요. 스크린샷 보기:

참고: 다음을 선택하세요. Microsoft Word 15.0 개체 라이브러리 Outlook 2013을 사용 중인 경우 참조를 선택하거나 Microsoft Word 14.0 개체 라이브러리 Outlook 2010과 함께 사용되는 참조입니다.

5. VBA를 저장하고 Microsoft Visual Basic for Applications 창을 닫습니다.

6이제 Outlook의 기본 인터페이스로 돌아왔습니다. 회신할 이메일을 선택하고 다음을 클릭하세요. 홈 > 회신 또는 전체 회신.
참고: 첨부 파일 이름이 회신 이메일에 복사 및 붙여넣기되지 않은 경우, Outlook을 다시 시작하고 다시 회신해 보세요.

이제 선택한 이메일로부터 모든 첨부 파일 이름이 복사되어 회신 이메일에 붙여넣어졌습니다. 스크린샷 보기: