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 OUTLOOK

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






Export xml pdf zip outlook 2013 exportar facturacion electronica México contabilidad accounting SAT