Orijinal E-postayı Outlook'ta Yanıtladıktan Sonra Otomatik Olarak Silmek İçin 2 Hızlı İpucu

Bazı kullanıcılar, yanıtın orijinal e-postanın bilgilerini içerdiği için yanıtladıktan sonra orijinal e-postayı silmeyi tercih eder. Bu makale, bunu otomatik olarak gerçekleştirmenin 2 hızlı yolunu paylaşacak.

Varsayılan olarak Outlook, yanıta orijinal iletiyi otomatik olarak dahil edecek şekilde ayarlanmıştır. Bu durumda, birçok kullanıcı orijinal mesajı silmek ve yalnızca yanıtı posta kutularında bırakmak ister. Bu sadece posta kutularını küçük tutmakla kalmaz, aynı zamanda e-postalarını da düzene sokar. Orijinal e-postaları manuel olarak silmek konusunda isteksizseniz, otomatikleştirmek için aşağıdaki 2 numarayı kullanabilirsiniz.

1. İpucu: Hızlı Adım'ı kullanın

Outlook, aşağıdaki görüntü gibi yerel bir hızlı adım olan "Yanıtla ve Sil" ile birlikte gelir. Bu hızlı adım, orijinal mesajı otomatik olarak silebilir ve üzerine tıkladığınızda bir yanıt görüntüleyebilir.

Bu hızlı adımı bulamazsanız, daha önce yanlışlıkla silmiş olmanız çok muhtemeldir. Ayrıca aşağıdaki adımları izleyerek yeniden oluşturabilirsiniz.

1. İlk olarak “Hızlı Adımlar” grubunda “Yeni Oluştur” butonuna tıklayın.
2. Ardından, açılan iletişim kutusunda ona "Yanıtla ve Sil" gibi bir ad atayın.
3. Ardından, "Eylemler" bölümünde "Yanıtla" yı seçin.
4. Daha sonra “Eylem Ekle” butonuna tıklayın.
5. Ardından "Mesajı Sil" eylemini ekleyin.
6. Son olarak “Kaydet” düğmesine basın.

Bu sayede, e-postaları yanıtlamak için her zaman bu hızlı adımı kullanmalısınız. "Yanıtla ve Sil"i gerçekleştirmek için "Yanıtla" grubundaki standart "Yanıtla" düğmesini yine de kullanmak istiyorsanız, aşağıdaki yollara başvurabilirsiniz.

2. İpucu: Outlook VBA'yı kullanın

1. İlk olarak Outlook'ta “Alt + F11” tuşlarına basın.
2. Ardından, sonraki VBA düzenleyici penceresinde “ThisOutlookSession” projesini açın.
3. Sonra aşağıdaki VBA kodlarını kopyalayıp yapıştırın.

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 dijital olarak imzalayın.
5. Ayrıca, dijital olarak imzalanmış makrolara izin vermek için Outlook makro ayarlarınızı değiştirmeyi unutmayın.
6. Son olarak, yeni VBA projesini etkinleştirmek için Outlook'u yeniden başlatın. Bundan sonra, standart "Yanıtla" düğmesine basarak bir e-postaya yanıt verdiğinizde, orijinal e-posta otomatik olarak silinecektir.

Ele Geçirilmiş Outlook Verilerinizi Kurtarın

ani karşılaşırsanız Görünüm hasarı Beklenmedik bir şekilde, Outlook verilerinizi kurtarmak için elinizden gelenin en iyisini yapmanız gerekir. Her zamanki gibi, en iyi ve en basit yöntem yedeklerden geri yüklemektir. Ancak güncel bir veri yedeğiniz yoksa, deneyimli bir onarım aracına da başvurabilirsiniz, örneğin... DataNumen Outlook Repair.

Yazar Tanıtımı:

Shirley Zhang, bir veri kurtarma uzmanıdır. DataNumendahil olmak üzere veri kurtarma teknolojilerinde dünya lideri olan , Inc. mdf kurtarma ve görünüm onarım yazılım ürünleri. Daha fazla bilgi için ziyaret edin www.datanumen.com