Si të përjashtoni shpejt marrësit origjinal "CC" kur përdorni "Përgjigju të gjithëve" në Outlook

Kur përdorni "Përgjigju të gjithëve", emaili që përgjigjet do të përfshijë gjithashtu marrësit "CC" të emailit origjinal në fushën "CC". Por, nëse dëshironi të përjashtoni këtë lloj marrësi, mund të përdorni metodën e prezantuar në këtë artikull.

Ndonjëherë, ju dëshironi t'i përgjigjeni një email dërguesit origjinal dhe marrësve "Për". Në këtë skenar, patjetër që do të mendoni të përdorni opsionin "Përgjigju të gjithëve". Megjithatë, në këtë mënyrë, nëse posta origjinale ka gjithashtu marrës "CC", emaili "Përgjigju të gjithëve" do t'i kopjojë automatikisht marrësit "CC" në fushën "CC". Nëse nuk doni t'u përgjigjeni atyre, duhet t'i hiqni manualisht, gjë që është paksa e mundimshme. Tani, në vijim, ne do t'ju mësojmë se si ta lejoni Outlook ta përmbushë atë automatikisht sipas nevojave tuaja.

Përjashtoni shpejt marrësit origjinal "CC" kur përdorni "Përgjigju të gjithëve"

1. Për të filluar, hapni Outlook-un.
2. Pastaj, hyni në redaktorin VBA duke lexuar artikullin e mëparshëm - "Si të ekzekutoni kodin VBA në Outlook tuaj".
3. Më pas, kopjoni kodin e mëposhtëm VBA në projektin "ThisOutlookSession".

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. Më pas, rinisni Outlook-un tuaj për të aktivizuar këtë projekt të ri.
5. Që atëherë, çdo herë kur shtypni butonin "Përgjigju të gjithëve", do të merrni një kërkesë, siç tregohet në imazhin e mëposhtëm, duke pyetur nëse dëshironi të përjashtoni marrësit origjinal të CC.
6. Nëse zgjidhni "Po", Outlook do t'i heqë automatikisht marrësit në fushën "CC".

Qëndroni të përgatitur mirë për dëmtimin e Outlook

Siç e dimë të gjithë, askush nuk mund të sigurojë 100% se është imun ndaj dëmtimit të Outlook-ut. Prandaj, është thelbësore që të gjithë përdoruesit e rregullt të Outlook-ut të marrin shumë masa paraprake. Para së gjithash, një nga më të rëndësishmet është të mbajnë një kopje rezervë të të dhënave të Outlook-ut të vazhdueshme dhe të përditësuara. Pastaj, është e nevojshme të mësoni se si të përdorni mjetin e riparimit të kutisë hyrëse. Së fundmi, por jo më pak e rëndësishme, është e kujdesshme dhe e rekomandueshme të mbani një person me përvojë. Rregullimi i Outlook mjet në afërsi, si p.sh DataNumen Outlook Repair.

Hyrje e autorit:

Shirley Zhang është një eksperte për rikuperimin e të dhënave DataNumen, Inc., e cila është lider botëror në teknologjitë e rikuperimit të të dhënave, duke përfshirë rikuperoni mdf dhe produkte softuerike të riparimit të pamjes. Për më shumë informacion vizitoni www.datanumen.com