在發送時創建VBA Outlook 2010腳本以提示輸入答案

Question

我想在Outlook 2010中創建VBA腳本，當用戶按下發送按鈕時，會出現一個對話框，並詢問他們問題的答案是「是或否'。如果他們回答是，則電子郵件是正常發送的，但如果答案是否，那麼電子郵件不會發送，並且他們會被帶回電子郵件進行任何更改。

我有一個腳本，我正在使用（借用:)，看到下面，但它只給了我一個確定按鈕，即使我擊中了紅十字仍然發送電子郵件 - 任何幫助將非常感謝提前

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean) 
EmailSend = MsgBox("Is Your Recipient Correct?") 
End Sub 

感謝

Answer 1

在 「ThisOutlookSession」 模塊，你可以使用這樣的事情：

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean) 
    If MsgBox("Yes or no?", vbYesNo) = vbNo Then Cancel = True 
End Sub 

它提示了 「是/否」消息框（因爲vbYesNo參數），然後根據對話框的響應提供一個True取決於「取消」的布爾值。此外，至少在Windows 7上，使用yes/no提示時，禁用紅色的「x」。但是，如果沒有，那麼我會做這樣的事情：

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean) 
    Cancel = True 
    If MsgBox("Yes or no?", vbYesNo) = vbNo Then Cancel = True Else Cancel = False 
End Sub 

因此，它總是取消，除非他們說「是」專。