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

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

Sub FwdToDistList(msg As MailItem) ' hooked to Rule
  Dim msgFwd As Outlook.MailItem
  Dim objBCCRecips As Recipient
  Dim intC As Integer
  
  Set msgFwd = msg.Copy ' Crea copia a reenviar
  With msgFwd
    For intC = .Recipients.Count To 1 Step -1
      .Recipients.Remove intC ' Remieve los remitentes actuales
    Next intC
    .Recipients.Add "[email protected]" ' set the TO: line addressee, must be at least one
    Set objBCCRecips = .Recipients.Add("TestList") ' add the Distribution List
    objBCCRecips.Resolve ' check that the Distribution List is valid
    If objBCCRecips.Resolved Then
      objBCCRecips.Type = olBCC ' set it as BCC
    Else
      MsgBox objBCCRecips.Name & "No se ha encontrado al intentar reenviar " & msgFwd.Subject, , vbCritical + vbOKOnly ' pop a message if Dist List not found
      GoTo CLEANUP: ' Dist List name not valid, or there's another problem with it, end the sub without further action
    End If

    If msgFwd.BodyFormat = olFormatHTML Then
      .Subject = .Subject & " - " ' HTML paragraph break
    Else
      .Subject = .Subject & vbCrLf & vbCrLf ' standard line break
    End If
    .Subject = .Subject & "Reenviado por PortalMasTips"

    .Save
    .Send
  End With
CLEANUP:
  Set objBCCRecips = Nothing
  Set msgFwd = Nothing
End Sub

 

Leer:  VBScript - Guardar Correos Seleccionados en un Archivo TXT 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)

8
Deja una respuesta

avatar
 
Archivos de fotos e imágenes
 
 
 
Archivos de audio y video
 
 
 
Otros tipos de archivos
 
 
 
2 Hilos de comentarios
6 Respuestas de hilo
0 Seguidores
 
Comentario más reaccionado
Hilo de comentarios más caliente
3 Autores de comentarios
Fernando O.morpvinPortal+TipsIsrael 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
Israel
Guest
Israel

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.

morpvin
Guest
morpvin

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

Compartir
Twittear
Pin
Más en Outlook VBScript
VBScript – Exportar Información de correos Outlook a Excel

VBScript – Guardar Correos Seleccionados en un mismo Archivo Doc (Word)

VBScript – Agregar número consecutivos en Asunto a los correos recibidos Outlook

Cerrar