Перейти до основного матеріалу

Як видалити поточну редаговану чернетку, не видаляючи вихідну електронну пошту в 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

🤖 AI Mail Assistant: Миттєві професійні електронні листи з магією штучного інтелекту – геніальні відповіді одним клацанням, ідеальний тон, багатомовна майстерність. Трансформуйте електронну пошту без зусиль! ...

???? Автоматизація електронної пошти: Поза офісом (доступно для POP та IMAP)  /  Розклад надсилання електронних листів  /  Автоматична копія/прихована копія за правилами під час надсилання електронної пошти  /  Автоматичне пересилання (розширені правила)   /  Автоматично додавати привітання   /  Автоматично розділяйте електронні листи кількох одержувачів на окремі повідомлення ...

📨 Управління електронною поштою: Легко відкликайте електронні листи  /  Блокуйте шахрайські електронні листи за темами та іншими  /  Видалити повторювані електронні листи  /  розширений пошук  /  Консолідація папок ...

📁 Вкладення ProПакетне збереження  /  Пакетне від'єднання  /  Пакетний компрес  /  Автозавантаження   /  Автоматичне від'єднання  /  Автокомпресія ...

???? Магія інтерфейсу: 😊Більше красивих і класних смайликів   /  Підвищте продуктивність Outlook за допомогою вкладок  /  Згорніть Outlook замість того, щоб закривати ...

👍 Дива в один клік: Відповісти всім із вхідними вкладеннями  /   Антифішингові електронні листи  /  🕘Показувати часовий пояс відправника ...

👩🏼‍🤝‍👩🏻 Контакти та календар: Пакетне додавання контактів із вибраних електронних листів  /  Розділіть групу контактів на окремі групи  /  Видаліть нагадування про день народження ...

більше Особливості 100 Чекайте на ваше дослідження! Натисніть тут, щоб дізнатися більше.

 

 

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