VBScript – Outlook reenviar correo y agregar texto automaticamente

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 "[email protected]"
   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

 

Califica este articulo

Fernando O.

Soy analista de sistemas actualmente trabajo en una empresa con mas de 200 empleados que utilizan equipo de computo al cual se les da soporte en el departamento.
Uno de mis pasatiempos fuera de la empresa es escribir artículos para PortalMasTips donde documento los problemas, inquietudes y detalles interesantes que se presentan.
Compartir
Twittear
+1
Compartir
Pin
Stumble