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 