Jak rozbalit .Zip Přílohy přímo v Outlooku přes VBA

Když obdržíte přílohu ve formátu „.zip„přípona souboru“, pokud je chcete rozbalit, obecně byste je měli uložit a rozbalit na místní disk. Mnozí však doufají, že je rozbalí přímo v Outlooku. Tento článek vás naučí, jak je získat pomocí VBA.

Museli jste někdy obdržet přílohy, které jsou v „.zip" přípona souboru. Pro přístup k interním souborům v jednom zip soubor, musíte jej nejprve rozbalit. V tomto případě, jako obvykle, musíte nejprve uložit zip soubor na místní disk a poté na něj klikněte pravým tlačítkem myši a v kontextové nabídce vyberte možnost „Extrahovat vše“. Ve skutečnosti mnoho uživatelů dává přednost rozbalení souboru přímo v Outlooku. Outlook však takovou nativní funkci neposkytuje. Naštěstí můžete podle níže uvedených kroků snadno využít VBA.

Rozbalte .Zip Přílohy přímo v Outlooku

1. Na prvním místě spusťte aplikaci Outlook.
2. Poté stiskněte klávesovou zkratku „Alt + F11“ v okně aplikace Outlook a otevřete editor VBA.
3. Dále v okně „Microsoft Visual Basic pro aplikace“ otevřete modul, který se nepoužívá.
4. Následně zkopírujte a vložte následující kódy VBA do tohoto modulu.

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. Poté můžete jako obvykle přidat nový projekt VBA na panel nástrojů Rychlý přístup v okně zprávy.
6. Nakonec to můžete vyzkoušet.

• Nejprve otevřete zprávu pomocí zip soubor ve vlastním okně.
• Poté klikněte na „Akce“> „Upravit zprávu“.
• Dále klikněte na tlačítko nového makra na panelu nástrojů Rychlý přístup.
• Najednou zip Soubor se rozbalí, jako na následujícím snímku obrazovky:

Zbavte se otravných problémů s PST

Ačkoli soubor PST v novém formátu Unicode podporuje velikost souboru 20 GB, je stále rozumné udržovat soubor co nejmenší. Je to proto, že velký soubor PST je mnohem náchylnější k poškození. Jakmile bude váš soubor PST prolomen, budete muset vyvinout úsilí obnovit PST data. V tomto scénáři vám nezbývá než se vrátit k osvědčenému a renomovanému nástroji, jako je DataNumen Outlook Repair.

Úvod autora:

Shirley Zhang je expertem na obnovu dat DataNumen, Inc., která je světovým lídrem v oblasti technologií pro obnovu dat, včetně oprava sql a výhledové softwarové produkty pro opravy. Pro více informací navštivte www.datanumen.com