Outlook で、元のメールを削除せずに現在編集中の下書きを削除する方法は？

著者Siluvia変更日2024-09-13

Microsoft Outlook 2013 以降のバージョンでは、メールの返信が既定で読み取りウィンドウ内で開かれます。たとえば、メールに返信中にOutlook が3 分後にその返信を自動的に下書きとして保存したとします。その後、その返信を送信せずに下書きを削除しようとする場合、一部のユーザーは読み取りウィンドウから［ホーム］タブ下の［削除］ボタンをクリックして削除を試みます（以下のスクリーンショット参照）。しかし、この操作を行うと、元のメールも同時に削除されてしまいます。

本チュートリアルでは、Outlook で元のメールを削除せずに現在編集中の下書きを素早く削除できるよう、クイックアクセスツールバーに2 つのコマンドを追加するための VBA コードを2 つご紹介します。

読み取りウィンドウで現在編集中の下書きを削除
 新しいウィンドウで現在編集中の下書きを削除

読み取りウィンドウで現在編集中の下書きを削除

メールの返信を読み取りウィンドウ内で行う習慣がある場合は、次の VBA コードを適用すれば、Outlook で元のメールを削除することなく、現在編集中の下書きのみを削除できます。

1．Outlook を起動し、Alt+F11キーを押して、Microsoft Visual Basic for Applicationsウィンドウを開きます。

2．Microsoft Visual Basic for Applicationsウィンドウで、Project1 > Microsoft Outlook Objects > ThisOutlookSessionをダブルクリックして、ThisOutlookSession (Code)ウィンドウを開きます。その後、以下の 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．コードを保存し、Alt+Qキーを押して、Microsoft Visual Basic for Applicationsウィンドウを閉じます。

次に、マクロを実行するボタンが必要です。

4．クイックアクセスツールバーのカスタマイズで、その他のコマンドをクリックします。

5．Outlook のオプションダイアログボックスで、次のように設定してください。

5.1）コマンドの選択元ドロップダウンリストで、マクロ

5.2）前ステップで追加したマクロを選択します。

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

6．右側のボックスでスクリプトが選択された状態のまま、変更ボタンをクリックします。ボタンの変更ダイアログボックスで、このスクリプトに新しいボタンを割り当てて、OKをクリックします。

7．OKをクリックして、Outlook のオプションダイアログボックスを閉じ、変更を保存します。

たった6 ステップで、指定したボタンがクイックアクセスツールバーに追加されます！

8．コードを有効にするには、Outlook を再起動してください。

今後、読み取りウィンドウでメールに返信している際には、クイックアクセスツールバーのボタンをクリックするだけで、返信とその下書きを削除できます。

注：スクリプトを実行した後は、メールリストで別のメールを選択して、現在のフォルダー内のメール表示を更新してください。

Outlook の AI メールアシスタント：ワンクリックで魔法のように、よりスマートな返信と明確なコミュニケーションを実現！

Kutools for Outlook の AI メールアシスタントで、日々のOutlook タスクをもっと効率的に。この強力なツールは過去のメールから学習し、的確で知的な返信を提案したり、メールの内容を最適化したり、メッセージの下書きや修正を簡単にサポートします。

この機能は以下のサポートを提供します：

スマート返信：過去の会話に基づき、カスタマイズされ、正確で即使用可能な返信を取得できます。
コンテンツ強化：メール本文を自動で明確かつ効果的な内容にブラッシュアップします。
簡単作成：キーワードを入力するだけで、AI が複数の書式スタイルで残りの作業を自動処理します。
インテリジェント拡張：文脈を的確に捉えた提案であなたのアイデアをさらに広げます。
要約機能：長いメールを瞬時に簡潔な概要にまとめてくれます。
グローバル対応：メールをあらゆる言語に簡単に翻訳できます。

この機能は以下のサポートを提供します：

スマートメール返信
最適化されたコンテンツ
キーワードベースの下書き
インテリジェントなコンテンツ拡張
メール要約
多言語翻訳

今すぐ始めましょう—AI メールアシスタントを今すぐダウンロードして、AI メールアシスタントを今すぐダウンロード！

a name="a2"> 新しいウィンドウで現在編集中の下書きを削除

メールの返信を新しいウィンドウで行う場合、次の VBA コードを使えば、Outlook で返信メールとその下書きを簡単に削除できます。

1．Outlook を起動し、Alt+F11キーを押してMicrosoft Visual Basic for Applicationsウィンドウを開きます。

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．Alt+F11キーを押して、Microsoft Visual Basic for Applicationsウィンドウを閉じます。

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

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

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

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

最高の Office 生産性ツール

まったく新しいKutools for Outlook を、100 以上の驚きの機能とともに体験しましょう！今すぐダウンロード！

🤖KUTOOLS AI：高度な AI 技術を活用して、メールの返信、要約、最適化、拡張、翻訳、作成など、あらゆる操作をラクラクこなします。

📧メール自動化：自動返信（POP および IMAP 対応）/メールのスケジュール送信/メール送信時にルールに基づいて自動 CC/BCC/自動転送（高度なルール）/自動で挨拶文を追加/複数の宛先を持つメールを個別のメッセージに自動分割...

📨メール管理：メールの取り消し/件名などを基準に詐欺メールをブロック/重複したメールを削除/高度な検索/フォルダーを整理...

📁添付ファイルプロ：一括保存/一括分離/一括圧縮/自動保存/自動的に切り離す/自動圧縮...

🌟インターフェースの魅力：😊さらに美しくクールな絵文字を多数収録/重要なメールが届いた際に通知/Outlook を閉じる代わりに最小化...

👍ワンクリックの驚き：全員に【Attachment】付きで返信/フィッシングメール対策/🕘送信者の現在時刻ゾーンを表示...

👩🏼‍🤝‍👩🏻連絡先とカレンダー：選択したメールから連絡先を追加を一括登録/連絡先グループを個別のグループに分割/誕生日のリマインダーを削除...

Kutools はお好みの言語でお使いいただけます！英語、スペイン語、ドイツ語、フランス語、中国語をはじめ、40 以上の言語をサポートしています！

ワンクリックでKutools for Outlook の機能を即解放！今すぐダウンロードして、効率を飛躍的にアップさせましょう！

Kutools for Outlook の機能一覧今すぐダウンロード購入ページへ

🚀 ワンクリックダウンロード — Office アドインをすべて入手

強く推奨：Kutools for Office（5-in-1）

ワンクリックで5 つのインストーラーを 一括ダウンロード！ ―Kutools for Excel、Outlook、Word、PowerPointおよびOffice Tab Pro。今すぐダウンロード！

✅ワンクリックで簡単操作：5 つのセットアップパッケージをたった1 回のクリックで一括ダウンロードできます。
🚀どんな Office 作業にも対応可能：必要なときに、必要なアドインをすぐインストールできます。
🧰含まれるもの：Kutools for Excel / Kutools for Outlook / Kutools for Word / Office Tab Pro / Kutools for PowerPoint

スイートについて ⬇ スイートをダウンロード 💳 スイートを購入