Kako raspakirati .Zip Privici izravno u Outlooku putem VBA

Kada primite privitak u ".zip" ekstenzija datoteke", ako ih želite raspakirati, općenito ih trebate spremiti i raspakirati na lokalni pogon. Ali mnogi se nadaju da će ih raspakirati izravno u Outlooku. Ovaj članak će vas naučiti kako to učiniti putem VBA-e.

Sigurno ste ikada primili priloge koji se nalaze u ".zip” nastavak datoteke. Kako biste pristupili internim datotekama u jednom zip datoteku, prvo je morate raspakirati. U ovom slučaju, kao i obično, prvo morate spremiti zip datoteku na lokalni disk, a zatim je kliknite desnom tipkom miša i odaberite "Izdvoji sve" iz kontekstnog izbornika. U stvarnosti, mnogi korisnici radije raspakiraju datoteku izravno unutar Outlooka. Međutim, Outlook ne pruža takvu izvornu značajku. Srećom, možete slijediti korake u nastavku kako biste koristili VBA i to učinili vrlo jednostavno.

Raspakirajte .Zip Privici izravno u programu Outlook

1. Prvo pokrenite svoju Outlook aplikaciju.
2. Zatim pritisnite prečac tipke “Alt + F11” u prozoru programa Outlook za pristup VBA uređivaču.
3. Zatim u prozoru "Microsoft Visual Basic za aplikacije" otvorite modul koji nije u upotrebi.
4. Nakon toga kopirajte i zalijepite sljedeće VBA kodove u ovaj modul.

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. Nakon toga možete dodati novi VBA projekt na alatnu traku za brzi pristup prozora s porukama kao i obično.
6. Konačno, možete pokušati.

• Prvo otvorite poruku s zip datoteku u vlastitom prozoru.
• Zatim kliknite “Akcije” > “Uredi poruku”.
• Zatim kliknite gumb nove makronaredbe na alatnoj traci za brzi pristup.
• Odjednom, zip Datoteka će se raspakirati, kao na sljedećoj snimci zaslona:

Riješite se dosadnih PST problema

Iako PST datoteka u novom Unicode formatu podržava veličinu datoteke od 20 GB, ipak je mudro držati datoteku što manjom. To je zato što je velika PST datoteka mnogo sklonija oštećenju. Nakon što vaša PST datoteka bude ugrožena, morat ćete se potruditi oporaviti PST podaci. U tom scenariju, nemate drugog izbora nego se vratiti dobro dokazanom i renomiranom alatu kao što je DataNumen Outlook Repair.

Uvod za autora:

Shirley Zhang stručnjakinja je za oporavak podataka u DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući sql popravak i softverske proizvode za popravak Outlooka. Za više informacija posjetite www.datanumen.com