0

我正在编写一个脚本来回复每封收到的电子邮件。

我制定了一条规则，对运行脚本、设置类别并标记为已读的所有传入消息运行。该规则设置类别并标记为已读，但不运行脚本。下面是我的代码：

Sub reply(Item As Outlook.MailItem)

    MsgBox "Hey this script is running!"

    On Error GoTo ErrorTrap

    Dim MsgReply As Outlook.MailItem
    Set MsgReply = Item.reply
    With MsgReply
        .Subject = "Welcome to IT Business Builder"
        .HTMLBody = "This is just a test"
        .Body = "This is just a test"
        .Send
    End With
    Set MsgReply = Nothing
ErrorTrap:
    MsgBox Err.Number & " " & Err.Description & " message not sent because of error"

End Sub

运行规则后，不弹出消息框，不发送电子邮件。

4

1 回答 1

1

如果您的电子邮件每次都没有更改。您可以使用 Outlooks 内置的自动回复功能。它将给定的电子邮件发送给所有向您的电子邮件 ID 发送电子邮件的人。

点击这里查看如何设置

快速总结...

  1. 使用您要作为自动回复发送的主题和正文创建一条新消息。
  2. 单击文件（在 Outlook 2007 中，单击 Office 按钮）> 另存为。
  3. 在“另存为”对话框中，在“保存类型”下拉列表中选择“Outlook 模板”，然后单击“保存”按钮。
  4. 直接关闭消息。如果您使用的是 Outlook 2010、2013 和 2016，请单击主页 > 规则 > 管理规则和警报。

对于 Outlook 2007，从 Outlook 窗口的菜单中单击工具 > 规则和警报...。看截图：

  1. 在规则和警报对话框中，单击新建规则...
  2. 在“规则向导”对话框中，选择“对我在 Outlook 2010 和 2013 中收到的邮件应用规则”。在 Outlook 2007 中，选择“从空白规则开始”选项和“收到邮件时检查邮件”选项，然后单击“下一步”按钮。
  3. 在以下规则向导对话框中，选择 Outlook 2010 和 2013 中的仅发送给我，或在 Outlook 2007 的收件人框中选择我的姓名所在位置，然后单击下一步按钮。
  4. 在 Select action(s) 下使用特定模板检查回复，然后在 Edit the rule description 框中单击特定模板。看截图：
  5. 在“选择回复模板”对话框中，在“查找范围”下拉列表中选择“文件系统中的用户模板”，选择之前创建的模板，然后单击“打开”按钮。当它返回到上一个规则向导对话框时，单击下一步按钮。
  6. 在下一个规则和向导对话框中，单击下一步按钮而不检查任何异常。
  7. 在“为此规则指定名称”框中键入自动回复规则的名称，然后单击“完成”按钮。

如果您想对所有电子邮件帐户使用此规则，请选中在所有帐户上创建此规则框。

  1. 现在它返回到规则和警报对话框，请单击确定按钮。现在自动回复规则已创建。
于 2014-06-17T02:28:14.217 回答