Note: The other languages of the website are Google-translated. Back to English

Як видалити поточну редаговану чернетку, не видаляючи вихідну електронну пошту в Outlook?

Microsoft Outlook 2013 і новіші версії за замовчуванням відкривають відповіді на електронні листи в області читання. Припустімо, що ви відповідаєте на електронний лист, і через 3 хвилини Outlook автоматично зберігає відповідь як чернетку. Але потім ви вирішуєте не надсилати цю відповідь і видаляєте чернетку разом із нею. Деякі користувачі Outlook зазвичай натискають кнопку «Видалити» на вкладці «Головна», щоб видалити чернетку з панелі читання (див. знімок екрана нижче). Але ця дія також видаляє оригінальний електронний лист.

У цьому підручнику ми надаємо два коди VBA, які допоможуть вам додати дві команди на панель швидкого доступу, щоб швидко видалити редаговану чернетку, не видаляючи вихідну електронну пошту в Outlook.

Видалити редаговану чернетку на панелі читання
Видаліть редаговану чернетку в новому вікні


Видалити поточну редаговану чернетку на панелі читання

Якщо ви звикли відповідати на електронні листи в області читання, ви можете застосувати наведений нижче код VBA, щоб видалити поточну відредаговану чернетку, не видаляючи оригінальний електронний лист в Outlook.

1. Запустіть Outlook, натисніть інший + F11 ключі, щоб відкрити Microsoft Visual Basic для додатків вікна.

2 В Microsoft Visual Basic для додатків вікно, двічі клацніть Project1 > Об'єкти Microsoft Outlook > ThisOutlookSession відкрити 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. Залиште сценарій вибраним у правому полі, а потім клацніть Змінювати кнопку. В Кнопка зміни діалоговому вікні, призначте нову кнопку для сценарію та натисніть ОК.

7. клацання OK в Параметри Outlook діалогове вікно, щоб зберегти зміни.

Потім кнопка, яку ви вказали на кроці 6, додається до Панель швидкого доступу.

8. Перезапустіть Outlook, щоб активувати код.

Відтепер, відповідаючи на електронний лист на панелі читання, ви можете видалити відповідь разом із чернеткою, натиснувши кнопку на панелі швидкого доступу.

Примітка: Після запуску сценарію вам потрібно вибрати інший електронний лист у списку розсилки, щоб оновити перегляд електронної пошти в поточній папці.


Видаліть редаговану чернетку в новому вікні

Якщо ви хочете відповідати на електронні листи в новому вікні. Наведений нижче код VBA може допомогти легко видалити електронний лист із відповіддю разом із чернеткою в Outlook.

1. Запустіть Outlook, натисніть інший + F11 ключі, щоб відкрити Microsoft Visual Basic для додатків вікна.

2. клацання Insert > Модуль. Потім скопіюйте наступний код 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 для Outlook - приносить 100 розширених функцій для Outlook і значно полегшує роботу!

  • Авто CC / BCC за правилами при відправці електронної пошти; Автоматичне пересилання вперед Кілька електронних листів на замовлення; Автовідповідь без сервера обміну та більше автоматичних функцій ...
  • Попередження BCC - показати повідомлення при спробі відповісти всім якщо ваша поштова адреса є у списку BCC; Нагадати про відсутність вкладеньта інші функції нагадування ...
  • Відповісти (Усі) з усіма вкладеннями в поштовій розмові; Відповісти на багато електронних листів за секунди; Автоматично додавати привітання при відповіді; Додати дату в тему ...
  • Інструменти вкладення: Керування всіма вкладеннями у всіх листах, Автоматичне від'єднання, Стиснути все, Перейменувати все, Зберегти все ... Швидкий звіт, Підрахувати вибрані листи...
  • Потужні небажані електронні листи за звичаєм; Видаліть повторювані листи та контакти... Дозвольте вам робити розумніші, швидші та кращі в Outlook.
постріл kutools outlook kutools вкладка 1180x121
постріл kutools outlook kutools плюс вкладка 1180x121
 
Коментарі (0)
Поки немає оцінок. Оцініть першим!
There are no comments posted here yet
Залишайте свої коментарі
Публікація як гість
×
Оцініть цю публікацію:
0   Персонажі
Рекомендовані місця