Note: The other languages of the website are Google-translated. Back to English

Outlook'ta orijinal e-postayı silmeden şu anda düzenlenmiş taslak nasıl silinir?

Microsoft Outlook 2013 ve sonraki sürümleri, varsayılan olarak okuma bölmesinde e-posta yanıtlarını açar. Bir e-postayı yanıtladığınızı ve 3 dakika sonra Outlook'un yanıtı otomatik olarak taslak olarak kaydettiğini varsayalım. Ama sonra bu yanıtı göndermemeye ve taslağı onunla birlikte silmeye karar verdiniz. Bazı Outlook kullanıcıları, taslağı Okuma Bölmesi'nden silmek için Giriş sekmesinin altındaki Sil düğmesini tıklama eğilimindedir (aşağıdaki ekran görüntüsüne bakın). Ancak bu eylem, orijinal e-postayı da siler.

Bu öğreticide, Outlook'ta orijinal e-postayı silmeden, halihazırda düzenlenen taslağı hızlı bir şekilde silmek için Hızlı Erişim Araç Çubuğuna iki komut eklemenize yardımcı olacak iki VBA kodu sağlıyoruz.

Okuma bölmesinde şu anda düzenlenen taslağı sil
Şu anda düzenlenen taslağı yeni bir pencerede sil


Okuma bölmesinde düzenlenmekte olan taslağı sil

Okuma bölmesinde e-postaları yanıtlamaya alışkınsanız, Outlook'ta orijinal e-postayı silmeden şu anda düzenlenen taslağı silmek için aşağıdaki VBA kodunu uygulayabilirsiniz.

1. Outlook'unuzu başlatın, Ara Toplam + F11 tuşlarını açmak için Uygulamalar için Microsoft Visual Basic pencere.

2. içinde Uygulamalar için Microsoft Visual Basic pencere, çift tıklama Project1 > Microsoft Outlook Nesneleri > Bu OutlookOturumu açmak için ThisOutlookSession (Kod) pencere. Ardından aşağıdaki VBA kodunu Kod penceresine kopyalayın.

VBA kodu: Okuma bölmesinde şu anda düzenlenen taslağı silin

Public WithEvents GExplorer As Explorer
'Updated by Extendoffice 20220713
Public WithEvents GInlineMail As MailItem
Private Sub Application_Startup()
  Set GExplorer = Application.ActiveExplorer
End Sub
Private Sub GExplorer_InlineResponse(ByVal Item As Object)
  Set GInlineMail = Item
End Sub
Sub InlineDiscard()
  On Error Resume Next
  If Not GInlineMail Is Nothing And Not GInlineMail.Sent Then
    GInlineMail.UnRead = False
    GInlineMail.Delete
  End If
  Set GInlineMail = Nothing
End Sub

3. Kodu kaydedin ve Ara Toplam + Q kapatmak için anahtarlar Uygulamalar için Microsoft Visual Basic pencere.

Şimdi makroyu çalıştırmak için bir düğmeye ihtiyacınız var.

4. tık Hızlı erişim araç çubuğunu özelleştir > Daha Komutlar.

5. içinde Outlook Seçenekleri iletişim kutusu, aşağıdaki gibi yapılandırmanız gerekir.

5.1) içinde Komutları seçin açılan listeden Makrolar;
5.2) Önceki adımda eklediğiniz makroyu seçin;
5.3) Ekle Bu makroyu eklemek için düğme Hızlı erişim araç çubuğunu özelleştir kutu.

6. Komut dosyasını sağdaki kutuda seçili tutun ve ardından değiştirmek buton. İçinde Değiştir Düğmesi iletişim kutusunda, komut dosyasına yeni bir düğme atayın ve Tamam.

7. tık OK içinde Outlook Seçenekleri değişiklikleri kaydetmek için iletişim kutusu.

6. adımda belirttiğiniz düğme daha sonra Hızlı Erişim Araç Çubuğu.

8. Kodu etkinleştirmek için Outlook'u yeniden başlatın.

