Evento MailItem.Forward (Outlook)
Se produce cuando el usuario selecciona la acción Reenviar para un elemento o cuando se llama al método Forward para el elemento, que es una instancia del objeto primario.
Sintaxis
expresión. Forward( _Forward_ , _Cancel_ )
expresión: Variable que representa un objeto MailItem.
Parámetros
| Nombre | Obligatorio/opcional | Tipo de datos | Descripción |
|---|---|---|---|
| Forward | Obligatorio | Object | Nuevo elemento que se va a reenviar. |
| Cancel | Obligatorio | Boolean | (No se usa en Microsoft Visual Basic Scripting Edition (VBScript)). False cuando se produce el evento. Si el procedimiento de evento establece este argumento en True, la operación de reenvío no se completa y el nuevo elemento no se muestra. |
Comentarios
En VBScript, si establece el valor devuelto por esta función en False, la acción de reenvío no se completa y el nuevo elemento no se muestra.
Ejemplo:
Este Microsoft Visual Basic para aplicaciones (VBA) ejemplo, se utiliza el evento Forward para deshabilitar el reenvío de un elemento que tenga el asunto "no reenviar" estableciendo el argumento en True y también muestra un mensaje que no se puede reenviar el elemento de cancelar. 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. Un elemento de correo electrónico debe estar abierto al ejecutar Initialize_Handler().
Public WithEvents myItem As Outlook.MailItem
Public Sub Initialize_Handler()
Set myItem = Application.ActiveInspector.CurrentItem
End Sub
Private Sub myItem_Forward(ByVal Forward As Object, Cancel As Boolean)
If myItem.Subject = "Do not forward" Then
MsgBox "You may not forward this message!"
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.