Outlook-da "Hamısına Cavab Ver"dən istifadə edərkən Orijinal Göndərəndən başqa bütün Alıcıları "CC" sahəsinə necə avtomatik köçürmək olar

Bəzi istifadəçilər Outlook-da “Hamısına Cavab Ver” istifadə edərkən həmişə orijinal göndərəndən başqa bütün alıcıları “CC” sahəsinə köçürür. Bu məqalə Outlook VBA ilə hərəkəti avtomatlaşdırmaq üçün bir üsul təqdim edəcəkdir.

Varsayılan olaraq, e-məktuba cavab vermək üçün "Hamısına Cavab Ver"i seçdiyiniz zaman, ilkin olaraq "Kimə" sahəsində olan bütün alıcılar hələ də cavab məktubundakı "Kimə" sahəsinə yerləşdiriləcək. Bununla belə, bir çox istifadəçi “Kimə” sahəsində yalnız orijinal göndərici ilə bütün alıcıları “CC” sahəsinə köçürmək istəyir. Bu tələbə cavab olaraq, biz burada VBA kodunun bir parçasını ifşa edəcəyik və onu avtomatik həyata keçirə bilər.

Orijinal Göndərəndən başqa Bütün Alıcıları Avtomatik olaraq “Hamısına Cavab Ver”də “CC” Sahəsinə köçürün

1. İlk növbədə, Outlook proqramınızı işə salın.
2. Sonra əsas Outlook pəncərəsində "Alt + F11" düymələrini basın.
3. Sonra Outlook VBA redaktoruna daxil olacaqsınız.
4. Sonradan "ThisOutlookSession" layihəsini tapıb açmalısınız.
5. Daha sonra aşağıdakı VBA kodlarını bu layihə pəncərəsinə kopyalayıb yapışdırmalısınız.

Public WithEvents objExplorer As Outlook.Explorer
Public WithEvents objInspectors As Outlook.Inspectors
Public WithEvents objMail As Outlook.MailItem

Private Sub Application_Startup()
    Set objExplorer = Outlook.Application.ActiveExplorer
    Set objInspectors = Outlook.Application.Inspectors
End Sub

Private Sub objExplorer_Activate()
    On Error Resume Next
    If objExplorer.Selection.Item(1).Class = olMail Then
       Set objMail = objExplorer.Selection.Item(1)
    End If
End Sub

Private Sub objInspectors_NewInspector(ByVal Inspector As Inspector)
    If Inspector.CurrentItem.Class = olMail Then
       Set objMail = Inspector.CurrentItem
    End If
End Sub

Private Sub objMail_ReplyAll(ByVal Response As Object, Cancel As Boolean)
    Dim objReplyAll As Outlook.MailItem
    Dim objRecipient As Outlook.recipient
    Dim objCCRecipient As Outlook.recipient
    Dim strSender As String
 
    Set objReplyAll = objMail.ReplyAll
 
    strSender = objMail.SenderEmailAddress
 
    For Each objRecipient In objMail.Recipients
        'Exclude yourself
        If objRecipient.Address <> "youremail@datanumen.com" Then
           'Add the recipients as CC recipients
           Set objCCRecipient = objReply.Recipients.Add(objRecipient.Address)
           objCCRecipient.Type = olCC
        End If
    Next
 
    'Keep original sender in To field
    objReplyAll.To = strSender
    objReplyAll.Display
 
    Cancel = True
End Sub

6. Bundan sonra siz bu makronu imzalamalı və rəqəmsal imzalanmış makrolara icazə vermək üçün Outlook makro parametrlərinizi dəyişdirməlisiniz.
7. Nəhayət, yeni VBA layihəsini aktivləşdirmək üçün Outlook-u yenidən başlada bilərsiniz.
8. Bundan sonra siz hər dəfə “Hamısına Cavab Ver”dən istifadə edərək e-məktublara cavab verəndə bütün alıcıların “Kimyə” sahəsində yalnız orijinal göndərənlə “CC” sahəsinə köçürüldüyünü görəcəksiniz.

PST Korrupsiya halında Panik etməyin

PST faylınız müştəri məlumatı və s. kimi çoxlu dəyərli məlumatlarınızı ehtiva edirsə, PST faylınız korlandıqdan sonra narahat olmalısınız. Bununla belə, bu yaxınlarda faylınızın ehtiyat nüsxəsini çıxarmısınızsa, heç vaxt çaxnaşma olmayacaqsınız. Yedəkləmələr sizə məlumatlarınızı geri qaytarmağa imkan verəcək zədələnmiş Outlook asanlıqla məlumat əldə edin. Ancaq belə bir ehtiyat nüsxəsi yoxdursa, hələ də güclü bərpa alətindən istifadə edə bilərsiniz, məsələn 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 təmir sql və Outlook təmiri proqram məhsulları. Ətraflı məlumat üçün ziyarət edin www.datanumen.com