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 Objeto 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.