VBScript – Responder automáticamente determinado correo electrónico 

El siguiente código VBScript es para responder determinado correo electrónico con un mensaje ya establecido al cuerpo de correo, puede editar el asunto y cuerpo de correo de así requerirlo.

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 6 y 8; 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 AutoReply(Item As Outlook.MailItem)
    Dim objReply As Outlook.MailItem
    Set objReply = Item.Reply
    With objReply

        .Subject = "RE: " & objReply.Subject
        'Texto del cuerpo de correo
        .HTMLBody = "Recibido.<bt><br>" & objReply.HTMLBody
        .Send
    End With
    Set objReply = Nothing
End Sub
Leer:  VBScript - Reenviar correo a Lista de distribución en CCO (Copia Oculta) Outlook
Fernando O.

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.
Fernando O.

Latest posts by Fernando O. (see all)

6
Deja una respuesta

avatar
 
Archivos de fotos e imágenes
 
 
 
Archivos de audio y video
 
 
 
Otros tipos de archivos
 
 
 
4 Hilos de comentarios
2 Respuestas de hilo
0 Seguidores
 
Comentario más reaccionado
Hilo de comentarios más caliente
4 Autores de comentarios
ray enriquezrayFernando O.ray enriquez Autores de comentarios recientes

Este sitio usa Akismet para reducir el spam. Aprende cómo se procesan los datos de tus comentarios.

  Suscribir  
el más nuevo más antiguo más votado
Notificar de
ray enriquez
Guest
ray enriquez

Hola, esta genial el script. solo me pregunto cómo hacer para incluir a todos los que vienen en CC

ray
Guest
ray

Hola Fernando, mil gracias por responder. el Script quedo asi:

Public Sub AutoReplyC4uno(Item As Outlook.MailItem)
Dim objReply As Outlook.MailItem
Set objReplyAll = Item.ReplyAll
With objReply

.Subject = “RE: ” & objReply.Subject
‘Texto del cuerpo de correo
.HTMLBody = “Recibido.” & objReply.HTMLBody
.Send
End With
Set objReply = Nothing
End Sub

sin embargo no me funciona. 🙁

ray enriquez
Guest
ray enriquez

Hola Fernando el script quedó asi:

Public Sub AutoReplyC4uno(Item As Outlook.MailItem)
Dim objReply As Outlook.MailItem
Set objReplyAll = Item.ReplyAll
With objReply

.Subject = “RE: ” & objReply.Subject
‘Texto del cuerpo de correo
.HTMLBody = “Recibido.” & objReply.HTMLBody
.Send
End With
Set objReply = Nothing
End Sub

Sin embargo no me funciona

🙁

ray enriquez
Guest
ray enriquez

Perdón Amigo, ya vi que me falló.

Mil gracias Ya funciona…

Compartir1
Twittear
Pin
Más en Outlook VBScript
Outlook – Opción ejecutar un script (run a script) no aparece en las reglas

VBScript – Outlook reenviar correo y agregar texto automaticamente

VBScript – Adjuntar archivos automáticamente y enviar correo Outlook

Cerrar