sábado, 10 de marzo de 2018

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


No hay comentarios:

Publicar un comentario