Kako automatski premjestiti sve primatelje osim izvornog pošiljatelja u polje "CC" kada koristite "Odgovori svima" u programu Outlook

Neki korisnici uvijek premještaju sve primatelje osim originalnog pošiljatelja u polje "CC" kada koriste "Odgovori svima" u programu Outlook. Ovaj će članak predstaviti metodu za automatiziranje kretanja pomoću programa Outlook VBA.

Prema zadanim postavkama, kada odaberete "Odgovori svima" da odgovorite na e-poštu, svi primatelji koji su izvorno bili u polju "Prima" i dalje će biti smješteni u polje "Prima" u poruci e-pošte za odgovor. Međutim, mnogi bi korisnici htjeli premjestiti sve primatelje u polje "CC" sa samo izvornim pošiljateljem u polju "Prima". Kao odgovor na ovaj zahtjev, ovdje ćemo izložiti dio VBA koda, koji ga može automatski realizirati.

Automatski premjesti sve primatelje osim originalnog pošiljatelja u polje "CC" u "Odgovori svima"

1. Prvo pokrenite svoj program Outlook.
2. Zatim u glavnom prozoru programa Outlook pritisnite tipke "Alt + F11".
3. Zatim ćete ući u Outlook VBA uređivač.
4. Zatim biste trebali pronaći i otvoriti projekt “ThisOutlookSession”.
5. Kasnije trebate kopirati i zalijepiti sljedeće VBA kodove u ovaj prozor projekta.

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. Nakon toga trebali biste potpisati ovu makronaredbu, a zatim promijeniti postavke Outlook makronaredbe kako biste dopustili digitalno potpisane makronaredbe.
7. Na kraju možete ponovno pokrenuti Outlook kako biste aktivirali novi VBA projekt.
8. Od sada, svaki put kada odgovorite na e-poštu koristeći “Odgovori svima”, vidjet ćete da su svi primatelji premješteni u polje “CC” sa samo originalnim pošiljateljem u polju “Prima”.

Nemojte paničariti u slučaju kvara na PST-u

Ako vaša PST datoteka sadrži mnogo vaših vrijednih podataka, kao što su informacije o klijentima i tako dalje, morate se zabrinuti kada se vaša PST datoteka ošteti. Međutim, ako ste nedavno napravili sigurnosnu kopiju svoje datoteke, nikada nećete paničariti. Sigurnosne kopije će vam omogućiti da vratite svoje oštećen Outlook podatke s lakoćom bez napora. Ali ako ne postoji takva sigurnosna kopija, još uvijek možete koristiti moćan alat za oporavak, kao što je DataNumen Outlook Repair.

Uvod za autora:

Shirley Zhang stručnjakinja je za oporavak podataka u DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući popravi sql i softverske proizvode za popravak Outlooka. Za više informacija posjetite www.datanumen.com