Как автоматически открывать полученные/отправленные электронные письма в режиме «Редактировать» с помощью Outlook VBA

Перспективные решения 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-файл когда-либо становился недоступным? На самом деле файл Outlook PST может быть легко поврежден. Например, вирусы, переносимые по электронной почте, могут легко привести к сбою Outlook и тем самым привести к повреждению данных Outlook. В таких случаях первое решение, которое придет вам в голову, может быть инструмент для ремонта входящих. Однако, вообще говоря, он не способен справиться с такими серьезными ситуациями. Следовательно, всегда рекомендуется создавать резервные копии файлов PST через равные промежутки времени, чтобы вы могли восстанавливать данные PST из резервных копий, как пробка. В противном случае вам придется прибегнуть к специализированному внешнему инструменту, например DataNumen Outlook Repair.

Об авторе:

Ширли Чжан — эксперт по восстановлению данных в DataNumen, Inc., которая является мировым лидером в области технологий восстановления данных, включая восстановление мдф и программные продукты для ремонта Outlook. Для получения дополнительной информации посетите www.datanumen.com