Note: The other languages of the website are Google-translated. Back to English

Как нормально ответить в папке отправленных сообщений из 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, чтобы применить эффект кода, теперь при нажатии Ответить повторно отправить электронное письмо в Отправленные вещи В папке Кому в поле Кому отображается адрес исходного получателя.


Kutools for Outlook - добавляет в Outlook 100 расширенных функций и делает работу намного проще!

  • Авто CC / BCC по правилам при отправке электронной почты; Автопересылка Несколько писем по индивидуальному заказу; Автоответчик без сервера обмена и дополнительных автоматических функций ...
  • Предупреждение BCC - показать сообщение при попытке ответить всем если ваш почтовый адрес находится в списке BCC; Напоминать об отсутствии вложений, и многое другое напоминает функции ...
  • Ответить (всем) со всеми вложениями в почтовой беседе; Ответить на много писем в секундах; Автоматическое добавление приветствия при ответе; Добавить дату в тему ...
  • Инструменты для вложений: управление всеми вложениями во всех письмах, Авто отсоединение, Сжать все, Переименовать все, сохранить все ... Быстрый отчет, Подсчет выбранных писем...
  • Мощные нежелательные электронные письма по обычаю; Удаление повторяющихся писем и контактов... Позвольте вам делать в Outlook умнее, быстрее и лучше.
выстрел kutools outlook kutools tab 1180x121
выстрел kutools outlook kutools plus tab 1180x121
 
Сортировать комментарии по
Комментарии (0)
Оценок пока нет. Оцените первым!
Здесь еще нет комментариев
Оставляйте свои комментарии
Публикация как гость
×
Оценить этот пост:
0   Характеристики
Предлагаемые места

Подписывайтесь на Нас

Copyright © 2009 - www.extendoffice.ком. | Все права защищены. Питаться от ExtendOffice, | Карта сайта
Microsoft и логотип Office являются товарными знаками или зарегистрированными товарными знаками Microsoft Corporation в США и / или других странах.
Защищено Sectigo SSL