Alkuperäisten "CC" -vastaanottajien poissulkeminen nopeasti, kun "Vastaa kaikille" käytetään Outlookissa

Kun käytät “Vastaa kaikille”, vastaava sähköposti sisältää myös alkuperäisen sähköpostin ”vastaanottajat” ”CC” -kentässä. Mutta jos haluat sulkea pois tämäntyyppiset vastaanottajat, voit käyttää tämän artikkelin esittelemää menetelmää.

Toisinaan haluat vastata sähköpostiin alkuperäiselle lähettäjälle ja Vastaanottajille. Tässä skenaariossa sinun kannattaa ehdottomasti käyttää Vastaa kaikille -vaihtoehtoa. Tällä tavoin, jos alkuperäisessä postissa on myös ”CC” -vastaanottajia, ”Reply All” -sähköposti kopioi ”CC” -vastaanottajat automaattisesti ”CC” -kenttään. Jos et halua vastata niihin, sinun on poistettava ne manuaalisesti, mikä on vähän hankalaa. Seuraavassa opetamme sinulle, kuinka anna Outlookin suorittaa se automaattisesti tarpeidesi mukaan.

Sulje alkuperäiset "CC" -vastaanottajat nopeasti, kun käytät "Vastaa kaikille"

1. Aloita käynnistämällä Outlook.
2. Avaa sitten VBA-editori lukemalla edellinen artikkeli - “Kuinka suorittaa VBA-koodi Outlookissa".
3. Kopioi seuraavaksi seuraava VBA-koodi “ThisOutlookSession” -projektiin.

Public WithEvents objInspectors As Outlook.Inspectors
Public WithEvents objExplorer As Outlook.Explorer
Public WithEvents objMail As Outlook.MailItem

Private Sub Application_Startup()
    Set objInspectors = Outlook.Application.Inspectors
    Set objExplorer = Outlook.Application.ActiveExplorer
End Sub

Private Sub objExplorer_Activate()
    On Error Resume Next
    If TypeOf objExplorer.Selection.Item(1) Is MailItem Then
       Set objMail = objExplorer.Selection.Item(1)
    End If
End Sub

Private Sub objInspectors_NewInspector(ByVal Inspector As Inspector)
    If TypeOf Inspector.CurrentItem Is MailItem Then
       Set objMail = Inspector.CurrentItem
    End If
End Sub

'Occurs when you click "Reply All"
Private Sub objMail_ReplyAll(ByVal Response As Object, Cancel As Boolean)
    Dim objRecipient As Outlook.Recipient
    Dim i As Long
 
    'Ask you if to exclude CC recipients
    If MsgBox("Do you want to exclude original CC recipients? " , vbQuestion + vbYesNo) = vbYes Then
       'If select Yes, remove CC recipients
       For i = Response.Recipients.Count To 1 Step -1
           If Response.Recipients(i).Type = olCC Then
              Response.Recipients.Remove (i)
           End If
       Next
    End If
End Sub

4. Käynnistä sen jälkeen Outlook uudelleen aktivoidaksesi tämän uuden projektin.
5. Sittemmin joka kerta, kun painat "Vastaa kaikille" -painiketta, saat kehotuksen, kuten seuraavassa kuvassa näkyy, kysyen, haluatko sulkea alkuperäiset CC-vastaanottajat.
6. Jos valitset ”Kyllä”, Outlook poistaa vastaanottajat automaattisesti ”CC” -kentästä.

Pidä hyvin valmistautunut Outlookin vahinkoihin

Kuten me kaikki tiedämme, kukaan ei voi 100-prosenttisesti taata, että hän on immuuni Outlookin vaurioille. Siksi on tärkeää, että kaikki Outlookin säännölliset käyttäjät ryhtyvät moniin varotoimiin. Ensinnäkin yksi tärkeimmistä on pitää yllä johdonmukaista ja ajantasaista Outlook-tietojen varmuuskopiointia. Sitten on tarpeen oppia käyttämään Saapuneet-kansion korjaustyökalua. Viimeisenä muttei vähäisimpänä, on järkevää ja suositeltavaa pitää kokenutta... Outlook-korjaus työkalu läheisyydessä, kuten DataNumen Outlook Repair.

Tekijän esittely:

Shirley Zhang on tietojen palauttamisen asiantuntija DataNumen, Inc., joka on maailman johtava tietojen palautustekniikoissa, mukaan lukien palauta mdf ja Outlookin korjausohjelmistotuotteet. Lisätietoja osoitteessa www.datanumen.com