编程回复电子邮件在Outlook

Question

我正在写回复每封email来的脚本。

我已经做了规则上运行的脚本所有传入邮件运行，设置分类和标记阅读。该规则将类别和标记设置为已读，但不运行脚本。以下是我的代码：

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按钮）>另存为。
3. 在另存为对话框的另存为类型下拉列表中选择Outlook模板，然后单击保存按钮。
4. 直接关闭消息。如果您使用Outlook 2010,2013和2016，请单击主页>规则>管理规则&警报。

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

在规则和通知对话框中，单击新建规则...

在规则向导对话框中，选择消息应用规则我收到在Outlook 2010中在Outlook 2007中，选择“从空白规则开始”选项，并选中“检查邮件到达时间”选项，然后单击“下一步”按钮。

在以下规则向导对话框中，选择仅在Outlook 2010和2013中发送给我，或选择我的姓名在Outlook 2007中的“收件人”框中的位置，然后单击“下一步”按钮。

使用Select动作下的特定模板检查回复，然后在编辑规则说明框中单击特定模板。查看屏幕截图：

在选择答复模板对话框中，选择查找范围下拉列表中的文件系统中的用户模板，选择之前创建的模板并单击打开按钮。当它返回到先前的规则向导对话框时，单击下一步按钮。

在下一个规则和向导对话框中，单击下一步按钮而不检查任何异常。

在为此规则指定名称框中键入您的自动回复规则的名称，然后单击完成按钮。

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

1. 现在回到Rules and Alerts对话框，请点击OK按钮。现在创建了自动回复规则。