Cuando reciba un archivo adjunto en “.zipSi deseas descomprimir archivos con extensión .txt, generalmente debes guardarlos y descomprimirlos en tu disco local. Sin embargo, muchos prefieren descomprimirlos directamente en Outlook. Este artículo te enseñará cómo hacerlo mediante VBA.
Debes haber recibido alguna vez los archivos adjuntos que están en “.zip" extensión de archivo. Para acceder a los archivos internos en una zip archivo, primero tienes que descomprimirlo. En este caso, como siempre, primero tienes que guardar el archivo. zip Copie el archivo a su disco local, haga clic derecho sobre él y seleccione "Extraer todo" en el menú contextual. En realidad, muchos usuarios prefieren descomprimir el archivo directamente en Outlook. Sin embargo, Outlook no ofrece esta función de forma nativa. Afortunadamente, puede seguir los pasos que se describen a continuación para usar VBA y lograrlo fácilmente.
Descomprime el .Zip Archivos adjuntos directamente en Outlook
- En primer lugar, inicie su aplicación Outlook.
- Luego presione la tecla de acceso directo "Alt + F11" en la ventana de Outlook para acceder al editor de VBA.
- A continuación, en la ventana "Microsoft Visual Basic para aplicaciones", abra un módulo que no esté en uso.
- Posteriormente, copie y pegue los siguientes códigos VBA en este módulo.
Public Sub UnzipFileInOutlook()
Dim objMail As Outlook.MailItem
Dim objAttachments As Outlook.attachments
Dim objAttachment As Outlook.Attachment
Dim objShell As Object
Dim objFileSystem As Object
Dim strTempFolder As String
Dim strFilePath As String
Dim strFileName As String
Set objMail = Outlook.Application.ActiveInspector.CurrentItem
Set objAttachments = objMail.attachments
'Save & Unzip the zip file in local drive
Set objShell = CreateObject("Shell.Application")
Set objFileSystem = CreateObject("Scripting.FileSystemObject")
strTempFolder = objFileSystem.GetSpecialFolder(2).Path & "\Temp" & Format(Now, "yyyy-mm-dd-hh-mm-ss")
MkDir (strTempFolder)
For Each objAttachment In objAttachments
If Right(objAttachment.FileName, 3) = "zip" Then
strFilePath = strTempFolder & "\" & objAttachment.FileName
objAttachment.SaveAsFile (strFilePath)
objShell.NameSpace((strTempFolder)).CopyHere objShell.NameSpace((strFilePath)).Items
End If
Next
'Reattach the files extracted from the zip file
strFileName = Dir(strTempFolder & "\")
While Len(strFileName) > 0
objMail.attachments.Add (strTempFolder & "\" & strFileName)
strFileName = Dir
objMail.Save
Wend
'Delete the attachments in “.zip” file extension
Set objAttachments = objMail.attachments
For Each objAttachment In objAttachments
If Right(objAttachment.FileName, 3) = "zip" Then
objAttachment.Delete
objMail.Save
End If
Next
'Delete the temp folder and files
objFileSystem.DeleteFolder (strTempFolder)
End Sub
- Después de eso, puede agregar el nuevo proyecto de VBA a la barra de herramientas de acceso rápido de la ventana de mensajes como de costumbre.
- Finalmente, puedes intentarlo.
- Primero, abra un mensaje con zip archivo en su propia ventana.
- Luego haga clic en "Acciones"> "Editar mensaje".
- A continuación, haga clic en el botón de nueva macro en la barra de herramientas de acceso rápido.
- De una vez, el zip El archivo se descomprimirá, como se muestra en la siguiente captura de pantalla:
Deshágase de los molestos problemas de PST
Aunque el archivo PST en el nuevo formato Unicode admite un tamaño de archivo de 20 GB, es conveniente mantener el archivo lo más pequeño posible. Se debe a que un archivo PST grande es mucho más propenso a la corrupción. Una vez que su archivo PST se vea comprometido, tendrá que hacer esfuerzos para recuperar PST datos. En ese escenario, no tiene más remedio que recurrir a una herramienta bien probada y de buena reputación como DataNumen Outlook Repair.
Introducción del autor:
Shirley Zhang es experta en recuperación de datos en DataNumen, Inc., que es el líder mundial en tecnologías de recuperación de datos, incluyendo reparación de sql y productos de software de reparación de Outlook. Para más información visite www.datanumen.com