編程回覆電子郵件在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按鈕。現在創建了自動回覆規則。