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
