Evento Explorer.BeforeItemCut (Outlook)
Se produce cuando se corta un elemento de Outlook de una carpeta.
Sintaxis
expresión. BeforeItemCut( _Cancel_ )
Expresión Variable que representa un objeto Explorer .
Parameters
| Nombre | Obligatorio/opcional | Tipo de datos | Descripción |
|---|---|---|---|
| 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. Si se cancela el evento, no se quitará el elemento.
Ejemplo:
El el ejemplo siguiente de Microsoft Visual Basic para Applications (VBA), se muestra un mensaje de advertencia al usuario antes de cortar el elemento de la carpeta. Si el usuario hace clic en Yes, se cortará el elemento de la carpeta. Si hace clic en No, no se quitará el elemento de la carpeta. El código de ejemplo debe colocarse en un módulo de clase como ThisOutlookSession, y se debe llamar a la Initialize_handler rutina antes de que Microsoft 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_BeforeItemCut(Cancel As Boolean)
'Prompts the user before cutting an item
Dim lngAns As Long
'Display question to user
lngAns = MsgBox("Are you sure you want to cut the item?", vbYesNo)
'Set cancel argument based on user's answer
If lngAns = vbYes Then
Cancel = False
ElseIf lngAns = vbNo Then
Cancel = True
End If
End Sub
Consulte también
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.