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

1. 두 번 클릭하여 첨부 파일 이름을 복사해야하는 이메일을 연 다음 보내실 내용 > 행위 > 메시지 편집 메시지 창에서. 스크린 샷보기 :

2. 클릭하십시오 텍스트 서식 > 서식있는 텍스트을 클릭 한 다음 이메일을 저장하고 닫습니다.

3. 이제 기본보기로 돌아갑니다. 이메일을 계속 선택하고 홈 > 댓글.

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

이 방법은 전자 메일에 회신 할 때 모든 첨부 파일의 이름을 복사 한 다음 Outlook에서 회신 전자 메일의 메시지 본문에 이름을 붙여 넣는 VBA 매크로를 도입합니다.

1. 프레스 다른 + F11 키를 동시에 눌러 Microsoft Visual Basic for Applications 창을 엽니 다.

2. 왼쪽 프로젝트 탐색기에서 프로젝트 1을 확장하고 두 번 클릭하여 ThisOutlook세션 창 (아래 스크린 샷 참조)을 클릭 한 다음 아래 코드를 창에 붙여 넣습니다.

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 for Applications 창을 닫습니다.

6. 이제 Outlook의 기본 인터페이스로 돌아갑니다. 회신 할 이메일을 선택하고 홈 > 댓글 or 모든 응답.
주의 사항: 첨부 파일 이름을 복사하여 회신 이메일에 붙여 넣지 않은 경우 Outlook을 다시 시작하고 다시 회신하십시오.

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

당신이 있으면 Outlook 용 Kutools 설치되어 있으면 적용 할 수 있습니다. 이름 복사 받은 전자 메일에서 모든 첨부 파일 이름을 빠르게 복사 한 다음 Outlook에서 쉽게 회신 메시지에 붙여 넣는 기능입니다.

1. 회신 할 이메일을 선택하고 쿠툴 > 부착 도구 > 이름 복사.

그런 다음 대화 상자가 나타나고 첨부 파일 이름이 클립 보드에 복사되었음을 알려줍니다. 딸깍 하는 소리 OK 그것을 닫습니다.

2. 클릭하십시오 홈 > 댓글 선택한 이메일에 답장합니다.

3. 회신 메시지 창에서 메시지 본문에 커서를 놓고 Ctrl 키 + V 첨부 파일 이름을 쉽게 붙여 넣을 수 있습니다.

Outlook에 보관 된 모든 원본 첨부 파일로 선택한 이메일에 쉽게 회신

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