Outlook アイテムが貼り付けられるときに発生します。
構文
expression.
BeforeItemPaste( _ClipboardContent_ , _Target_ , _Cancel_ )
式エクスプローラー オブジェクトを表す変数。
パラメーター
| 名前 | 必須 / オプション | データ型 | 説明 |
|---|---|---|---|
| ClipboardContent | 必須 | バリアント型 (Variant) | 貼り付けられる内容です。 |
| Target | 必須 | Folder | 貼り付け先です。 |
| Cancel | 必須 | Boolean | False イベントが発生します。 イベント プロシージャでこの引数に True を設定する場合、操作は完了せず、アイテムは削除されません。 |
注釈
このイベントは開始された後で取り消すことができます。
例
次の Microsoft Visual Basic for Applications (VBA) の例では、クリップボードの内容を指定したターゲットに貼り付ける前に、ユーザーに確認を求めるメッセージが表示されます。 ユーザーが [ はい] をクリックすると、クリップボード内の現在のコンテンツが指定されたコピー先にコピーされます。 Outlook からイベント プロシージャを呼び出すには、サンプル コードを ThisOutlookSession などのクラス モジュールに配置し、 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 のサポートおよびフィードバックを参照してください。