Як нормально відповісти у папці надісланих елементів з Outlook?
Зазвичай, коли ви натискаєте функцію Відповісти у папці Надіслані, щоб надіслати ще одне додаткове повідомлення для людей, яких ви надіслали, ваша власна електронна адреса відображатиметься в полі Кому, як показано на наступному знімку екрана. Це може дратувати вас щоразу, змінюючи адресу. Як можна змусити Outlook використовувати оригінальну адресу одержувача, а не вашу?
Відповідайте зазвичай у папці Надіслані з Outlook за допомогою функції Відповісти всім
Відповідайте зазвичай у папці Надіслані з Outlook із кодом VBA
Відповідайте зазвичай у папці Надіслані з Outlook за допомогою функції Відповісти всім
У програмі Outlook Відповісти всім Ця функція може допомогти вам вирішити цю проблему. Будь ласка, зробіть наступне:
Якщо вам потрібно відповісти на надісланий електронний лист для повторного надсилання, щоб зберегти адресу оригінального одержувача, натисніть Відповісти всім , а оригінальна адреса одержувача знаходиться на До поле, як показано на наступному скріншоті:
Відповідайте зазвичай у папці Надіслані з 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. Потім збережіть код і перезапустіть Outlook, щоб надати ефект коду вже при натисканні відповісти для повторного відправлення електронного листа в Відправлені папки, оригінальна адреса одержувача відображається в полі Кому, як вам потрібно.
Найкращі інструменти продуктивності офісу
Kutools для Outlook - Понад 100 потужних функцій, які покращать ваш Outlook
???? Автоматизація електронної пошти: Поза офісом (доступно для POP та IMAP) / Розклад надсилання електронних листів / Автоматична копія/прихована копія за правилами під час надсилання електронної пошти / Автоматичне пересилання (розширені правила) / Автоматично додавати привітання / Автоматично розділяйте електронні листи кількох одержувачів на окремі повідомлення ...
📨 Управління електронною поштою: Легко відкликайте електронні листи / Блокуйте шахрайські електронні листи за темами та іншими / Видалити повторювані електронні листи / розширений пошук / Консолідація папок ...
📁 Вкладення Pro: Пакетне збереження / Пакетне від'єднання / Пакетний компрес / Автозавантаження / Автоматичне від'єднання / Автокомпресія ...
???? Магія інтерфейсу: 😊Більше красивих і класних смайликів / Підвищте продуктивність Outlook за допомогою вкладок / Згорніть Outlook замість того, щоб закривати ...
👍 Дива в один клік: Відповісти всім із вхідними вкладеннями / Антифішингові електронні листи / 🕘Показувати часовий пояс відправника ...
👩🏼🤝👩🏻 Контакти та календар: Пакетне додавання контактів із вибраних електронних листів / Розділіть групу контактів на окремі групи / Видаліть нагадування про день народження ...
більше Особливості 100 Чекайте на ваше дослідження! Натисніть тут, щоб дізнатися більше.