Kako samodejno premakniti vse prejemnike razen izvirnega pošiljatelja v polje »CC«, ko uporabljate »Odgovori vsem« v Outlooku

Nekateri uporabniki vedno premaknejo vse prejemnike razen izvirnega pošiljatelja v polje »CC«, ko uporabljajo »Odgovori vsem« v Outlooku. Ta članek bo predstavil metodo za avtomatizacijo premikanja z Outlook VBA.

Ko za odgovor na e-pošto izberete »Odgovori vsem«, bodo vsi prejemniki, ki so bili prvotno v polju »Za«, še vedno uvrščeni v polje »Za« v e-poštnem sporočilu za odgovor. Vendar bi mnogi uporabniki radi premaknili vse prejemnike v polje »CC« s samo izvirnim pošiljateljem v polju »Za«. Kot odgovor na to zahtevo bomo tukaj izpostavili del kode VBA, ki jo lahko samodejno realizira.

Samodejno premakni vse prejemnike razen izvirnega pošiljatelja v polje »CC« v »Odgovori vsem«

1. Najprej zaženite program Outlook.
2. Nato v glavnem Outlookovem oknu pritisnite tipke “Alt + F11”.
3. Nato boste vstopili v urejevalnik Outlook VBA.
4. Nato bi morali poiskati in odpreti projekt »ThisOutlookSession«.
5. Kasneje morate kopirati in prilepiti naslednje kode VBA v to okno 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. Po tem podpišite ta makro in nato spremenite nastavitve Outlookovega makra, da dovolite digitalno podpisane makre.
7. Sčasoma lahko znova zaženete Outlook, da aktivirate nov projekt VBA.
8. Odslej boste vsakič, ko odgovorite na e-pošto z možnostjo »Odgovori vsem«, videli, da so bili vsi prejemniki premaknjeni v polje »CC«, v polju »Za« pa samo prvotni pošiljatelj.

Brez panike v primeru okvare PST

Če vaša datoteka PST vsebuje veliko vaših dragocenih podatkov, kot so informacije o strankah in tako naprej, vas mora skrbeti, ko se vaša datoteka PST poškoduje. Če pa ste pred kratkim varnostno kopirali svojo datoteko, vas ne bo nikoli zagrabila panika. Varnostne kopije vam bodo omogočile povrnitev vaših poškodovan Outlook podatkov z lahkoto brez truda. Če pa takšne varnostne kopije ni, lahko vseeno uporabite zmogljivo orodje za obnovitev, kot je npr DataNumen Outlook Repair.

Uvod avtorja:

Shirley Zhang je strokovnjakinja za obnovitev podatkov v DataNumen, Inc., ki je vodilna na svetu na področju tehnologij za obnovitev podatkov, vključno z popravilo sql in obeti za popravilo programskih izdelkov. Za več informacij obiščite www.datanumen.com