Kuidas automaatselt teisaldada kõik adressaadid, välja arvatud algne saatja, väljale "CC", kui kasutate Outlookis "Vasta kõigile"

Mõned kasutajad teisaldavad Outlookis "Vasta kõigile" kasutades alati kõik adressaadid, välja arvatud algne saatja. Selles artiklis tutvustatakse meetodit liikumise automatiseerimiseks Outlook VBA abil.

Kui valite meilile vastamiseks „Vasta kõigile”, paigutatakse vaikimisi kõik adressaadid, kes olid algselt väljal „Saaja”, endiselt vastuskirja väljale „Saaja”. Kuid paljud kasutajad sooviksid teisaldada kõik adressaadid väljale „CC”, kus väljal „To” on ainult algne saatja. Vastuseks sellele nõudele avaldame siin osa VBA-koodist, mis suudab selle automaatselt realiseerida.

Teisalda kõik adressaadid, välja arvatud algne saatja, automaatselt väljale "Vasta kõigile" väljale "CC"

1. Kõigepealt käivitage Outlooki programm.
2. Seejärel vajutage Outlooki põhiaknas klahvikombinatsiooni Alt + F11.
3. Järgmisena sisenete Outlooki VBA redaktorisse.
4. Seejärel peaksite leidma ja avama projekti "ThisOutlookSession".
5. Hiljem peate sellesse projekti aknasse kopeerima ja kleepima järgmised VBA koodid.

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. Pärast seda peaksite selle makro allkirjastama ja seejärel muutma oma Outlooki makro sätteid, et lubada digitaalselt allkirjastatud makrosid.
7. Lõpuks saate uue VBA-projekti aktiveerimiseks oma Outlooki taaskäivitada.
8. Edaspidi näete iga kord, kui vastate e-kirjadele kasutades "Vasta kõigile", et kõik adressaadid on teisaldatud väljale "CC" ja väljal "Saaja" on ainult algne saatja.

Ärge paanitsege PST korruptsiooni korral

Kui teie PST-fail sisaldab palju teie väärtuslikke andmeid, näiteks klienditeavet ja nii edasi, peate pärast PST-faili riknemist muretsema. Kui olete aga oma faili hiljuti varundanud, ei satu te kunagi paanikasse. Varukoopiad võimaldavad teil oma kahjustatud Outlook andmeid vaevata. Kuid kui sellist varukoopiat pole, saate siiski kasutada võimsat taastetööriista, näiteks DataNumen Outlook Repair.

Autori sissejuhatus:

Shirley Zhang on andmete taastamise ekspert DataNumen, Inc., mis on maailmas juhtiv andmete taastamise tehnoloogiate, sealhulgas remont sql ja Outlooki remonditarkvaratooted. Lisateabe saamiseks külastage www.datanumenCom