Wanneer u een bijlage ontvangt in “.zipAls je bestanden met de extensie .zip wilt uitpakken, kun je dat het beste lokaal opslaan en uitpakken. Veel mensen willen ze echter direct in Outlook uitpakken. In dit artikel leggen we uit hoe je dat met VBA kunt doen.
U hebt vast wel eens de bijlagen ontvangen die zich in ".zip" bestandsextensie. Om toegang te krijgen tot de interne bestanden in één zip Om het bestand te kunnen uitpakken, moet je het eerst decomprimeren. In dit geval moet je, zoals gebruikelijk, eerst het bestand opslaan. zip Sla het bestand op uw lokale schijf op en klik er vervolgens met de rechtermuisknop op en selecteer 'Alles uitpakken' in het contextmenu. In de praktijk geven veel gebruikers er de voorkeur aan om het bestand direct in Outlook uit te pakken. Outlook biedt deze functie echter niet standaard. Gelukkig kunt u de onderstaande stappen volgen om dit met behulp van VBA heel eenvoudig te doen.
Pak de uit .Zip Bijlagen rechtstreeks in Outlook
- Start in de eerste plaats uw Outlook-applicatie.
- Druk vervolgens op de sneltoets "Alt + F11" in het Outlook-venster om toegang te krijgen tot de VBA-editor.
- Open vervolgens in het venster "Microsoft Visual Basic for Applications" een module die niet in gebruik is.
- Kopieer en plak vervolgens de volgende VBA-codes in deze module.
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
- Daarna kunt u zoals gewoonlijk het nieuwe VBA-project toevoegen aan de werkbalk Snelle toegang van het berichtenvenster.
- Eindelijk kun je het proberen.
- Open eerst een bericht met zip bestand in een eigen venster.
- Klik vervolgens op “Acties” > “Bericht bewerken”.
- Klik vervolgens op de nieuwe macroknop in de werkbalk Snelle toegang.
- Meteen, de zip Het bestand wordt uitgepakt, zoals te zien is in de onderstaande schermafbeelding:
Weg met vervelende PST-problemen
Hoewel het PST-bestand in het nieuwe Unicode-formaat een bestandsgrootte van 20 GB ondersteunt, is het nog steeds verstandig om het bestand zo klein mogelijk te houden. Het is omdat een groot PST-bestand veel vatbaarder is voor corruptie. Zodra uw PST-bestand is gecompromitteerd, zult u moeite moeten doen herstel PST gegevens. In dat scenario heb je geen andere keuze dan terug te keren naar een beproefde en gerenommeerde tool zoals DataNumen Outlook Repair.
Auteur Introductie:
Shirley Zhang is een expert op het gebied van gegevensherstel in DataNumen, Inc., de wereldleider in technologieën voor gegevensherstel, waaronder sql reparatie en Outlook-reparatiesoftwareproducten. Voor meer informatie bezoek www.datanumen.com