Кейбір пайдаланушылар жауапта түпнұсқа электрондық пошта туралы ақпарат болған жағдайда жауап бергеннен кейін түпнұсқалық электрондық поштаны жойғанды жөн көреді. Бұл мақалада оны автоматты түрде жүзеге асырудың 2 жылдам құралы туралы айтылады.
Әдепкі бойынша, Outlook бағдарламасы жауаптың түпнұсқасын автоматты түрде қосуға орнатылған. Бұл жағдайда көптеген пайдаланушылар хабарламаның түпнұсқасын жойғысы келеді, тек жауапты өздерінің пошта жәшігінде қалдырады. Бұл олардың пошта жәшігін кішігірім мөлшерде ұстап қана қоймай, сонымен қатар олардың электрондық хаттарын ретке келтіре алады. Егер сіз түпнұсқалық хаттарды қолмен жоюға құлықсыз болсаңыз, оны автоматтандыру үшін келесі 2 әдісті қолдануға болады.
1-кеңес: Жылдам қадамды қолданыңыз
Outlook бағдарламасы келесі суреттегідей «Жауап беру және жою» жергілікті жылдам қадамымен келеді. Бұл жылдам қадам түпнұсқа хабарламаны автоматты түрде жоя алады және оны басқан кезде жауапты көрсете алады.
Егер сіз бұл жылдам қадамды таба алмасаңыз, оны кездейсоқ жойған болуыңыз әбден мүмкін. Сіз оны төмендегі әрекеттерді орындау арқылы қайта жасай аласыз.
- Біріншіден, «Жылдам қадамдар» тобындағы «Жаңа жасау» батырмасын басыңыз.
- Содан кейін қалқымалы диалог терезесінде оған «Жауап беру және Жою» сияқты атау беріңіз.
- Әрі қарай, «Әрекеттер» бөлімінде «Жауап беру» тармағын таңдаңыз.
- Содан кейін «Әрекет қосу» батырмасын басыңыз.
- Содан кейін «Хабарды жою» әрекетін қосыңыз.
- Соңында «Сақтау» батырмасын басыңыз.
Осылайша, сіз электрондық поштаға жауап беру үшін әрдайым осы жылдам қадамды қолданыңыз. Егер сіз «Жауап беру» тобындағы «Жауап беру» стандартты батырмасын «Жауап беру және жою» мақсатына жетуді қаласаңыз, келесі құралдарға жүгіне аласыз.
2-кеңес: Outlook VBA қолданыңыз
- Біріншіден, Outlook бағдарламасындағы «Alt + F11» батырмаларын басыңыз.
- Содан кейін 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_SelectionChange()
On Error Resume Next
If TypeOf Application.ActiveExplorer.Selection.Item(1) Is MailItem Then
Set objMail = Application.ActiveExplorer.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
Private Sub objMail_Reply(ByVal Response As Object, Cancel As Boolean)
objMail.Delete
'If you want to only delete the specific email when replying it
'You can specify the condition of the email as per your needs
'like the following lines
'If (InStr(LCase(objMail.Subject), "test") > 0) Then
' objMail.Delete
'End If
End Sub
- Осыдан кейін осы кодқа сандық қол қойыңыз.
- Сонымен қатар, сандық қолтаңбалы макростарға рұқсат беру үшін Outlook макро параметрлерін өзгертуді ұмытпаңыз.
- Жаңа VBA жобасын белсендіру үшін Outlook бағдарламасын қайта іске қосыңыз. Енді электрондық поштаға стандартты «Жауап беру» түймесін басу арқылы жауап берген кезде, түпнұсқа электрондық пошта автоматты түрде жойылады.
Келісімге қатысты деректерді қалпына келтіріңіз
Егер сіз кенеттен кездессеңіз Перспективаның бұзылуы күтпеген жерден, Outlook деректеріңізді қалпына келтіруге тырысуыңыз керек. Әдеттегідей, ең жақсы және ең қарапайым тәсіл - сақтық көшірмелерден қалпына келтіру. Бірақ егер сізде ағымдағы деректердің сақтық көшірмесі болмаса, тәжірибелі қалпына келтіру құралына қайта оралуға болады, мысалы DataNumen Outlook Repair.
Автордың кіріспесі:
Ширли Чжан - деректерді қалпына келтіру бойынша сарапшы DataNumen, Соның ішінде деректерді қалпына келтіру технологиялары бойынша әлемдік көшбасшы болып табылатын Inc. mdf қалпына келтіру және бағдарламалық жасақтаманы жөндеу бағдарламалары. Қосымша ақпарат алу үшін кіріңіз WWW.datanumen.com