Outlook бағдарламасында «Барлығына жауап беруді» пайдалану кезінде түпнұсқа жіберушіден басқа барлық алушыларды «CC» өрісіне қалай автоматты түрде жылжыту керек

Outlook шешімдері Қыркүйек 29, 2025

Кейбір пайдаланушылар Outlook бағдарламасында «Барлығына жауап беру» пайдалану кезінде әрқашан түпнұсқа жіберушіден басқа барлық алушыларды «CC» өрісіне жылжытады. Бұл мақала Outlook VBA көмегімен қозғалысты автоматтандыру әдісін ұсынады.

Әдепкі бойынша, электрондық поштаға жауап беру үшін «Барлығына жауап беру» опциясын таңдағанда, бастапқыда «Кімге» өрісінде болған барлық алушылар жауап беретін поштадағы «Кімге» өрісіне орналастырылады. Алайда, көптеген қолданушылар барлық алушыларды «Кімге» өрісіне тек түпнұсқа жіберушімен бірге «СС» өрісіне ауыстырғысы келеді. Осы талапқа жауап ретінде біз мұны автоматты түрде жүзеге асыра алатын 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 макро параметрлерін цифрлық қолтаңбалы макростарға өзгерту үшін өзгертуіңіз керек.
Ақырында, жаңа VBA жобасын іске қосу үшін Outlook бағдарламасын қайта іске қосуға болады.
Бұдан былай, «Барлығына жауап беру» арқылы электрондық поштаға жауап берген сайын, барлық алушылар «Кімге» өрісінде тек түпнұсқа жіберушімен бірге «СС» өрісіне көшірілгенін көресіз.

PST сыбайлас жемқорлық жағдайында үрейленбеңіз

Егер сіздің PST файлыңызда көптеген құнды деректер болса, мысалы, клиент туралы ақпарат және тағы басқалар, егер сіздің PST файлыңыз бүлінген болса, сіз алаңдауға тиіссіз. Алайда, егер сіз жақында файлдың сақтық көшірмесін жасаған болсаңыз, сіз ешқашан үрейленбейсіз. Сақтық көшірмелер сізге қайта оралуға мүмкіндік береді Outlook зақымдалған деректер оңай. Егер мұндай сақтық көшірме болмаса, сіз қалпына келтіру құралын қолдана аласыз, мысалы DataNumen Outlook Repair.

Автордың кіріспесі:

Ширли Чжан - деректерді қалпына келтіру бойынша сарапшы DataNumen, Соның ішінде деректерді қалпына келтіру технологиялары бойынша әлемдік көшбасшы болып табылатын Inc. жөндеу кв және бағдарламалық жасақтаманы жөндеу бағдарламалары. Қосымша ақпарат алу үшін кіріңіз WWW.datanumen.com