VBScript – Descomprimir zip adjunto y guardar los archivos automáticamente Outlook

A solicitud de un usuario se realizó el siguiente VBscript el cual utilizará para descomprimir y guardar automáticamente las facturas electrónicas que le envían por correo electrónico en zip.

Instrucciones de Uso

1.- Abrir el editor de Visual Basic (ALT+F11).

2.- Insertar un modulo nuevo (Insert > Module).

3.- Copiar el código VBScript.

4.- En la linea 8 debemos especificar la ruta donde se guardaran los archivos (Esta carpeta la creamos manualmente).

Nota: Solo funciona con archivos zip

Para mas información de configuración ver: Como utilizar el Editor VBA en Office (Utilizar Macros VBScript) y Outlook – Crear y configurar reglas

Código

Public Sub unZipAttachments(itm As Outlook.MailItem)
Dim objAtt As Outlook.Attachment
Dim objFSO As Object
Dim i: i = 1
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objShell = CreateObject("Shell.Application")

saveFolder = "C:Archivos unZip"

For Each objAtt In itm.Attachments
   If ((InStr(UCase(objAtt.DisplayName), ".ZIP"))) Then
              FullFileName = saveFolder & objAtt.DisplayName
              objAtt.SaveAsFile (FullFileName)
              Set filesInzip = objShell.NameSpace(FullFileName).Items
              objShell.NameSpace(saveFolder).CopyHere filesInzip
              objFSO.DeleteFile (FullFileName)
    End If
Next
End Sub