Método MailItem.Forward (Outlook)
Ejecuta la acción Reenviar para un elemento y devuelve la copia resultante como objeto MailItem.
expresión. Forward
expresión Variable que representa un objeto MailItem.
Un objeto MailItem que representa el nuevo elemento de correo.
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
¿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.