Ana içeriğe atla

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 Ana Sayfa > 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.


En İyi Ofis Üretkenlik Araçları

Outlook için Kutools - Outlook'unuzu Güçlendirecek 100'den Fazla Güçlü Özellik

🤖 AI Posta Yardımcısı: Yapay zeka büyüsüyle anında profesyonel e-postalar: tek tıkla dahice yanıtlar, mükemmel ton, çok dilli ustalık. E-posta göndermeyi zahmetsizce dönüştürün! ...

???? E-posta Otomasyonu: Ofis Dışında (POP ve IMAP için kullanılabilir)  /  E-posta Gönderimini Planla  /  E-posta Gönderirken Kurallara Göre Otomatik CC/BCC  /  Otomatik İletme (Gelişmiş Kurallar)   /  Otomatik Karşılama Ekleme   /  Çok Alıcılı E-postaları Otomatik Olarak Bireysel Mesajlara Bölün ...

📨 E-posta Yönetimi: E-postaları Kolayca Geri Çağırın  /  Dolandırıcılık E-postalarını Konulara ve Diğerlerine Göre Engelleyin  /  Yinelenen E-postaları Silin  /  gelişmiş Arama  /  Klasörleri Birleştir ...

📁 Ekler ProToplu Kaydetme  /  Toplu Ayır  /  Toplu Sıkıştırma  /  Otomatik kaydet   /  Otomatik Ayır  /  Otomatik Sıkıştır ...

🌟 Arayüz Büyüsü: 😊Daha Fazla Güzel ve Havalı Emoji   /  Sekmeli Görünümlerle Outlook Verimliliğinizi Artırın  /  Outlook'u Kapatmak Yerine Küçültün ...

👍 Tek Tıklamayla Harikalar: Tümünü Gelen Eklerle Yanıtla  /   Kimlik Avına Karşı E-postalar  /  🕘Gönderenin Saat Dilimini Göster ...

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

üzerinde 100 Özellikler Keşfinizi Bekleyin! Daha Fazlasını Keşfetmek İçin Buraya Tıklayın.

 

 

Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations