Outlook’ta orijinal e-postayı silmeden, şu anda düzenlediğiniz taslağı nasıl silersiniz?

Microsoft Outlook 2013 ve sonraki sürümleri, e-posta yanıtlarını varsayılan olarak Okuma Bölmesi’nde açar. Diyelim ki bir e-postaya yanıt yazdınız ve üç dakika sonra Outlook bu yanıtı otomatik olarak taslak olarak kaydetti. Ancak daha sonra yanıtı göndermemeye karar verdiniz ve ilgili taslağı sildiniz. Bazı kullanıcılar, taslağı Okuma Bölmesi’nden silmek için (aşağıdaki ekran görüntüsünde gösterildiği gibi) Giriş sekmesindeki Sil düğmesine tıklama alışkanlığı edinmiştir. Ancak bu işlem, orijinal e-postayı da aynı anda siler.

Bu öğreticide, Outlook’ta orijinal e-postayı silmeden şu anda düzenlediğiniz taslağı hızlıca silmenize yardımcı olmak üzere Hızlı Erişim Araç Çubuğu’na iki komut eklemeniz için iki VBA kodu sunuyoruz.

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

Okuma bölmesinde şu anda düzenlenen taslağı sil

E-postalara yanıt verirken okuma bölmesini kullanıyorsanız, Outlook’ta orijinal e-postayı silmeden şu anda düzenlediğiniz taslağı silmek için aşağıdaki VBA kodunu uygulayabilirsiniz.

1. Outlook'u başlatın ve Alt + F11 tuşlarına basarak Microsoft Visual Basic for Applications penceresini açın.

2. Microsoft Visual Basic for Applications penceresinde, Project1 > Microsoft Outlook Nesneleri > ThisOutlookSession öğesine çift tıklayarak ThisOutlookSession (Kod) penceresini açın. Ardından aşağıdaki VBA kodunu Kod penceresine kopyalayın.

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

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 Alt+Q tuşlarına basarak Microsoft Visual Basic for Applications penceresini kapatın.

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

4. Hızlı Erişim Araç Çubuğunu ÖzelleştirDiğer Komutlar seçeneğine tıklayın.

5. Outlook Seçenekleri iletişim kutusunu aşağıdaki gibi yapılandırmanız gerekir.

6. Sağ kutuda betiği seçili tutun ve ardından Değiştir düğmesine tıklayın. Düğmeyi Değiştir iletişim kutusunda betiğe yeni bir düğme atayın ve Tamam

7. Tamam'a tıklayarak değişiklikleri kaydedin ve Outlook Seçenekleri iletişim kutusunu kapatın.

6 numaralı adımda belirttiğiniz düğme, ardından Hızlı Erişim Araç Çubuğu'na eklenir.

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

Artık okuma bölmesinde bir e-postaya yanıt verirken, Hızlı Erişim Araç Çubuğu’ndaki düğmeye tıklayarak hem yanıtı hem de taslağı birlikte silebilirsiniz.

Not: Betiği çalıştırdıktan sonra, Geçerli Klasör’deki posta görünümünü yenilemek için E-posta Listesi’nden başka bir e-posta seçmeniz gerekir.

Outlook’ta Yapay Zekâlı Posta Asistanı: Daha Akıllı Yanıtlar, Daha Net İletişim (tek tıkla sihir!)

Günlük Outlook görevlerinizi Kutools for Outlook’un Yapay Zekâlı Posta Asistanı ile kolaylaştırın. Bu güçlü araç, geçmiş e-postalarınızdan öğrenerek akıllı ve doğru yanıtlar sunar, e-posta içeriğinizi optimize eder ve mesajlarınızı zahmetsizce taslak haline getirip düzenlemenize yardımcı olur.

Bu özellik şunları destekler:

• Akıllı Yanıtlar: Geçmiş sohbetlerinize dayanarak oluşturulan, özelleştirilmiş, net ve hemen kullanıma hazır yanıtlar alın.
• Geliştirilmiş İçerik: E-posta metninizi açıklık ve etki açısından otomatik olarak iyileştirin.
• Zahmetsiz Yazım: Anahtar kelimeleri girin, gerisini çoklu Yazı Stiliyle yapay zeka halletsin.
• Akıllı Uzantılar: Bağlama duyarlı önerilerle fikirlerinizi daha da geliştirin.
• Özetleme: Uzun e-postaların anında kısa ve öz özetlerini alın.
• Küresel Erişim: E-postalarınızı istediğiniz dile kolayca çevirin.

Bu özellik şunları destekler:

• Akıllı e-posta yanıtları
• İyileştirilmiş içerik
• Anahtar kelimeye dayalı taslaklar
• Akıllı içerik uzantısı
• E-posta özetleme
• Çok dilli çeviri

