Outlook VBA 宏似乎未执行答案

【问题标题】：Outlook VBA macro appears not to be executingOutlook VBA 宏似乎未执行
【发布时间】：2015-01-20 12:42:36
【问题描述】：

我想将从特定电子邮件收到的消息重定向到另一个电子邮件地址。邮件将被重定向到的电子邮件地址永远不会相同。

我想使用脚本来完成此操作，其中电子邮件必须重定向到电子邮件主题的电子邮件地址。原邮件主题的格式为：

主题/redirectAddress@email.com

我编写了以下脚本，但是当规则执行脚本时没有任何反应。你能告诉我我犯了什么错误吗？为什么这个脚本似乎什么也没做？

Sub CodeSubjectForward(Item As Outlook.MailItem)
  Dim txt As String
  Dim EAddress As String
  Dim Temp As String
  Dim pos

  txt = Item.Subject
  pos = InStr(txt, "/")
  Temp = Left(txt, pos - 1)
  EAddress = Right(txt, Len(txt) - pos - 1)

  Dim objMsg As MailItem
  Set objMsg = Application.CreateItem(olMailItem)

  objMsg.body = Item.body
  objMsg.Subject = Temp
  objMsg.Recipients.Add EAddress

  objMsg.Display
End Sub

【问题讨论】：

禁用宏安全性，或自签名您的宏。您必须启用“开发人员”功能区才能访问安全设置窗口（称为“信任中心”）。
@Dai 宏安全被禁用

标签： vba email outlook outlook-2013

【解决方案1】：

打开一个符合规则条件的邮件并逐步完成。

Option Explicit

Private Sub CodeSubjectForward_Test()
    Dim currItem As MailItem
    Set currItem = ActiveInspector.currentItem
    CodeSubjectForward currItem
End Sub

如果您到达 CodeSubjectForward 则规则条件不正确。

【讨论】：