Artık okuma bölmesinde bir e-postayı yanıtlarken, Hızlı Erişim Araç Çubuğundaki düğmesine tıklayarak yanıtı taslakla birlikte silebilirsiniz.

Not: Komut dosyasını çalıştırdıktan sonra, mevcut klasördeki posta görünümünü yenilemek için posta listesinde başka bir e-posta seçmeniz gerekir.


Şu anda düzenlenen taslağı yeni bir pencerede sil

E-postaları yeni bir pencerede yanıtlamak isterseniz. Aşağıdaki VBA kodu, yanıt e-postasını taslakla birlikte Outlook'ta kolayca silmeye yardımcı olabilir.

1. Outlook'unuzu başlatın, Ara Toplam + F11 tuşlarını açmak için Uygulamalar için Microsoft Visual Basic pencere.

2. tık Ekle > Modülü. Ardından aşağıdaki VBA kodunu Modül penceresine kopyalayın.

Sub DeleteDraftMessageWindow()
'Updated by Extendoffice 20220713
  Dim xInspector As Inspector
  Dim xMail As MailItem
  On Error Resume Next
  Set xInspector = Application.ActiveInspector
  If xInspector Is Nothing Then Exit Sub
  Set xMail = xInspector.CurrentItem
  If Not xMail.Sent Then
    xMail.UnRead = False
    xMail.Delete
  End If
End Sub

3. Tuşuna basın. Ara Toplam + F11 kapatmak için Uygulamalar için Microsoft Visual Basic pencere.

Şimdi makroyu çalıştırmak için bir düğmeye ihtiyacınız var.

4. tık Home > yeni e-posta Yeni bir e-posta oluşturmak için Mesaj penceresinde, Hızlı erişim araç çubuğunu özelleştir > Daha Komutlar.

5. Ardından yukarıdaki adımları tekrarlayın komut dosyası için bir düğme oluşturmak için 5'ten 7'ye ve onu ekle Hızlı Erişim Araç Çubuğu mesaj penceresinin

Artık yeni bir mesaj penceresinde bir e-postayı yanıtlarken, Hızlı Erişim Araç Çubuğundaki düğmesine tıklayarak bu yanıtı taslakla birlikte silebilirsiniz.


Outlook için Kutools - Outlook'a 100 Gelişmiş Özellik Getirir ve Çalışmayı Çok Daha Kolay Hale Getirir!

  • Otomatik CC / BCC e-posta gönderirken kurallara göre; Otomatik İleri Özel olarak birden çok E-posta; Otomatik cevap değişim sunucusu olmadan ve daha fazla otomatik özellik ...
  • BCC Uyarısı - tümünü yanıtlamaya çalıştığınızda mesaj göster posta adresiniz BCC listesindeyse; Eksik Olduğunda Hatırlatve daha fazlası özellikleri hatırlat ...
  • Posta görüşmesindeki Tüm Eklerle Yanıtla (Tümü); Birçok E-postayı Yanıtla saniyeler içinde; Otomatik Karşılama Ekleme cevap verdiğinde; Konuya Tarih Ekle ...
  • Ek Araçları: Tüm Postalardaki Tüm Ekleri Yönetin, Otomatik Ayır, Tümünü Sıkıştır, Tümünü Yeniden Adlandır, Tümünü Kaydet ... Hızlı Rapor, Seçili Postaları Say...
  • Güçlü Önemsiz E-postalar özel olarak; Yinelenen Postaları ve Kişileri Kaldır... Outlook'ta daha akıllı, daha hızlı ve daha iyi yapmanızı sağlar.
shot kutools görünüm kutools sekmesi 1180x121
shot kutools görünüm kutools artı sekme 1180x121
 
Yorumları sıralama ölçütü
Yorumlar (0)
Henüz derecelendirme yok. İlk değerlendiren siz olun!
Buraya henüz hiç yorum yapılmamış
Lütfen yorum yazın
Misafir olarak yayınlama
×
Bu gönderiyi değerlendirin:
0   Karakterler
Önerilen Konumlar