Kako automatski premestiti sve primaoce osim originalnog pošiljaoca u polje „CC“ kada koristite „Odgovori svima“ u Outlooku

Neki korisnici uvijek premještaju sve primaoce osim originalnog pošiljaoca u polje „CC“ kada koriste „Odgovori svima“ u Outlooku. Ovaj članak će predstaviti metodu za automatizaciju kretanja pomoću Outlook VBA.

Podrazumevano, kada odaberete “Odgovori svima” da odgovorite na e-poštu, svi primaoci koji su prvobitno bili u polju “Prima” i dalje će biti stavljeni u polje “Prima” u e-poruci koja odgovara. Međutim, mnogi korisnici bi željeli premjestiti sve primaoce u polje „CC“, a samo originalnog pošiljaoca u polju „Prima“. Kao odgovor na ovaj zahtev, ovde ćemo izložiti deo VBA koda, koji ga može automatski realizovati.

Automatski premesti sve primaoce osim originalnog pošiljaoca u polje „CC“ u „Odgovori svima“

1. Prvo pokrenite svoj Outlook program.
2. Zatim u glavnom prozoru programa Outlook pritisnite tipke “Alt + F11”.
3. Zatim ćete ući u Outlook VBA editor.
4. Nakon toga, trebali biste pronaći i otvoriti projekt “ThisOutlookSession”.
5. Kasnije ćete morati 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 ovaj makro, a zatim promijeniti postavke makroa Outlooka da biste dozvolili makroe s digitalnim potpisom.
7. Na kraju možete ponovo pokrenuti Outlook da biste aktivirali novi VBA projekat.
8. Od sada, svaki put kada odgovorite na e-poštu koristeći “Odgovori svima”, vidjet ćete da su svi primaoci premešteni u polje “CC”, a samo originalni pošiljalac u polju “Prima”.

Nemojte paničariti u slučaju PST korupcije

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

Uvod za autora:

Shirley Zhang je stručnjak za oporavak podataka DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući popraviti sql i Outlook softverski proizvodi za popravku. Za više informacija posjetite www.datanumen.com