Hogyan lehet gyorsan kizárni az eredeti „CC” címzetteket, ha a „Válasz mindenkinek” funkciót használja az Outlookban

A „Válasz mindenkinek” használata esetén a válaszoló e-mail a „CC” mezőben az eredeti e-mail „CC” címzettjeit is tartalmazza. Ha azonban ki szeretné zárni az ilyen típusú címzetteket, használhatja a cikkben bemutatott módszert.

Időnként szeretne válaszolni egy e-mailre az eredeti feladónak és a „Címzett” címzetteknek. Ebben a forgatókönyvben minden bizonnyal a „Válasz mindenkinek” opciót kell használnia. Ezáltal azonban, ha az eredeti levélnek is vannak „CC” címzettjei, a „Válasz mindenkinek” e-mail automatikusan átmásolja a „CC” címzetteket a „CC” mezőbe. Ha nem akar válaszolni rájuk, manuálisan kell eltávolítania őket, ami egy kicsit problémás. A következőkben megtanítjuk, hogyan hagyhatja, hogy az Outlook automatikusan elvégezze azt az Ön igényei szerint.

Az eredeti „CC” címzettek gyors kizárása a „Válasz mindenkinek” használatakor

1. Mert minttart, indítsa el az Outlookot.
2. Ezután nyissa meg a VBA szerkesztőt az előző cikk elolvasásával - "A VBA kód futtatása az Outlookban".
3. Ezután másolja be a következő VBA-kódot a „ThisOutlookSession” projektbe.

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. Ezt követően restart az Outlook programban az új projekt aktiválásához.
5. Azóta minden alkalommal, amikor megnyomja a „Válasz mindenkinek” gombot, a következő képen látható módon egy felszólítást kap, amely megkérdezi, hogy szeretné-e kizárni az eredeti CC-címzetteket.
6. Ha az „Igen” lehetőséget választja, az Outlook automatikusan eltávolítja a címzetteket a „CC” mezőben.

Készüljön fel az Outlook károkra

Amint azt mindannyian tudjuk, senki sem tudja 100%-osan biztosítani, hogy immunis legyen az Outlook károkkal szemben. Ezért elengedhetetlen, hogy az Outlook rendszeres felhasználója sok óvintézkedést tegyen. Mindenekelőtt az egyik most elengedhetetlen, hogy folyamatosan és naprakészen menjen az Outlook adatokról. Ezután meg kell tanulnia a beérkező levelek javítóeszközének használatát. Végül, de nem utolsósorban megfontolt és ajánlott tapasztalt embert tartani Outlook javítás eszköz a közelében, mint pl DataNumen Outlook Repair.

Szerző Bevezetés:

Shirley Zhang adat-helyreállítási szakértő DataNumen, Inc., amely világelső az adat-helyreállítási technológiák területén, beleértve mdf helyreállítása és outlook javítószoftver termékek. További információért látogasson el www.datanumen.com