Как нормально ответить в папке отправленных сообщений из Outlook?
Обычно, когда вы нажимаете функцию «Ответить» в папке «Отправленные» для отправки еще одного дополнительного сообщения отправленным вами людям, ваш собственный адрес электронной почты будет отображаться в поле «Кому», как показано на следующем снимке экрана. Это может раздражать вас, меняя адрес каждый раз. Как можно было заставить Outlook использовать исходный адрес получателя, а не ваш?
Ответьте нормально в папке «Отправленные» из Outlook с помощью функции «Ответить всем»
Ответьте нормально в папке "Отправленные" из Outlook с кодом VBA
Ответьте нормально в папке «Отправленные» из Outlook с помощью функции «Ответить всем»
В Outlook Ответить всем функция может помочь вам решить эту проблему, пожалуйста, сделайте следующее:
Если вам нужно ответить на отправленное электронное письмо для повторной отправки, чтобы сохранить адрес исходного получателя, нажмите Ответить всем кнопку, а адрес исходного получателя находится в к поле, как показано на следующем скриншоте:
Ответьте нормально в папке "Отправленные" из 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. Затем сохраните код и перезапустите Outlook, чтобы применить эффект кода, теперь при нажатии Ответить повторно отправить электронное письмо в Отправленные вещи В папке Кому в поле Кому отображается адрес исходного получателя.
Лучшие инструменты для офисной работы
Kutools for Outlook - Более 100 мощных функций для улучшения вашего Outlook
🤖 Почтовый помощник с искусственным интеллектом: Мгновенные профессиональные электронные письма с помощью магии искусственного интеллекта: гениальные ответы одним щелчком мыши, идеальный тон, многоязычное владение. Преобразуйте электронную почту без особых усилий! ...
???? Автоматизация электронной почты: Нет на месте (доступно для POP и IMAP) / Расписание отправки писем / Автоматическое копирование/скрытая копия по правилам при отправке электронной почты / Автопересылка (расширенные правила) / Автоматическое добавление приветствия / Автоматически разделять электронные письма от нескольких получателей на отдельные сообщения ...
📨 Управление электронной почтой: Легко вспоминать электронные письма / Блокировка мошеннических писем от субъектов и других лиц / Удалить повторяющиеся электронные письма / Поиск / Объединение папок ...
📁 Вложения Pro: Пакетное сохранение / Пакетное отсоединение / Пакетное сжатие / Автосохранение / Авто отсоединение / Автоматическое сжатие ...
???? Магия интерфейса: 😊Больше красивых и крутых смайлов / Повысьте производительность Outlook с помощью представлений с вкладками / Свернуть Outlook вместо закрытия ...
???? Чудеса в один клик: Ответить всем с входящими вложениями / Антифишинговые письма / 🕘Показать часовой пояс отправителя ...
👩🏼🤝👩🏻 Контакты и календарь: Пакетное добавление контактов из выбранных писем / Разделить группу контактов на отдельные группы / Удалить напоминания о днях рождения ...
Более Особенности 100 Ждем вашего исследования! Нажмите здесь, чтобы узнать больше.