Hur man packar upp .Zip Bilagor direkt i Outlook via VBA

När du får en bilaga i ".zip” filändelsen, om du vill packa upp dem, bör du i allmänhet spara och packa upp dem på den lokala enheten. Men många hoppas kunna packa upp dem direkt i Outlook. Den här artikeln lär dig hur du får det via VBA.

Du måste någonsin ha mottagit bilagorna som finns i “.zip”Filtillägg. För att komma åt de interna filerna i en zip filen måste du först packa upp den. I det här fallet måste du, som vanligt, först spara filen zip filen till den lokala enheten och högerklicka sedan på den och välj "Extrahera alla" från snabbmenyn. I verkligheten föredrar många användare att packa upp filen direkt i Outlook. Outlook erbjuder dock inte en sådan inbyggd funktion. Lyckligtvis kan du följa stegen nedan för att använda VBA för att realisera det som en barnlek.

Packa upp .Zip Bilagor direkt i Outlook

1. För det första, starta din Outlook-applikation.
2. Tryck sedan på “Alt + F11” -genvägen i Outlook-fönstret för att komma åt VBA-redigeraren.
3. Nästa i fönstret “Microsoft Visual Basic for Applications” öppnar du en modul som inte används.
4. Kopiera sedan och klistra in följande VBA-koder i den här modulen.

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

5. Därefter kan du lägga till det nya VBA-projektet i snabbåtkomstverktygsfältet i meddelandefönstret som vanligt.
6. Slutligen kan du prova.

• Öppna först ett meddelande med zip fil i sitt eget fönster.
• Klicka sedan på "Åtgärder"> "Redigera meddelande".
• Klicka sedan på den nya makroknappen i snabbåtkomstverktygsfältet.
• På en gång zip filen kommer att packas upp, som i följande skärmdump:

Bli av med irriterande PST-problem

Även om PST-filen i det nya Unicode-formatet stöder 20 GB filstorlek är det fortfarande klokt att hålla filen så liten som möjligt. Det beror på att en stor PST-fil är mycket mer benägen för korruption. När din PST-fil har äventyrats måste du anstränga dig för återställa PST data. I det scenariot har du inget annat val än att återgå till ett väl beprövat och ansedd verktyg som DataNumen Outlook Repair.

Författarintroduktion:

Shirley Zhang är expert på dataåterställning DataNumen, Inc., som är världsledande inom teknik för återställning av data, inklusive sql reparation och Outlook-programvara för reparationsprogramvara. För mer information besök www.datanumen.com