VBScript – Guardar Correos Seleccionados en un Archivo 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 realiza lo siguiente: Guarda los correos que seleccionemos previamente cada uno en un archivo TXT en una carpeta que indiquemos.

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).

Para mas información de configuración ver: Como utilizar el Editor VBA en Office (Utilizar Macros VBScript) y Outlook – Crear y configurar reglas

Codigo

Sub saveSelectedEmailToTXT()
Dim objItem As Outlook.MailItem
Dim sSubject As String
Dim dDate As Date
Dim iCount As Integer

For Each objItem In ActiveExplorer.Selection
'Set objItem = Application.ActiveExplorer.Selection.Item(1)
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

 

Califica este articulo

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.

6 comentarios en “VBScript – Guardar Correos Seleccionados en un Archivo TXT Outlook

  1. Hola, Excelente información. Estoy corriendo Office 2016 32 Bits. La carpeta del REGEDIT la cree manual, ya que no me salía. He creado el script pero siempre me dice “Error de compilación de Microsoft VBScript” con todos los script y el resultado es el mismo. Espero me pueda ayudar.

    • Buen dia

      Puedes verificar si existe el archivo:
      C:\Windows\SysWOW64\vbscript.dll
      Y verificar si tienes marcado Microsoft VBScript Regular Expressions 5.5 en la consola de Visual Basic de Outlook Herramientas >> Referencias .

      Al igual si me puedes hacer referencia al articulo que mencionas del registro tenemos tres el cual aplicamos esto.

      Saludos.

  2. Hola buenas tardes, estoy tratando de usar tus scripts, para guardar los cuerpos de los mensajes en un txt pero lo he intentado con la opcion de seleccion y carpeta, el resultado me gusrda un solo mensaje de los 600 que tengo…

    Los correos pertenecen a un evento estos datos debo ingresarlos a un excel en columnas

    Un nuevo registro ha sido enviado
    * Nombres: Nombre del competidor
    * Documento: 00000000000
    * Vuelo #: American 0000
    * Ciudad: Bogotá
    * Fecha de Salida: 31 de marzo de 2017
    * Fecha de Regreso: 3 de abril de 2017
    * Nombre de Hotel : Hotel
    * Telefono: 0000000000
    * Email: [email protected]

Deja un comentario...

Compartir
Twittear
+1
Compartir
Pin
Stumble