Inicio MS / Office VBScript – Reenviar correo a Lista de distribución en CCO (Copia Oculta)...

VBScript – Reenviar correo a Lista de distribución en CCO (Copia Oculta) Outlook

257
8
COMPARTIR


En seguimiento a la solicitud en el comentario del artículo redactamos el siguiente articulo.

El Script solicitado es para Reenviar un correo entrante a un listado de contactos o Lista de distribución en CCO (Copia Oculta) este al momento que recibimos un correo reenvía el mensaje a un listado de contactos previamente establecida.

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.- En la linea 11 debemos especificar el campo Para: el cual es obligatorio para enviar un correo requerimos agregar un contacto como mínimo (Puede ser nuestro correo).

5.- En la linea 12 cambiamos TestList por el nombre de nuestra lista de distribución.

6.- Guardamos.

7.- Para finalizar creamos la regla que cumpla las condiciones de los correos a reenviar.

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

 

8 Comentarios

  1. Hola Fernando,

    He estado haciendo pruebas con el script que creaste y me funciona perfecto.

    Nuevamente graicas por tu ayuda y compartir tus conocimientos, en verdad son muy valorados.
    Saludos.

  2. hola, he visto el script y esta genial, aunque necesitaria algo similar pero distinto, como podria explicartelo para si puedes ayudarme, gracias, un saludo.

    • Buen dia Morpvin

      Puedes enviar un correo en contacto si deseas envian imagenes o responder aqui mismo si es solo texto, cabe aclarar que el apoyo que les puedo brindar por cuestiones de tiempo es realizando modificaciones al mismo script ya establecido, si se requiere desarrollo de un script por la misma razón en algunos casos no les puedo apoyar de ser asi les hago alguna recomendación o les guio para que lo desarrollen cuando tienen algún conocimiento básico, envíame lo que necesitas para analizarlo.

      Saludos.

      • Hola y ante todo gracias por la atencion, es un placer tratar con los que quieren ayudar, en parte tengo dos cuestiones, tengo un script de envio automatico de correo periodico con adjunto, que adjunta archivos determinados, pero lo que quisiera es que acotara los archivos por nombre, es decir, los que contengan por ejemplo “listado” o que tengan una determinada extension por ejemplo “pdf”:

        para = “[email protected]; [email protected]; ect ect ”
        asunto = “Listados estadisticos ” & Date ()
        mensaje = “Adjunto Listados estadisticos con fecha ” & Date ()
        adjunto1 = “C:\Listado General1.pdf”
        adjunto2 = “C:\Listado Zonas2.pdf”

        Set outlook = CreateObject(“Outlook.Application”)
        Set correo = outlook.CreateItem(olMailItem)
        correo.To = para
        correo.Subject = asunto
        correo.Body = mensaje
        correo.Attachments.Add(adjunto1)
        correo.Attachments.Add(adjunto2)
        correo.Send

        A ver que me dices al respecto, y por otro lado que no tengo script alguno, es para un problema que tengo con el correo de la empresa, veras, recibo todo el correo en una cuenta y tengo que distribuirlo, con el outlook 2010 solo tengo la opcion de reenviarlo, que es como lo tengo, pero en realidad me crea un problema, cuando los usuarios quieren responder, naturalmente responden al correo que reenvio, por tanto lo que me gustaria es si se puede o lo hay un script para reenviar el correo que se recibe en esa cuenta a las demas, pero que si se responde sea al que lo mando originalmente, es decir, reenviarlo sin que el remitente final le conste por ejemplo que se reenvio o distribuyo, en esto estoy perdido y no tengo ni idea de como poder hacerlo con mis medios.

        Ojala me haya explicado con claridad y espero no hacerte perder mucho tiempo, te agradezco tu atencion y esperare cualquier ayuda o consejo que me puedas ofrecer, muchas gracias.

        Un Saludo.

        • Buen dia Morpvin

          Sobre la segunda consulta del lado del cliente para mantener el correo/contactos originales se puede reenviando como adjunto los correos, también si tu servidor de correos lo soporta por ejemplo si utilizas Exchange 2010 o superior pueden habilitar la Redireccion de correos por lado del cliente (por default esta deshabilitada) o realizar la dirección del lado del servidor el cual es limitado, creo lo optimo es crear reglas que reenvíen los correos como adjuntos a los destinatarios finales ya que no se requiere configuraciones especiales. Esto no veo forma de poder hacerlo por medio de Script sin tener que poner el contacto en To, CC, BCC.

          Respecto a la primer consulta no comprendo lo siguiente “lo que quisiera es que acotara los archivos por nombre, es decir, los que contengan por ejemplo “listado” o que tengan una determinada extensión por ejemplo “pdf”:” acotar lo entiendo como truncar, recortar el nombre del archivo?.

          Espero comentarios

          Saludos.

          • Hola, gracias por tu atencion, en cuanto a tu pregunta, me refiero a que adjunte los archivos que esten en la carpeta asignada con extension *.pdf indistintamente del nombre o otro ejemplo que adjunte los archivos que empiecen o tengan la palabra “listado” sea cual sea la extension, espero haberme explicado mejor.

            Por lo que hace a lo otro, probare y te comento, muchas gracias.

Deja un comentario...