Outlook アイテムが貼り付けられるときに発生します。
構文
expression.
BeforeItemPaste( _ClipboardContent_ , _Target_ , _Cancel_ )
表現エクスプローラー オブジェクトを表す変数。
パラメーター
| 名前 | 必須 / オプション | データ型 | 説明 |
|---|---|---|---|
| ClipboardContent | 必須 | バリアント型 (Variant) | 貼り付けられる内容です。 |
| Target | 必須 | Folder | 貼り付け先です。 |
| Cancel | 必須 | Boolean | False イベントが発生します。 イベント プロシージャでこの引数に True を設定する場合、操作は完了せず、アイテムは削除されません。 |
解説
このイベントは開始された後で取り消すことができます。
例
次の Microsoft Visual Basic for Applications (VBA) の例では、クリップボードの内容を指定したターゲットに貼り付ける前に、ユーザーにメッセージを表示します。 ユーザーが [はい] をクリックすると、クリップボードの現在のコンテンツが指定したターゲットの宛先にコピーされます。 サンプル コードは、 ThisOutlookSession などのクラス モジュールに配置する必要があります。また、イベント プロシージャを Outlook から呼び出す前に、 Initialize_handler ルーチンを呼び出す必要があります。
Public WithEvents myOlExp As Outlook.Explorer
Sub Initialize_Handler()
Set myOlExp = Application.ActiveExplorer
End Sub
Private Sub myOlExp_BeforeItemPaste(ClipboardContent As Variant, ByVal Target As Folder, Cancel As Boolean)
Dim lngAns As Integer 'users' answer
'Prompt user about paste
lngAns = MsgBox("Are you sure you want to paste the contents of the clipboard into the " _
& Target.Name & "?", vbYesNo)
If lngAns = vbNo Then
Cancel = True
End If
End Sub
関連項目
サポートとフィードバック
Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。