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. Kezdésként 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 indítsa újra az Outlookot 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

Mint mindannyian tudjuk, senki sem garantálhatja 100%-ig, hogy immunis az Outlook károsodásával szemben. Ezért minden Outlook-felhasználó számára elengedhetetlen számos óvintézkedés megtétele. Először is, az egyik legfontosabb a következetes és naprakész Outlook-adatmentés. Ezután meg kell tanulni, hogyan kell használni a beérkezett üzenetek javító eszközét. Végül, de nem utolsósorban, bölcs és ajánlott egy tapasztalt szakembert igénybe venni. 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