エクスプローラー。BeforeItemPaste イベント (Outlook)

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

関連項目

Explorer オブジェクト

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

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

  • Last updated on