Método MailItem.Forward (Outlook)

Ejecuta la acción Reenviar para un elemento y devuelve la copia resultante como objeto MailItem.

Sintaxis

expresión. Forward

expresión Variable que representa un objeto MailItem.

Valor devuelto

Un objeto MailItem que representa el nuevo elemento de correo.

Ejemplo:

En este ejemplo de Visual Basic para aplicaciones (VBA) se utiliza el método Remove para quitar todos los datos adjuntos de un mensaje reenviado antes de enviarlo a Dan Wilson. Para ejecutar este ejemplo, reemplace a 'Dan Wilson' con un nombre de destinatario válido y mantenga un elemento de correo que contiene al menos un dato adjunto abierto en la ventana activa.

Sub RemoveAttachmentBeforeForwarding() 
 
 Dim myinspector As Outlook.Inspector 
 
 Dim myItem As Outlook.MailItem 
 
 Dim myattachments As Outlook.Attachments 
 
 
 
 Set myinspector = Application.ActiveInspector 
 
 If Not TypeName(myinspector) = "Nothing" Then 
 
 Set myItem = myinspector.CurrentItem.Forward 
 
 Set myattachments = myItem.Attachments 
 
 While myattachments.Count > 0 
 
 myattachments.Remove 1 
 
 Wend 
 
 myItem.Display 
 
 myItem.Recipients.Add "Dan Wilson" 
 
 myItem.Send 
 
 Else 
 
 MsgBox "There is no active inspector." 
 
 End If 
 
End Sub

Consulte también

Objeto MailItem

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.