Як автоматично перемістити всіх одержувачів, крім оригінального відправника, у поле “CC” при використанні “Відповісти всім” в Outlook

Деякі користувачі завжди переміщують усіх одержувачів, крім оригінального відправника, у поле “CC”, коли в Outlook використовується “Відповісти всім”. У цій статті буде представлено метод автоматизації руху за допомогою Outlook VBA.

За замовчуванням, коли ви вибираєте "Відповісти всім", щоб відповісти на електронне повідомлення, усі одержувачі, які спочатку були в полі "Кому", все одно будуть розміщені в полі "Кому" у повідомленні, що відповідає. Однак багато користувачів хотіли б перемістити всіх одержувачів до поля “CC”, лише оригінального відправника в полі “Кому”. У відповідь на цю вимогу тут ми розкриємо фрагмент коду VBA, який може реалізувати його автоматично.

Автоматично перемістити всіх одержувачів, крім оригінального відправника, у поле “CC” у полі “Відповісти всім”

1. Перш за все, запустіть програму Outlook.
2. Потім у головному вікні Outlook натисніть кнопки Alt + F11.
3. Далі ви увійдете в редактор Outlook VBA.
4. Згодом вам слід знайти та відкрити проект “ThisOutlookSession”.
5. Пізніше вам потрібно скопіювати та вставити наступні коди VBA у це вікно проекту.

Public WithEvents objExplorer As Outlook.Explorer
Public WithEvents objInspectors As Outlook.Inspectors
Public WithEvents objMail As Outlook.MailItem

Private Sub Application_Startup()
    Set objExplorer = Outlook.Application.ActiveExplorer
    Set objInspectors = Outlook.Application.Inspectors
End Sub

Private Sub objExplorer_Activate()
    On Error Resume Next
    If objExplorer.Selection.Item(1).Class = olMail Then
       Set objMail = objExplorer.Selection.Item(1)
    End If
End Sub

Private Sub objInspectors_NewInspector(ByVal Inspector As Inspector)
    If Inspector.CurrentItem.Class = olMail Then
       Set objMail = Inspector.CurrentItem
    End If
End Sub

Private Sub objMail_ReplyAll(ByVal Response As Object, Cancel As Boolean)
    Dim objReplyAll As Outlook.MailItem
    Dim objRecipient As Outlook.recipient
    Dim objCCRecipient As Outlook.recipient
    Dim strSender As String
 
    Set objReplyAll = objMail.ReplyAll
 
    strSender = objMail.SenderEmailAddress
 
    For Each objRecipient In objMail.Recipients
        'Exclude yourself
        If objRecipient.Address <> "youremail@datanumen.com" Then
           'Add the recipients as CC recipients
           Set objCCRecipient = objReply.Recipients.Add(objRecipient.Address)
           objCCRecipient.Type = olCC
        End If
    Next
 
    'Keep original sender in To field
    objReplyAll.To = strSender
    objReplyAll.Display
 
    Cancel = True
End Sub

6. Після цього слід підписати цей макрос, а потім змінити налаштування макроса Outlook, щоб дозволити макроси з цифровим підписом.
7. Зрештою, ви можете перезапустити Outlook, щоб активувати новий проект VBA.
8. Відтепер кожного разу, коли ви будете відповідати на електронні листи за допомогою «Відповісти всім», ви побачите, що всі одержувачі були переміщені в поле «CC», а лише оригінальний відправник у полі «Кому».

Не панікуйте у випадку корупції PST

Якщо ваш файл PST містить багато ваших цінних даних, таких як інформація про клієнта тощо, як тільки ваш файл PST пошкодиться, ви повинні переживати. Однак якщо ви нещодавно створили резервну копію свого файлу, ви ніколи не будете панікувати. Резервні копії дозволять вам повернути пошкоджений Outlook дані з легкістю. Але якщо такої резервної копії немає, ви все одно можете використовувати потужний засіб відновлення, наприклад DataNumen Outlook Repair.

Вступ автора:

Ширлі Чжан - експерт із відновлення даних у DataNumen, Inc., яка є світовим лідером у галузі технологій відновлення даних, в тому числі ремонт кв та перспективні програмні продукти для ремонту. Для отримання додаткової інформації відвідайте WWW.datanumen.com