«Барлығына жауап беруді» қолданған кезде, жауап беретін электрондық пошта «CC» өрісіне түпнұсқалық хаттың «СС» алушыларын қосады. Алушының осы түрін алып тастағыңыз келсе, осы мақаланы енгізген әдісті қолдануға болады.
Кейде сіз электрондық поштаңызға түпнұсқа жіберушіге және «Кімге» алушыларға жауап бергіңіз келеді. Бұл сценарийде сіз «Барлығына жауап беру» опциясын қолдануды ойластырасыз. Алайда, егер бұл арқылы поштаның түпнұсқасында «СС» алушылары болса, «Барлығына жауап беру» электрондық поштасы «СС» алушыларын «СС» өрісіне автоматты түрде көшіреді. Егер сіз оларға жауап бергіңіз келмесе, оларды қолмен алып тастауыңыз керек, бұл біраз қиындық тудырады. Енді келесілерде біз сізге Outlook бағдарламасына сіздің қажеттіліктеріңізге сәйкес оны қалай орындауға болатынын үйретеміз.

«Барлығына жауап беру» қолданған кезде түпнұсқа «СС» алушыларын алып тастаңыз
- Бастау үшін Outlook бағдарламасын іске қосыңыз.
- Алдыңғы мақаланы оқып, VBA редакторына кіріңіз - «Outlook бағдарламасында VBA кодын қалай іске қосуға болады«.
- Келесі VBA кодын «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
- Содан кейін, осы жаңа жобаны іске қосу үшін Outlook бағдарламасын қайта іске қосыңыз.
- Содан бері, «Барлығына жауап беру» батырмасын басқан сайын, келесі суретте көрсетілгендей, сіз CC-дің түпнұсқа алушыларын шығарғыңыз келмейтіні туралы сұрау аласыз.
- Егер сіз «Иә» параметрін таңдасаңыз, Outlook алушыларды «CC» өрісінде автоматты түрде жояды.
Outlook бағдарламасының зақымдануына жақсы дайын болыңыз
Бәрімізге белгілі, ешкім Outlook зақымдануынан 100% қорғала алатынына кепілдік бере алмайды. Сондықтан, барлық Outlook тұрақты пайдаланушылары үшін көптеген сақтық шараларын қолдану өте маңызды. Ең алдымен, ең маңыздыларының бірі - Outlook деректерінің сақтық көшірмесін үнемі және жаңартылып отыру. Содан кейін, кіріс жәшігін қалпына келтіру құралын қалай пайдалану керектігін үйрену қажет. Соңғы, бірақ маңыздысы, тәжірибелі маманды ұстау ақылға қонымды және ұсынылады. Outlook түзетуі сияқты жақын маңдағы құрал DataNumen Outlook Repair.
Автордың кіріспесі:
Ширли Чжан - деректерді қалпына келтіру бойынша сарапшы DataNumen, Соның ішінде деректерді қалпына келтіру технологиялары бойынша әлемдік көшбасшы болып табылатын Inc. mdf қалпына келтіру және бағдарламалық жасақтаманы жөндеу бағдарламалары. Қосымша ақпарат алу үшін кіріңіз WWW.datanumen.com


