Saltar al contenido

VBScript – Guardar asunto de correos en un TXT en Outlook

Valora la información: 1 estrella2 estrellas3 estrellas4 estrellas5 estrellas (Ninguna valoración todavía)
VBScript - Guardar asunto de correos en un TXT en Outlook - loadingCargando…

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 - Logo Wordpress Azul
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