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

 

Califica este articulo

Fernando O.

Soy analista de sistemas actualmente trabajo en una empresa con mas de 200 empleados que utilizan equipo de computo al cual se les da soporte en el departamento.
Uno de mis pasatiempos fuera de la empresa es escribir artículos para PortalMasTips donde documento los problemas, inquietudes y detalles interesantes que se presentan.
Compartir
Twittear
+1
Compartir
Pin
Stumble