როგორ ავტომატურად გადავიტანოთ ყველა მიმღები ორიგინალური გამგზავნის გარდა „CC“ ველში Outlook-ში „ყველაზე პასუხის გაცემა“ გამოყენებისას

Outlook Solutions სექტემბერი 29, 2025

ზოგიერთი მომხმარებელი ყოველთვის გადააქვს ყველა მიმღებს, გარდა ორიგინალური გამგზავნისა "CC" ველში Outlook-ში "ყველაზე პასუხის გაცემა" გამოყენებისას. ამ სტატიაში შემოგთავაზებთ მეთოდს Outlook VBA-ით მოძრაობის ავტომატიზაციისთვის.

ნაგულისხმევად, როდესაც ირჩევთ „ყველას პასუხის გაცემას“ ელფოსტის საპასუხოდ, ყველა მიმღები, რომლებიც თავდაპირველად იყვნენ „მიმდევრობის“ ველში, კვლავ განთავსდება საპასუხო წერილის ველში „გადასასვლელად“. თუმცა, ბევრ მომხმარებელს სურს გადაიტანოს ყველა მიმღები "CC" ველში მხოლოდ ორიგინალური გამგზავნით "To" ველში. ამ მოთხოვნის საპასუხოდ, აქ ჩვენ გამოვავლენთ VBA კოდის ნაწილს, რომელსაც შეუძლია მისი ავტომატურად რეალიზება.

ყველა მიმღების ავტომატური გადატანა ორიგინალური გამგზავნის გარდა „CC“ ველში „ყველაზე პასუხის გაცემა“

პირველ რიგში, გაუშვით თქვენი Outlook პროგრამა.
შემდეგ Outlook-ის მთავარ ფანჯარაში დააჭირეთ ღილაკს "Alt + F11".
შემდეგ თქვენ შეხვალთ Outlook VBA რედაქტორში.
შემდგომში, თქვენ უნდა იპოვოთ და გახსნათ პროექტი "ThisOutlookSession".
მოგვიანებით თქვენ უნდა დააკოპიროთ და ჩასვათ შემდეგი VBA კოდები ამ პროექტის ფანჯარაში.

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

ამის შემდეგ, თქვენ უნდა მოაწეროთ ხელი ამ მაკროს და შემდეგ შეცვალოთ თქვენი Outlook მაკრო პარამეტრები, რათა დაუშვათ ციფრულად ხელმოწერილი მაკროები.
საბოლოოდ, შეგიძლიათ გადატვირთოთ Outlook ახალი VBA პროექტის გასააქტიურებლად.
ამიერიდან, ყოველ ჯერზე, როცა უპასუხებთ წერილებს „Reply All“-ის გამოყენებით, ნახავთ, რომ ყველა მიმღები გადატანილია „CC“ ველში მხოლოდ ორიგინალური გამგზავნის ველში „To“.

PST კორუფციის შემთხვევაში არ ინერვიულოთ

თუ თქვენი PST ფაილი შეიცავს ბევრ თქვენს ღირებულ მონაცემს, როგორიცაა კლიენტის ინფორმაცია და ა.შ., როგორც კი თქვენი PST ფაილი დაზიანდება, თქვენ უნდა ინერვიულოთ. თუმცა, თუ ახლახან შექმენით თქვენი ფაილის სარეზერვო ასლი, არასოდეს შეგეშინდებათ. სარეზერვო ასლები საშუალებას მოგცემთ დაიბრუნოთ თქვენი დაზიანებული Outlook მონაცემები უპრობლემოდ. მაგრამ თუ ასეთი სარეზერვო არ არის, თქვენ მაინც შეგიძლიათ გამოიყენოთ ძლიერი აღდგენის ინსტრუმენტი, როგორიცაა DataNumen Outlook Repair.

ავტორი შესავალი:

შირლი ჟანგი არის მონაცემთა აღდგენის ექსპერტი DataNumen, Inc., რომელიც მსოფლიო ლიდერია მონაცემთა აღდგენის ტექნოლოგიებში, მათ შორის შეკეთება sql და Outlook სარემონტო პროგრამული პროდუქტები. დამატებითი ინფორმაციისთვის ეწვიეთ www.datanumen. ერთად