Evento Application.ItemSend (Outlook)

Se produce siempre que se envía un elemento de Microsoft Outlook, ya sea por el usuario a través de un Inspector (antes de cerrar el inspector pero después de que el usuario hace clic en el botón Enviar ) o cuando se usa el método Send para un elemento de Outlook, como MailItem, en un programa.

Sintaxis

expresión. ItemSend( _Item_ , _Cancel_ )

expresión Variable que representa un objeto Application.

Parámetros

Nombre	Obligatorio/opcional	Tipo de datos	Descripción
Item	Obligatorio	Object	Elemento que se va a enviar.
Cancel	Obligatorio	Boolean	False cuando se produce el evento. Si el procedimiento de evento establece este argumento en True, la acción de envío no se completa y el inspector se queda abierto.

Comentarios

Este evento no está disponible en Microsoft Visual Basic Scripting Edition (VBScript).

Ejemplo:

El siguiente ejemplo de Microsoft Visual Basic para aplicaciones (VBA) se muestra cómo cancelar el evento ItemSend en respuesta a la entrada del usuario. El código de ejemplo debe ubicarse en un módulo de clase y se debe llamar a la rutina de Initialize_handler antes de que Outlook pueda llamar al procedimiento de evento.

Public WithEvents myOlApp As Outlook.Application 
 
 
 
Public Sub Initialize_handler() 
 
 Set myOlApp = Outlook.Application 
 
End Sub 
 
 
 
Private Sub myOlApp_ItemSend(ByVal Item As Object, Cancel As Boolean) 
 
 Dim prompt As String 
 
 prompt = "Are you sure you want to send " & Item.Subject & "?" 
 
 If MsgBox(prompt, vbYesNo + vbQuestion, "Sample") = vbNo Then 
 
 Cancel = True 
 
 End If 
 
End Sub

Vea también

Objeto Application

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.