Outlook-da "Hamısına Cavab Ver" istifadə edərkən orijinal "CC" alıcılarını necə tez istisna etmək olar

“Hamısına Cavab Ver”dən istifadə etdikdə, cavab verən e-poçt həm də “CC” sahəsində orijinal e-poçtun “CC” alıcılarını daxil edəcək. Ancaq bu tip alıcını istisna etmək istəyirsinizsə, bu məqalədə təqdim olunan üsuldan istifadə edə bilərsiniz.

Bəzən ilkin göndərənə və “Kimə” alıcılarına e-məktubu cavablandırmaq istərdiniz. Bu ssenaridə mütləq “Hamısına Cavab Ver” seçimindən istifadə etməyi düşünəcəksiniz. Bununla belə, əgər orijinal məktubda “CC” alıcıları da varsa, “Hamısına Cavab Ver” e-poçtu “CC” alıcılarını avtomatik olaraq “CC” sahəsinə köçürür. Əgər onlara cavab vermək istəmirsinizsə, onları əl ilə silməlisiniz, bu da bir az əziyyətlidir. İndi, aşağıdakılarda, ehtiyaclarınıza uyğun olaraq Outlook-un avtomatik olaraq yerinə yetirməsinə necə icazə verəcəyini öyrədəcəyik.

"Hamısına Cavab Ver"dən istifadə edərkən orijinal "CC" alıcılarını tez xaric edin

1. Başlamaq üçün Outlook-u işə salın.
2. Sonra, əvvəlki məqaləni oxuyaraq VBA redaktoruna daxil olun - "Outlook-da VBA kodunu necə işlətmək olar".
3. Sonra, aşağıdakı VBA kodunu “ThisOutlookSession” layihəsinə köçürün.

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. Daha sonra, bu yeni layihəni aktivləşdirmək üçün Outlook-u yenidən başladın.
5. O vaxtdan bəri, hər dəfə “Hamısına Cavab Ver” düyməsini basdığınız zaman, aşağıdakı şəkildə göstərildiyi kimi, orijinal CC alıcılarını xaric etmək istəyib-istəməmək barədə sorğu alacaqsınız.
6. Əgər “Bəli” seçsəniz, Outlook “CC” sahəsində alıcıları avtomatik siləcək.

Outlook zərərinə yaxşı hazır olun

Hamımızın bildiyimiz kimi, heç kim Outlook zərərlərindən 100% sığortalana bilməz. Buna görə də, bütün Outlook daimi istifadəçilərinin bir çox tədbir görməsi vacibdir. Əvvəla, ən vacib tədbirlərdən biri Outlook məlumatlarının ardıcıl və yenilənmiş ehtiyat nüsxəsini saxlamaqdır. Daha sonra, gələnlər qutusu təmir alətindən necə istifadə edəcəyinizi öyrənmək lazımdır. Ən əsası, təcrübəli bir istifadəçi saxlamaq ehtiyatlı və tövsiyə olunur. Outlook düzəlişi kimi yaxınlıqdakı alət DataNumen Outlook Repair.

Müəllif Giriş:

Shirley Zhang məlumatların bərpası üzrə mütəxəssisdir DataNumendaxil olmaqla məlumatların bərpası texnologiyaları üzrə dünya lideri olan , Inc mdf bərpa edin və Outlook təmiri proqram məhsulları. Ətraflı məlumat üçün ziyarət edin www.datanumen.com