如何使用 Outlook VBA 在“编辑”模式下自动打开接收/发送的电子邮件

展望解决方案 2025 年 9 月 29 日
立即分享：

要在 Outlook 中更改已接收或已发送邮件的正文，您需要先打开邮件，然后将其切换到“编辑”模式。如果您经常需要修改此类邮件，您可能希望邮件能够自动以“编辑”模式打开。本文将帮助您实现这一目标。

有时，您可能需要在 Outlook 中更改已接收或已发送电子邮件的内容。在这种情况下，正如上一篇文章中所述——“如何在 Outlook 中修改收到的电子邮件的主题和正文”，您必须打开电子邮件并单击“操作”按钮并选择“编辑消息”以将电子邮件转换为“编辑”模式。 但是，您可能认为它仍然有点麻烦。 因此，您希望 Outlook 始终以“编辑”模式打开接收/发送的电子邮件。 下面，我们将介绍如何使用VBA代码来实现这个功能。 现在继续阅读以获取详细步骤。

编辑讯息

在“编辑”模式下自动打开接收/发送的电子邮件

  1. 一开始，关于“如何在 Outlook 中运行 VBA 代码“，访问 Outlook VBA 编辑器。
  2. 然后，将以下 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

VBA 代码 - 在“编辑”模式下自动打开接收/发送的电子邮件

  1. 然后，点击进入“Application_Startup”宏，然后按“F5”键。
  2. 目前关闭VBA编辑器。
  3. 最后，你可以试试看。 只需双击收到或发送的邮件即可将其打开。 它肯定会处于“编辑”模式。“编辑”模式下的电子邮件

免受 Outlook 数据丢失的影响

您的 PST 文件是否曾经变得无法访问？ 实际上，Outlook PST 文件很容易损坏。 例如，电子邮件携带的病毒很容易导致 Outlook 崩溃，从而导致 Outlook 数据损坏。 在这种情况下，您想到的第一个解决方案可能是 收件箱维修工具. 不过，一般来说，它是没有能力应对如此严重的情况的。 因此，始终建议定期备份 PST 文件，这样您就可以像软木塞一样从备份中恢复 PST 数据。 否则，您必须求助于专门的外部工具，例如 DataNumen Outlook Repair.

作者简介：

Shirley Zhang 是一位数据恢复专家 DataNumen, Inc.，它是数据恢复技术领域的世界领先者，包括 中密度纤维板恢复 和 outlook 修复软件产品。 欲了解更多信息，请访问 datanumen.com

立即分享：

评论被关闭。