[adinserter name="Despues de Cabecera"]

VBScript – Guardar Correos Entrantes a una Carpeta en el Disco (.MSG) Outlook

Respondiendo a una consulta que nos realizarón el cual desean guardar correos entrantes a un folder en el disco duro local (guardar los correos como .msg)

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 12 debemos especificar la ruta donde se guardaran los archivos (Esta carpeta la creamos manualmente).

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

Public Sub SaveIncomingMsgToFolder(Item As Outlook.MailItem)
  Dim sPath As String
  Dim dDate As Date
  Dim sSubject As String
  
  sSubject = Item.Subject
  ReplaceIllegalChars sSubject, "-"
  
  dDate = Item.ReceivedTime
  sSubject = Format(dDate, "yyyymmdd") & Format(dDate, "-hhnnss") & "-" & sSubject & ".msg"
 
  sPath = "C:\1-Tests\"
  Item.SaveAs sPath & sSubject, olMSG
End Sub
  
Private Sub ReplaceIllegalChars(sSubject As String, _
  sChr As String _
)
  sSubject = Replace(sSubject, "/", sChr)
  sSubject = Replace(sSubject, "\", sChr)
  sSubject = Replace(sSubject, ":", sChr)
  sSubject = Replace(sSubject, "?", sChr)
  sSubject = Replace(sSubject, Chr(34), sChr)
  sSubject = Replace(sSubject, "<", sChr)
  sSubject = Replace(sSubject, ">", sChr)
  sSubject = Replace(sSubject, "|", sChr)
  sSubject = Replace(sSubject, "*", sChr)
End Sub

 

Leer:  Excel - Como encontrar una referencia circular
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
 
 
 
3 Hilos de comentarios
3 Respuestas de hilo
0 Seguidores
 
Comentario más reaccionado
Hilo de comentarios más caliente
4 Autores de comentarios
Fernando O.Axel CabildoReyesPortal+TipsEnrique Martínez 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
Enrique Martínez
Guest
Enrique Martínez

Muchas gracias por tu apoyo, precisamente hoy estaba intentando hacerlo en un tiempo libre en la empresa, gracias. Otra duda, los script o macros de visual basic como el que compartiste, ¿Se pueden convertir a ejecutables. EXE como para ejecutarlos desde el programador de tareas de Windows en lugar de Outlook u otra aplicación de Office?

Reyes
Guest
Reyes

Excelente.!! código muy limpio y de gran ayuda.

Axel Cabildo
Guest

Hola Fernando excelente trabajo, muy buenos codigos y funcionales solo tengo una pequeña pregunta, al momento de guardar el correo en la carpeta seleccionada guarda el nombre de la carpeta donde se va a guardar y el subject del correo ¿Como le hago para que solo me guarde el subject del correo? Gracias

Compartir
Twittear
Pin
Más en Outlook VBScript
VBScript - Guardar Todos los Correos de la Carpeta Seleccionada a TXT Outlook 5
VBScript – Guardar Todos los Correos de la Carpeta Seleccionada a TXT Outlook

VBScript - Guardar Cuerpo de Correo Entrante en Archivo de Texto (TXT) Outlook 6
VBScript – Guardar Cuerpo de Correo Entrante en Archivo de Texto (TXT) Outlook

VBScript - Descomprimir zip adjunto y guardar los archivos automáticamente Outlook 7
VBScript – Descomprimir zip adjunto y guardar los archivos automáticamente Outlook

Cerrar