Outlook에서 보낸 편지함 폴더에서 정상적으로 회신하는 방법은 무엇입니까?

일반적으로 보낸 사람에게 다른 추가 메시지를 보내기 위해 보낸 편지함 폴더에서 회신 기능을 클릭하면 다음 스크린 샷과 같이받는 사람 필드에 자신의 이메일 주소가 표시됩니다. 매번 주소를 변경하는 것은 성 가실 수 있습니다. Outlook에서 귀하가 아닌 원래받는 사람의 주소를 사용하도록하려면 어떻게해야합니까?

문서 회신 이메일을 보냈습니다 1

모두 회신 기능을 사용하여 Outlook의 보낸 편지함 폴더에서 정상적으로 회신

VBA 코드를 사용하여 Outlook의 보낸 편지함 폴더에서 정상적으로 회신

모두 회신 기능을 사용하여 Outlook의 보낸 편지함 폴더에서 정상적으로 회신

Outlook에서 모든 응답 기능이이 문제를 해결하는 데 도움이 될 수 있습니다. 다음과 같이하십시오.

원래받는 사람의 주소를 유지하기 위해 다시 보내기 위해 보낸 이메일에 회신해야하는 경우 모든 응답 버튼을 클릭하고 원래받는 사람의 주소는 에 다음 스크린 샷과 같은 필드 :

문서 회신 이메일을 보냈습니다 2

VBA 코드를 사용하여 Outlook의 보낸 편지함 폴더에서 정상적으로 회신

언젠가는 잊어 버릴 수 있습니다 모든 응답 보낸 메시지에 회신 할 때 아래 VBA 코드를 사용하면 회신 기능을 사용하여 보낸 편지함 폴더에서 정상적으로 회신 할 수 있습니다. 다음 단계를 수행하십시오.

1. 누르고 ALT + F11 키를 눌러 응용 프로그램 용 Microsoft Visual Basic 창.

2. 에서 응용 프로그램 용 Microsoft Visual Basic 창, 더블 클릭 ThisOutlook세션 인사말 프로젝트 1 (VbaProject.OTM) 창을 열어 모드를 연 다음 다음 코드를 복사하여 빈 모듈에 붙여 넣습니다.

VBA 코드 : Outlook의 보낸 편지함 폴더에서 일반적으로 회신 :

Option Explicit
Private WithEvents GExplorer As Explorer
Private WithEvents GMailItem As MailItem
Private Sub Application_Startup()
    Set GExplorer = Application.ActiveExplorer
End Sub
Private Sub GExplorer_SelectionChange()
   On Error Resume Next
   Set GMailItem = GExplorer.Selection.Item(1)
End Sub
Private Sub GMailItem_Reply(ByVal Response As Object, Cancel As Boolean)
Dim xResponse As MailItem
Dim xRecipients As Outlook.Recipients
Dim xRecipient As Outlook.Recipient
Dim i As Integer
Dim xTo As String, xCC As String, xBCC As String, xName As String
On Error Resume Next
If Application.ActiveExplorer.CurrentFolder <> Session.GetDefaultFolder(olFolderSentMail) Then
    Exit Sub
End If
Cancel = True
Set xResponse = GMailItem.Reply
Set xRecipients = GMailItem.Recipients
For i = xRecipients.Count To 1 Step -1
    Set xRecipient = xRecipients.Item(i)
    xName = xRecipient.Name
    If Left(xName, 1) = "'" Then
        xName = Mid(xName, 2, Len(xRecipient.Name) - 2)
    End If
    Select Case xRecipient.Type
        Case olTo
            xTo = xName & ";" & xTo
        Case olCC
            xCC = xName & ";" & xCC
        Case olBCC
            xBCC = xName & ";" & xBCC
    End Select
Next
With xResponse
    .To = xTo
    .CC = xCC
    .BCC = xBCC
End With
xResponse.Recipients.ResolveAll
xResponse.Display
End Sub

문서 회신 이메일을 보냈습니다 3