Kaip automatiškai perkelti visus gavėjus, išskyrus pradinį siuntėją, į lauką „CC“, kai „Outlook“ naudojate „Atsakyti visiems“

Kai kurie vartotojai visada perkelia visus gavėjus, išskyrus pradinį siuntėją, į lauką „CC“, kai programoje „Outlook“ naudoja „Atsakyti visiems“. Šiame straipsnyje bus pristatytas būdas automatizuoti judėjimą naudojant Outlook VBA.

Pagal numatytuosius nustatymus, kai pasirenkate „Atsakyti visiems“, kad atsakytumėte į el. laišką, visi gavėjai, kurie iš pradžių buvo lauke „Kam“, vis tiek bus įtraukti į atsakymo laiško lauką „Kam“. Tačiau daugelis vartotojų norėtų perkelti visus gavėjus į lauką „CC“, o lauke „Kam“ būtų nurodytas tik pradinis siuntėjas. Atsižvelgdami į šį reikalavimą, pateiksime VBA kodo fragmentą, kuris gali jį realizuoti automatiškai.

Automatiškai perkelkite visus gavėjus, išskyrus pradinį siuntėją, į lauką „CC“, esantį „Atsakyti visiems“

1. Pirmiausia paleiskite „Outlook“ programą.
2. Tada pagrindiniame „Outlook“ lange paspauskite klavišų kombinaciją „Alt + F11“.
3. Tada pateksite į Outlook VBA redaktorių.
4. Vėliau turėtumėte rasti ir atidaryti projektą „ThisOutlookSession“.
5. Vėliau į šį projekto langą turėsite nukopijuoti ir įklijuoti šiuos VBA kodus.

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. Po to turėtumėte pasirašyti šią makrokomandą ir pakeisti „Outlook“ makrokomandos nustatymus, kad leistų naudoti skaitmeniniu būdu pasirašytas makrokomandas.
7. Galiausiai galite paleisti „Outlook“ iš naujo, kad suaktyvintumėte naują VBA projektą.
8. Nuo šiol kiekvieną kartą atsakydami į el. laiškus naudodami „Atsakyti visiems“, matysite, kad visi gavėjai buvo perkelti į lauką „CC“, o lauke „Kam“ – tik pradinis siuntėjas.

Neišsigąskite dėl PST korupcijos

Jei jūsų PST faile yra daug vertingų duomenų, pvz., kliento informacijos ir pan., kai jūsų PST failas bus sugadintas, turite susirūpinti. Tačiau jei neseniai sukūrėte atsarginę failo kopiją, niekada nepanikuosite. Atsarginės kopijos leis jums susigrąžinti savo sugadinta Outlook duomenis be vargo. Bet jei tokios atsarginės kopijos nėra, vis tiek galite naudoti galingą atkūrimo įrankį, pvz., DataNumen Outlook Repair.

Autoriaus įvadas:

Shirley Zhang yra duomenų atkūrimo ekspertė DataNumen, Inc., kuri yra pasaulyje duomenų atkūrimo technologijų lyderė, įskaitant remontas sql ir „Outlook“ taisymo programinės įrangos produktai. Norėdami gauti daugiau informacijos, apsilankykite WWW.datanumen.com