1

Outlook 2010 で、ユーザーが送信ボタンを押すとダイアログ ボックスが表示され、答えが「はい」または「いいえ」である質問をする VBA スクリプトを作成したいと思います。ユーザーが「はい」と答えた場合、電子メールは通常どおり送信されますが、「いいえ」と答えた場合、電子メールは送信されず、変更を加えるために電子メールに戻されます。

現在、作業中のスクリプトがあります（借用しました:)）、以下を参照してください。ただし、[OK]ボタンしか表示されず、赤い十字を押してもメールが送信されます-どんな助けも大歓迎です

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

前もって感謝します

4

1 に答える 1

0

「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 引数のため)、ダイアログへの応答に基づいて「キャンセル」に真のブール値を指定します。また、少なくとも 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

したがって、特に「はい」と言わない限り、常にキャンセルされます。

于 2013-10-09T13:41:09.930 に答える