Evento Explorer.BeforeItemPaste (Outlook)

Se produce cuando se pega un elemento de Outlook.

Sintaxis

expresión. BeforeItemPaste( _ClipboardContent_ , _Target_ , _Cancel_ )

expresión Variable que representa un objeto del explorador .

Parameters

Nombre Obligatorio/opcional Tipo de datos Descripción
Contenido del Portapapeles Obligatorio Variant Contenido que va a pegarse.
Target Obligatorio Folder Destino del contenido que va a pegarse.
Cancel Obligatorio Boolean False cuando se produce el evento. Si el procedimiento de evento establece este argumento en True, la operación no se completa y no se elimina el elemento.

Comentarios

Este evento puede cancelarse después de haber comenzado.

Ejemplo

En el ejemplo siguiente de Microsoft Visual Basic para Aplicaciones (VBA), el sistema realiza una pregunta al usuario antes de pegar el contenido del Portapapeles en el destino especificado. Si el usuario hace clic en Yes, se copia el contenido actual en el destino especificado. El código de ejemplo se debe colocar en un módulo de clase, como ThisOutlookSession, y se debe llamar a la rutina antes de Initialize_handler que Outlook pueda llamar al procedimiento de evento.

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

Vea también

Objeto Explorer

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.

  • Last updated on