Saltar al contenido

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

 

Leer entrada anterior
ODBC -  Mi base de datos no aparece en el listado de bases de datos a seleccionar  7
ODBC –  Mi base de datos no aparece en el listado de bases de datos a seleccionar 

El dia de hoy realizando movimientos en una nueva base de datos de nuestro sistema nos topamos que la base...

Cerrar