Как нормально ответить в папке отправленных сообщений из Outlook?

Обычно, когда вы нажимаете функцию «Ответить» в папке «Отправленные» для отправки еще одного дополнительного сообщения отправленным вами людям, ваш собственный адрес электронной почты будет отображаться в поле «Кому», как показано на следующем снимке экрана. Это может раздражать вас, меняя адрес каждый раз. Как можно было заставить Outlook использовать исходный адрес получателя, а не ваш?

документ ответ отправлено писем 1

Ответьте нормально в папке «Отправленные» из Outlook с помощью функции «Ответить всем»

Ответьте нормально в папке "Отправленные" из Outlook с кодом VBA

Ответьте нормально в папке «Отправленные» из Outlook с помощью функции «Ответить всем»

В Outlook Ответить всем функция может помочь вам решить эту проблему, пожалуйста, сделайте следующее:

Если вам нужно ответить на отправленное электронное письмо для повторной отправки, чтобы сохранить адрес исходного получателя, нажмите Ответить всем кнопку, а адрес исходного получателя находится в к поле, как показано на следующем скриншоте:

документ ответ отправлено писем 2

Ответьте нормально в папке "Отправленные" из Outlook с кодом VBA

Когда-нибудь вы можете забыть Ответить всем при ответе на отправленное сообщение, поэтому приведенный ниже код VBA может помочь вам нормально ответить в папке «Отправленные» с помощью функции «Ответ». Выполните следующие действия:

1. Удерживайте ALT + F11 , чтобы открыть Microsoft Visual Basic для приложений окно.

2. В Microsoft Visual Basic для приложений окно, дважды щелкните Эта сессия Outlook из Проект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

3. Затем сохраните код и перезапустите Outlook, чтобы применить эффект кода, теперь при нажатии Ответить повторно отправить электронное письмо в Отправленные вещи В папке Кому в поле Кому отображается адрес исходного получателя.