Beklemeyin—Yapay Zekâlı Posta Asistanı’nı şimdi indirin ve!

a name="a2"> Yeni bir pencerede şu anda düzenlenen taslağı sil

Yeni bir pencerede e-postalara yanıt vermeyi tercih ediyorsanız, aşağıdaki VBA kodu, Outlook’ta yanıt e-postasını ve taslağını kolayca silmenize yardımcı olabilir.

1. Outlook'u başlatın ve Alt+F11 tuşlarına basarak Microsoft Visual Basic for Applications penceresini açın.

2. Ekle > Modül seçeneğine tıklayın. 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. Alt+F11 tuşlarına basarak Microsoft Visual Basic for Applications penceresini kapatın.

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

4. Giriş > Yeni E-posta seçeneğine tıklayarak yeni bir e-posta oluşturun. İleti penceresinde, Hızlı Erişim Araç Çubuğunu Özelleştir > Diğer Komutlar seçeneğine tıklayın.

5. Ardından yukarıdaki adımları 5 ile 7 arasında tekrarlayarak betik için bir düğme oluşturun ve bunu ileti penceresinin Hızlı Erişim Araç Çubuğu'na ekleyin.

Artık yeni bir ileti penceresinde bir e-postaya yanıt verirken, Hızlı Erişim Araç Çubuğu'ndaki düğmeye tıklayarak bu yanıtı ve taslağı birlikte silebilirsiniz.

---

En İyi Office Verimlilik Araçları

Yepyeni Kutools for Outlook’i 100+ inanılmaz özelliğiyle deneyimleyin!Şimdi indirmek için tıklayın!

🤖KUTOOLS AI:E-postaları yanıtlama, özetleme, iyileştirme, uzatma, çevirme ve oluşturma dahil olmak üzere zahmetsizce yönetmek için gelişmiş yapay zeka teknolojisi kullanır.

📧E-posta Otomasyonu: Otomatik Yanıt (POP ve IMAP için kullanılabilir) / E-postaları Zamanlayarak Gönderme / E-posta Gönderirken Kurallara Göre Otomatik CC/BCC / Otomatik Yönlendirme (Gelişmiş Kurallar) / Otomatik Selam Eklemesi / Çok Alıcılı E-postaları Otomatik Olarak Bireysel Mesajlara Bölme…

📨E-posta Yönetimi:E-postayı Geri Çağırma, Konularına ve Diğer Özelliklerine Göre Dolandırıcı E-postaları Engelleme, Yinelenen E-postaları Silme, Gelişmiş Arama, Klasörleri Düzenleme…

📁Ekler Pro: Toplu Kaydetme, Toplu Ayırma, Toplu Sıkıştırma, Otomatik Kaydet, Otomatik Ayır, Otomatik Sıkıştır…

🌟Arayüz Büyüsü: 😊 Daha Güzel ve Havalı Emojiler / Önemli e-postalar geldiğinde sizi uyarır / Outlook’u Kapatmak Yerine Küçültür…

👍Tek Tıkla Harikalar: Tümüne Eklerle Yanıtla / Phishing E-postalarına Karşı Koruma / 🕘 Gönderenin Mevcut Saati ve Saat Dilimini Gösterme…

👩🏼‍🤝‍👩🏻Kişiler ve Takvim:Seçili E-postalardan Toplu Kişi Ekleme/Bir Kişi Grubunu Bireysel Gruplara Bölme/Doğum Günü Hatırlatıcısını Kaldırma…

Kutools’u tercih ettiğiniz dilde kullanın – İngilizce, İspanyolca, Almanca, Fransızca, Çince ve 40’tan fazla başka dil desteğiyle!

Kutools for Outlook’u tek bir tıklamayla anında etkinleştirin! Beklemeyin, hemen indirin ve verimliliğinizi artırın!

Kutools for Outlook Özellik Listesi      Şimdi İndir      Satın Alma Sayfasına Git

🚀 Tek Tıkla İndir — Tüm Office Eklentilerini Edinin

Kesinlikle Önerilir: Kutools for Office (5’li Paket)

Beş yükleyiciyi tek tıkla indirin beş yükleyiciyiaynı anda —Kutools for Excel, Outlook, Word, PowerPointve Office Tab Pro.Şimdi indirmek için tıklayın!

• ✅Tek tıkla kolaylık: Tüm beş kurulum paketini tek seferde indirin.
• 🚀Her Office görevine hazır: İhtiyacınız olduğunda, ihtiyacınız olan eklentileri yükleyin.
• 🧰İçerik: Kutools for Excel / Kutools for Outlook / Kutools for Word / Office Tab Pro / Kutools for PowerPoint

Paket Hakkında⬇ Paketi İndir💳 Paketi Satın Al