Outlook 2016 Win 10 企业版

Question

当我收到特定主题的电子邮件时，我想用模板回复

• 但是，模板不会复制电子邮件的原始正文，我必须将其正确链接到其他地方：
  
  我尝试创建一个可以执行此操作的代码，但是“运行脚本”不再是业务规则中的一个选项。
  

  Sub AutoReply(Item As Outlook.MailItem)
      Dim olkReply As Outlook.MailItem
      Set olkReply = Item.Reply
      With olkReply
          .Subject = "Your Subject Goes Here"
          .HTMLBody = "This is an extensive but privatized body content replacement.<bt><br>" & Item.HTMLBody
          .Send
      End With
      Set olkReply = Nothing
  End Sub
  

关于如何自动完成此操作有什么想法吗？