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

 

Artículo anteriorWordPress – Enlace de la página del autor se redirecciona a la página principal
Artículo siguienteWindows – Como instalar controlador manualmente