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

 

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.

Deja un comentario...

Compartir3
Twittear
+1
Compartir
Pin
Stumble