以编程方式回复Outlook中的电子邮件

Question

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

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

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

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

Answer 1

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

Click Here to See how to set it up

快速总结......

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

对于Outlook 2007，请单击工具＆gt;规则和警报...从Outlook窗口的菜单中。见截图：

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

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

1. 现在返回“规则和警报”对话框，请单击“确定”按钮。现在创建了自动回复规则。