VBScript – Guardar asunto de correos en un TXT en Outlook

El siguiente VBScript guarda en un archivo TXT el asunto de los correos de una carpeta de Outlook.

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.- Modificar en la linea 8 la ruta y nombre del archivo TXT donde se va a exportar el asunto de los correos.

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 para guardar asunto de correos en un TXT en Outlook

Código que exporta el asunto de los correos electrónicos a TXT, exporta la selección de la carpeta actual en Outlook.

Sub saveAllEmailSubjectInFolderToTXT()
Dim objItem As Outlook.MailItem
Dim sText As String
Dim objFS
Set objFS = CreateObject("Scripting.FileSystemObject")
Dim sFile As String
Dim objFile
sFile = "C:\1-Tests\ListadoDeAsuntos.txt"

Set objFile = objFS.CreateTextFile(sFile, False)

For Each objItem In ActiveExplorer.CurrentFolder.Items
 With objFile
    .Write vbCrLf & "--Inicio--" & vbCrLf
    .Write "Subject: " & objItem.Subject & vbCrLf & vbCrLf
    .Write vbCrLf & "--Fin--" & vbCrLf
 End With
Next
  objFile.Close
End Sub

 

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.

Deja un comentario

Este sitio usa Akismet para reducir el spam. Aprende cómo se procesan los datos de tus comentarios.

Compartir3
Twittear
Pin
Más en Outlook VBScript
VBScript – Responder automáticamente determinado correo electrónico 

Outlook – Opción ejecutar un script (run a script) no aparece en las reglas

VBScript – Outlook reenviar correo y agregar texto automaticamente

Cerrar