Inicio MS / Office VBScript – Outlook reenviar correo y agregar texto automaticamente

VBScript – Outlook reenviar correo y agregar texto automaticamente

COMPARTIR


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

 

2 Comentarios

  1. ESTIMADO EN EL LINK: VBScript – Outlook reenviar correo y agregar texto automaticamente …..como podria hacer si kiero reemviar cierto correo que me llega con ciertas palabras que se encuentran en el ASUNTO o CUERPO DE MENSAJE ??? que lo reemvie a ciertas personas si dice tiene la palabra distrito “olivos” y si tiene otros distritos “san bartolo” que le manden a otras personas y la cantidad total de distritos se sectoriza en 4 norte- sur- este -oeste y por lo tanto rennvie a cuatro destinos segun el sector , ciempre los correos tienen archivos adjuntos y que el reemvio sea incluyendo dichos archivos y que en el asunto me adjunte el distrito el cual esta en el cuerpo del mensaje ?????, de antemano gracias estimado ?????

    • Buen dia Christian

      En Outlook al momento de crear la regla puedes seleccionar la opción “with specific words in the subject or body” (Con palabras específicas en el asunto o cuerpo) y crear varias reglas para ejecutar diferentes scripts.

      Tu puedes editar el script a tus necesidades por ejemplo para añadir el distrito al asunto seria myforward.Subject = “Distrito ” & vbCrLf & item.Subject

      Saludos.

Deja un comentario...