Як автоматично відкривати отримані / відправлені електронні листи в режимі “Редагування” за допомогою Outlook VBA

Рішення для Outlook Вересень 29, 2025

Щоб змінити вміст отриманого або надісланого електронного листа в Outlook, потрібно відкрити його та перевести в режим «Редагування». Якщо вам часто потрібно вносити зміни в такі електронні листи, вам варто автоматично відкривати їх у режимі «Редагування». Ця публікація допоможе вам у цьому.

Часом вам може знадобитися змінити вміст отриманого або надісланого електронного листа в Outlook. У цьому випадку, як описано в попередній публікації – «Як змінити тему та тіло отриманих електронних листів у програмі Outlook", Вам потрібно відкрити електронне повідомлення та натиснути кнопку" Дії "та вибрати" Редагувати повідомлення ", щоб перетворити електронне повідомлення в режим" Редагувати ". Однак ви можете подумати, що це все одно трохи клопітно. Тому ви бажаєте, щоб Outlook завжди відкривав отримані / відправлені електронні листи в режимі “Редагувати”. Далі ми представимо, як використовувати код VBA для досягнення цієї функції. Тепер читайте далі, щоб отримати детальні кроки.

Автоматично відкривати отримані / відправлені електронні листи в режимі “Редагувати”

З самого початку, з посиланням на “Як запустити код VBA у своєму Outlook“, Отримати доступ до редактора Outlook VBA.
Потім скопіюйте та вставте наступний код VBA у проект “ThisOutlookSession”.

Public WithEvents objInspectors As Outlook.Inspectors
Public WithEvents objMailInspector As Outlook.Inspector

Private Sub Application_Startup()
    Set objInspectors = Outlook.Application.Inspectors
End Sub

'Get the email window
Private Sub objInspectors_NewInspector(ByVal Inspector As Inspector)
    If TypeOf Inspector.CurrentItem Is MailItem Then
       Set objMailInspector = Inspector
    End If
End Sub

Private Sub objMailInspector_Activate()
    Dim objMail As Outlook.MailItem
 
    Set objMail = objMailInspector.CurrentItem
    'If it is a recieved/sent mail instead of a new email
    If Not (objMail.Recipients Is Nothing) And Not (objMail.Sender Is Nothing) Then
       'open in "Edit" mode
       objMailInspector.CommandBars.ExecuteMso ("EditMessage")
    End If
End Sub

Після цього клацніть макрос «Application_Startup» і натисніть клавішу «F5».
На даний момент закрийте редактор VBA.
Нарешті, можна спробувати. Просто двічі клацніть на отриманому або надісланому листі, щоб відкрити його. Це, безумовно, буде в режимі "Редагувати".

Імунітет від втрати даних Outlook

Ваш файл PST коли-небудь ставав недоступним? Насправді файл PST Outlook може легко пошкодитися. Наприклад, віруси, що передаються електронною поштою, можуть легко призвести до збою Outlook і, таким чином, призвести до пошкодження даних Outlook. У таких випадках першим дозволом, що трапляється з вашим розумом, може бути інструмент для ремонту вхідних -. Однак, загалом кажучи, він не в змозі впоратися з такими серйозними ситуаціями. Отже, завжди рекомендується регулярно створювати резервні копії файлів PST, щоб можна було відновити дані PST із резервних копій, як пробка. В іншому випадку вам доведеться відмовитися від спеціалізованого зовнішнього інструменту, наприклад DataNumen Outlook Repair.

Вступ автора:

Ширлі Чжан - експерт із відновлення даних у DataNumen, Inc., яка є світовим лідером у галузі технологій відновлення даних, в тому числі відновлення mdf та перспективні програмні продукти для ремонту. Для отримання додаткової інформації відвідайте WWW.datanumen.com