Orijinal e-poçtu Outlook-da cavablandırdıqdan sonra avtomatik silmək üçün 2 qısa məsləhət

Bəzi istifadəçilər orijinal e-poçtu cavablandırdıqdan sonra silməyi üstün tuturlar, çünki cavabda orijinal e-poçtun məlumatı var. Bu məqalə onu avtomatik həyata keçirmək üçün 2 sürətli vasitəni paylaşacaq.

Varsayılan olaraq, Outlook avtomatik olaraq cavaba orijinal mesajı daxil etmək üçün qurulub. Bu halda, bir çox istifadəçi cavabı yalnız poçt qutusunda qoyaraq orijinal mesajı silmək istəyir. Bu, nəinki onların poçt qutusunu kiçik ölçüdə saxlaya bilər, həm də onların e-poçtlarını qaydasına sala bilər. Orijinal e-poçtları əl ilə silmək istəmirsinizsə, onu avtomatlaşdırmaq üçün aşağıdakı 2 hiylədən istifadə edə bilərsiniz.

İpucu 1: Quick Step istifadə edin

Outlook, aşağıdakı şəkildəki kimi yerli sürətli "Cavab və Sil" addımı ilə gəlir. Bu sürətli addım orijinal mesajı avtomatik silə və üzərinə kliklədiyiniz zaman cavabı göstərə bilər.

Əgər bu sürətli addımı tapa bilmirsinizsə, çox güman ki, onu əvvəllər təsadüfən silmisiniz. Siz həmçinin aşağıdakı addımları yerinə yetirərək onu yenidən yarada bilərsiniz.

1. Əvvəlcə “Quick Steps” qrupunda “Create New” düyməsini sıxın.
2. Sonra açılan informasiya qutusunda ona “Cavab ver və sil” kimi bir ad təyin edin.
3. Sonra, "Fəaliyyətlər" bölməsində "Cavab" seçin.
4. Sonra, "Fəaliyyət əlavə et" düyməsini basın.
5. Və sonra "Mesajı Sil" hərəkətini əlavə edin.
6. Sonda "Saxla" düyməsini basın.

Bu yolla, e-poçtlara cavab vermək üçün həmişə bu sürətli addımdan istifadə etməlisiniz. Əgər siz hələ də “Cavab ver” qrupunda standart “Cavab ver” düyməsini istifadə edərək “Cavab və Sil”ə nail olmaq istəyirsinizsə, aşağıdakı vasitələrə müraciət edə bilərsiniz.

İpucu 2: Outlook VBA-dan istifadə edin

1. İlk növbədə, Outlook-da "Alt + F11" düymələrini basın.
2. Sonra növbəti VBA redaktoru pəncərəsində “ThisOutlookSession” layihəsini açın.
3. Sonra aşağıdakı VBA kodlarını kopyalayın və daxil edin.

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

4. Bundan sonra bu kodu rəqəmsal olaraq imzalayın.
5. Bundan əlavə, rəqəmsal imzalanmış makrolara icazə vermək üçün Outlook makro parametrlərinizi dəyişdirməyi unutmayın.
6. Nəhayət, yeni VBA layihəsini aktivləşdirmək üçün Outlook-u yenidən başladın. Bundan sonra standart "Cavab ver" düyməsinə basaraq bir e-poçta cavab verdiyiniz zaman orijinal e-poçt avtomatik olaraq silinəcək.

Təhlükəli Outlook məlumatlarınızı bərpa edin

Birdən qarşılaşsanız Outlook zərər Gözlənilmədən, Outlook məlumatlarınızı bərpa etmək üçün əlinizdən gələni etməlisiniz. Həmişəki kimi, ən yaxşı və ən sadə üsul ehtiyat nüsxələrindən bərpa etməkdir. Lakin cari məlumat ehtiyat nüsxəniz yoxdursa, təcrübəli bir bərpa vasitəsinə müraciət 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 mdf bərpası və Outlook təmiri proqram məhsulları. Ətraflı məlumat üçün ziyarət edin www.datanumen.com