El siguiente código VBScript es para reenviar correo agregando mensaje al cuerpo de correo y edita el texto del asunto antes de reenviar
Instrucciones de Uso
1.- Abrir el editor de Visual Basic (ALT+F11).
2.- Insertar un modulo nuevo (Insert > Module).
3.- Copiar el código VBScript.
4.- Editamos los campos de las lineas 7, 8 y 9; también podemos editar la linea 10 si deseamos que se envíe automáticamente.
5.- Ahora debemos crear la regla que ejecute el VBScript cuando cumpla las condiciones que estableceremos.
Para mas información de configuración ver: Como utilizar el Editor VBA en Office (Utilizar Macros VBScript) y Outlook – Crear y configurar reglas
Código
Sub ChangeSubjectForwardAttachment(item As Outlook.MailItem) Dim oAtt As Attachment strAtt = "" For Each oAtt In item.Attachments Debug.Print oAtt.FileName Set myforward = item.Forward myforward.Recipients.Add "admin@portalmastips.com" myforward.Subject = "Reenvio archivos " '& oAtt.FileName myforward.HTMLBody = "Texto a enviar" & vbCrLf & item.HTMLBody myforward.Display 'Cambiar Display por Send si deseamos que se envie automatico. Exit Sub Next oAtt End Sub