Saltar al contenido

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

 

Leer entrada anterior
WordPress - Enlace de la página del autor se redirecciona a la página principal
WordPress – Enlace de la página del autor se redirecciona a la página principal

Hace unos días optimizando la configuración de PortalMasTips, me percate que al momento de dar clic en el enlace de la...

Cerrar