Outlookで元の電子メールを削除せずに、現在編集されている下書きを削除するにはどうすればよいですか？

Microsoft Outlook 2013以降のバージョンでは、既定で閲覧ウィンドウで電子メールの返信が開きます。電子メールに返信していて、3分後にOutlookが自動的に返信を下書きとして保存するとします。ただし、この返信を送信せず、ドラフトを一緒に削除することにしました。一部のOutlookユーザーは、[ホーム]タブの下にある[削除]ボタンをクリックして、閲覧ウィンドウから下書きを削除する傾向があります（下のスクリーンショットを参照）。ただし、このアクションにより、元の電子メールも削除されます。

このチュートリアルでは、XNUMXつのVBAコードを提供して、クイックアクセスツールバーにXNUMXつのコマンドを追加し、Outlookで元の電子メールを削除せずに現在編集中のドラフトをすばやく削除できるようにします。

閲覧ウィンドウで現在編集中のドラフトを削除します
 現在編集中のドラフトを新しいウィンドウで削除します

閲覧ウィンドウで現在編集中のドラフトを削除します

閲覧ウィンドウでメールに返信することに慣れている場合は、次のVBAコードを適用して、Outlookで元のメールを削除せずに、現在編集中の下書きを削除できます。

1. Outlookを起動し、を押します他の + F11 キーを押して アプリケーション向け Microsoft Visual Basic 窓。

2。の中に アプリケーション向け Microsoft Visual Basic ウィンドウ、ダブルクリック Project1 > MicrosoftOutlookオブジェクト > このOutlookSession を開く ThisOutlookSession（コード） 窓。次に、次のVBAコードをコードウィンドウにコピーします。

VBAコード：閲覧ウィンドウで現在編集されているドラフトを削除します

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.コードを保存して、他の + Q を閉じるためのキー アプリケーション向け Microsoft Visual Basic 窓。

ここで、マクロを実行するためのボタンが必要です。

4。クリック クイックアクセスツールバーをカスタマイズする > その他のコマンド.

5。の中に Outlookのオプション ダイアログボックスでは、次のように構成する必要があります。

5.1） からのコマンドを選択 ドロップダウンリスト、選択 マクロ;

5.2）前の手順で追加したマクロを選択します。

5.3）をクリックします追加このマクロをに追加するボタン クイックアクセスツールバーをカスタマイズする ボックス。

6.右側のボックスでスクリプトを選択したままにして、[ 修正します ボタン。の中に 変更ボタン ダイアログボックスで、スクリプトに新しいボタンを割り当て、クリックします [OK]をクリックします。

7。クリック OK Outlookのオプション 変更を保存するためのダイアログボックス。

次に、手順6で指定したボタンがに追加されます。 クイックアクセスツールバー.

8. Outlookを再起動して、コードをアクティブにします。

これ以降、閲覧ウィンドウでメールに返信する場合は、クイックアクセスツールバーのボタンをクリックして、下書きと一緒に返信を削除できます。

注意： スクリプトを実行した後、現在のフォルダのメールビューを更新するには、メーリングリストで別の電子メールを選択する必要があります。

現在編集中のドラフトを新しいウィンドウで削除します

新しいウィンドウでメールに返信したい場合。次のVBAコードは、Outlookで下書きと一緒に返信メールを簡単に削除するのに役立ちます。

1. Outlookを起動し、を押します他の + F11 キーを押して アプリケーション向け Microsoft Visual Basic 窓。

2。クリック インセット > モジュール。 次に、次のVBAコードをモジュールウィンドウにコピーします。

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。プレス他の + F11 を閉じる アプリケーション向け Microsoft Visual Basic 窓。

ここで、マクロを実行するためのボタンが必要です。

4。クリック ホーム > 新しいメール 新しいメールを作成します。メッセージウィンドウで、をクリックします クイックアクセスツールバーをカスタマイズする > その他のコマンド.

5.次に、上記の手順を繰り返します スクリプトのボタンを作成するには、5から7まで に追加します クイックアクセスツールバー メッセージウィンドウの。

今後、新しいメッセージウィンドウでメールに返信する場合は、クイックアクセスツールバーのボタンをクリックして、下書きと一緒にこの返信を削除できます。

Kutools for Outlook-100の高度な機能をOutlookにもたらし、作業をはるかに簡単にします！

自動CC / BCC メール送信時のルールによる。自動転送カスタムによる複数の電子メール。自動返信 Exchangeサーバーなし、およびより多くの自動機能...
BCC警告 -全員に返信しようとするとメッセージを表示するメールアドレスがBCCリストにある場合; 添付ファイルがない場合に通知する、その他の機能を思い出させる...
メール会話のすべての添付ファイルで（すべて）返信; 多くのメールに返信するすぐに; あいさつを自動追加返信するとき; 件名に日付を追加...
添付ファイルツール：すべてのメールのすべての添付ファイルを管理し、自動デタッチ, すべて圧縮、すべての名前を変更、すべて保存...クイックレポート、選択したメールを数える...
強力な迷惑メール習慣による; 重複するメールと連絡先を削除する... Outlookでよりスマートに、より速く、より良くすることができます。