vba - Outlook VBA 宏似乎未执行

Question

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

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

主题/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

Answer 1

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

Option Explicit

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

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