Exportar PDF XML ZIP de Outlook con Macro

Este macro para Outlook es particularmente útil para la contabilidad y Facturación electrónica en México, Exporta de los mensajes seleccionados en OUTLOOK (probado en 2013 y superior) los archivos con extensión  XML PDF y ZIP.

Aquí estoy presuponiendo que si lo usa ya conoce de Macros en Outlook, sino busque en web algo de ayuda.

MACRO OUTLOOK
ALT-F11

Doble click en THISOUTLOOKSESSION
En Ventana agregar el código que viene abajo

—-  en Texto —-

Public Sub saveAttachtoDisk()

Dim adjunto As Attachment

Dim NombreArchivo As String

Dim i As Integer

Dim seleccion As Outlook.MailItem

For Each seleccion In Application.ActiveExplorer.Selection

    For Each adjunto In seleccion.Attachments

        If ((InStr(adjunto.DisplayName, «.xml») Or InStr(adjunto.DisplayName, «.pdf») Or InStr(adjunto.DisplayName, «.zip»))) Then

            NombreArchivo = «C:\x\fac\» & adjunto.FileName

            adjunto.SaveAsFile NombreArchivo

            i = i + 1

        End If

    Next adjunto

Next seleccion

End Sub

——-DEPURACION – COMPILAR

ARCHIVO CERRAR Y VOLVER A OUTLOOKCREAR EL FOLDER QUE DEFINIMOS EN CODIGO  «C:\x\fac»

Luego seleccionar emails de los que deseamos exportar PDF , XML y ZIP y presionar ALT-F8

De la lista seleccionar el MACRO y EJECUTAR
Listo, en la localidad indicada de la computadora estarán los archivos

Eso es todo

saludos

@sistronico

Anuncio publicitario

Deja una respuesta

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Salir /  Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Salir /  Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Salir /  Cambiar )

Conectando a %s