送信時にメッセージを表示

Sub item_send()
Msgbox "このメールは社内全体に送られます。"

End Sub

★アイテムを送信しようとする時に発生するイベント

★メッセージを表示

★送信

　

　

合計金額が1500円未満では送信できないようにする

Function item_send()
if UserProperties("合計金額").value < 1500 then
Msgbox "1500円未満では送信できません。"
item_send = False
Else
End if
End Function

★アイテムを送信しようとする時に発生するイベント

★合計金額が1500以下なら

★「1500円未満では送信できません。」と表示

★操作（送信）を中止する

★そうでなければ送信

　

※Item_Sendイベントでは戻り値をFalseに設定すると送信操作を中止することができます。（戻り値を格納するにはFunctionプロシージャを使う必要があります。）

送信時に入力エラーチェックを行う

Function item_send()
If Error_Check() = "NG" then
Item_Send = False
End if
End Function

★アイテムを送信しようとする時に発生するイベント

★Error_Check関数を呼出し結果が「NG」なら

★操作（送信）を中止する

そうでなければ送信