Bagaimana cara menghapus draf yang saat ini diedit tanpa menghapus email asli di Outlook?

Microsoft Outlook 2013 dan versi yang lebih baru membuka balasan email di panel baca secara default. Misalkan Anda membalas email dan setelah 3 menit Outlook secara otomatis menyimpan respons sebagai konsep. Tapi kemudian Anda memutuskan untuk tidak mengirim balasan ini dan menghapus draf bersamanya. Beberapa pengguna Outlook cenderung mengklik tombol Hapus di bawah tab Beranda untuk menghapus draf dari Panel Baca (lihat tangkapan layar di bawah). Namun tindakan ini juga menghapus email asli.

Dalam tutorial ini, kami menyediakan dua kode VBA untuk membantu Anda menambahkan dua perintah di Quick Access Toolbar untuk menghapus draf yang saat ini diedit dengan cepat tanpa menghapus email asli di Outlook.

Hapus draf yang saat ini diedit di panel baca
Hapus draf yang saat ini diedit di jendela baru

Hapus draf yang sedang diedit di panel baca

Jika Anda terbiasa membalas email di panel baca, Anda bisa menerapkan kode VBA berikut untuk menghapus draf yang saat ini diedit tanpa menghapus email asli di Outlook.

1. Luncurkan Outlook Anda, tekan lain + F11 kunci untuk membuka Microsoft Visual Basic untuk Aplikasi jendela.

2. Dalam Microsoft Visual Basic untuk Aplikasi jendela, klik dua kali Project1 > Objek Microsoft Outlook > Sesi Pandangan ini untuk membuka ThisOutlookSession (Kode) jendela. Kemudian salin kode VBA berikut ke jendela Kode.

Kode VBA: Hapus draf yang saat ini diedit di panel baca

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. Simpan kode dan tekan lain + Q kunci untuk menutup Microsoft Visual Basic untuk Aplikasi jendela.

Sekarang Anda memerlukan tombol untuk menjalankan makro.

4. klik Sesuaikan Bilah Alat Akses Cepat > Lebih Banyak Perintah.

5. Dalam Pilihan Outlook kotak dialog, Anda perlu mengkonfigurasi sebagai berikut.

5.1) Di Pilih perintah dari daftar drop-down, pilih makro;

5.2) Pilih makro yang Anda tambahkan di langkah sebelumnya;

5.3) Klik Add tombol untuk menambahkan makro ini ke Sesuaikan Bilah Alat Akses Cepat kotak.

6. Biarkan skrip tetap dipilih di kotak kanan, lalu klik tombol memodifikasi tombol. Dalam Ubah Tombol kotak dialog, tetapkan tombol baru ke skrip dan klik OK.

7. klik OK dalam Pilihan Outlook kotak dialog untuk menyimpan perubahan.

Tombol yang Anda tentukan di langkah 6 kemudian ditambahkan ke Quick Access Toolbar.

8. Mulai ulang Outlook untuk mengaktifkan kode.

Mulai sekarang, saat membalas email di panel baca, Anda dapat menghapus balasan beserta drafnya dengan mengeklik tombol di Bilah Alat Akses Cepat.

Catatan: Setelah menjalankan skrip, Anda harus memilih email lain di milis untuk menyegarkan tampilan email di folder saat ini.

Hapus draf yang saat ini diedit di jendela baru

Jika Anda ingin membalas email di jendela baru. Kode VBA berikut dapat membantu menghapus email balasan beserta draf dengan mudah di Outlook.

1. Luncurkan Outlook Anda, tekan lain + F11 kunci untuk membuka Microsoft Visual Basic untuk Aplikasi jendela.

2. klik Menyisipkan > Modul. Kemudian salin kode VBA berikut ke jendela Modul.

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. tekan lain + F11 untuk menutup Microsoft Visual Basic untuk Aplikasi jendela.

Sekarang Anda memerlukan tombol untuk menjalankan makro.

4. klik Beranda > email baru untuk membuat email baru. Di jendela pesan, klik Sesuaikan Bilah Alat Akses Cepat > Lebih Banyak Perintah.

5. Kemudian ulangi langkah di atas dari 5 hingga 7 untuk membuat tombol untuk skrip dan tambahkan ke Quick Access Toolbar dari jendela pesan.

Mulai sekarang, saat membalas email di jendela pesan baru, Anda dapat menghapus balasan ini beserta drafnya dengan mengeklik tombol di Bilah Alat Akses Cepat.