VBScript – Guardar Todos los Correos de la Carpeta Seleccionada a TXT Outlook

El siguiente script es una modificación del script publicado en el articulo Guardar Cuerpo de Correo Entrante en Archivo de Texto (TXT) Outlook, esta modificación al script es: todos los correos de la carpeta seleccionada (Ventana) lo guarda en un archivo TXT y lo nombra con la fecha que se recibe y subject (Asunto).

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

Nota: solo funciona con archivos zip

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 saveAllEmailInFolderToTXT()
Dim objItem As Outlook.MailItem
Dim sSubject As String
Dim dDate As Date

For Each objItem In ActiveExplorer.CurrentFolder.Items
sSubject = objItem.Subject
ReplaceIllegalChars sSubject, "-"
dDate = objItem.ReceivedTime
objItem.SaveAs "C:\1-Tests\" & sSubject & ".txt", olSaveAsText
Next

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:  Desbloquear archivo adjunto bloqueado por seguridad en 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)

2
Deja una respuesta

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

hOLA… Estoy utilizando este código pero cuando selecciono los correos, solo me transforma el ultimo.

Me podrías indicar como hago para que me transforme varios a la vez

Muchas gracias

Compartir
Twittear
Pin
Más en Outlook VBScript
VBScript – Guardar Cuerpo de Correo Entrante en Archivo de Texto (TXT) Outlook

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

VBScript – Imprimir adjunto automáticamente al momento de recibir un correo en Outlook

Cerrar