Как да преместите автоматично всички получатели с изключение на оригиналния подател в полето „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., която е световен лидер в технологиите за възстановяване на данни, включително ремонт sql и outlook софтуерни продукти за ремонт. За повече информация посетете WWW.datanumen.com