Як нормально відповісти у папці надісланих елементів з Outlook?

Зазвичай, коли ви натискаєте функцію Відповісти у папці Надіслані, щоб надіслати ще одне додаткове повідомлення для людей, яких ви надіслали, ваша власна електронна адреса відображатиметься в полі Кому, як показано на наступному знімку екрана. Це може дратувати вас щоразу, змінюючи адресу. Як можна змусити Outlook використовувати оригінальну адресу одержувача, а не вашу?

відповідь на документ надіслано електронною поштою 1

Відповідайте зазвичай у папці Надіслані з Outlook за допомогою функції Відповісти всім

Відповідайте зазвичай у папці Надіслані з Outlook із кодом VBA

Відповідайте зазвичай у папці Надіслані з Outlook за допомогою функції Відповісти всім

У програмі Outlook Відповісти всім Ця функція може допомогти вам вирішити цю проблему. Будь ласка, зробіть наступне:

Якщо вам потрібно відповісти на надісланий електронний лист для повторного надсилання, щоб зберегти адресу оригінального одержувача, натисніть Відповісти всім , а оригінальна адреса одержувача знаходиться на До поле, як показано на наступному скріншоті:

відповідь на документ надіслано електронною поштою 2

Відповідайте зазвичай у папці Надіслані з Outlook із кодом VBA

Іноді ви можете забути Відповісти всім під час відповіді на надіслане повідомлення, тому наведений нижче код VBA може допомогти вам нормально відповісти у папці Надіслані за допомогою функції Відповісти. Виконайте такі дії:

1. Утримуйте клавішу ALT + F11 ключі, щоб відкрити Microsoft Visual Basic для додатків вікна.

2, в Microsoft Visual Basic для додатків вікно, двічі клацніть ThisOutlookSession від Проект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, щоб надати ефект коду вже при натисканні відповісти для повторного відправлення електронного листа в Відправлені папки, оригінальна адреса одержувача відображається в полі Кому, як вам потрібно.