Explorer.BeforeItemCut イベント (Outlook)
Outlook アイテムがフォルダーから切り取られるときに発生します。
構文
式。 BeforeItemCut
( _Cancel_
)
式Explorer オブジェクトを表す変数。
パラメーター
名前 | 必須 / オプション | データ型 | 説明 |
---|---|---|---|
Cancel | 必須 | Boolean | False イベントが発生します。 イベント プロシージャでこの引数に True を設定する場合、操作は完了せず、アイテムは削除されません。 |
注釈
このイベントは開始された後で取り消すことができます。 イベントをキャンセルすると、アイテムは削除されません。
例
次の Microsoft Visual Basic for Applications (VBA) の例では、アイテムをフォルダーから切り取る前に警告メッセージをユーザーに求めます。 ユーザーが [はい] をクリックすると、アイテムはフォルダーから切り取られます。 ユーザーが [いいえ] をクリックした場合、アイテムはフォルダーから削除されません。 サンプル コードは、 などの ThisOutlookSession
クラス モジュールに配置する必要があり、イベント プロシージャを Initialize_handler
Microsoft Outlook から呼び出す前にルーチンを呼び出す必要があります。
Public WithEvents myOlExp As Outlook.Explorer
Sub Initialize_Handler()
Set myOlExp = Application.ActiveExplorer
End Sub
Private Sub myOlExp_BeforeItemCut(Cancel As Boolean)
'Prompts the user before cutting an item
Dim lngAns As Long
'Display question to user
lngAns = MsgBox("Are you sure you want to cut the item?", vbYesNo)
'Set cancel argument based on user's answer
If lngAns = vbYes Then
Cancel = False
ElseIf lngAns = vbNo Then
Cancel = True
End If
End Sub
関連項目
サポートとフィードバック
Office VBA またはこの説明書に関するご質問やフィードバックがありますか? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。