Question

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

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

subject/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，则规则条件不正确。

Outlook VBA宏似乎没有执行

1 个答案: