次の方法で共有

Explorer.BeforeItemCopy イベント (Outlook)

  • [アーティクル]

Outlook アイテムがコピーされると発生します。

構文

式。 BeforeItemCopy( _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_BeforeItemCopy(Cancel As Boolean) 
 
'Prompts the user before copying an item 
 
 
 
 Dim lngAns As Long 'user answer 
 
 'Display question to user 
 
 lngAns = MsgBox("Are you sure you want to copy the item?", vbYesNo) 
 
 If lngAns = vbYes Then 
 
 Cancel = False 
 
 Else 
 
 'Set Cancel argument based on answer 
 
 Cancel = True 
 
 End If 
 
 
 
End Sub

関連項目

Explorer オブジェクト

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。