Kako raspakirati .Zip Prilozi direktno u Outlook preko VBA

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

Sigurno ste ikada primili priloge koji se nalaze u ".zip” ekstenzija datoteke. Da biste pristupili internim fajlovima u jednom zip datoteku, prvo je morate raspakirati. U ovom slučaju, kao i obično, prvo morate sačuvati zip datoteku na lokalni disk, a zatim kliknite desnim tasterom miša na nju i odaberite "Izdvoji sve" iz kontekstnog menija. U stvarnosti, mnogi korisnici preferiraju da raspakuju datoteku direktno u Outlooku. Međutim, Outlook ne pruža takvu izvornu funkciju. Srećom, možete slijediti korake u nastavku kako biste koristili VBA da biste to realizovali kao povjetarac.

Raspakirajte .Zip Prilozi direktno u Outlook

1. Prvo pokrenite svoju Outlook aplikaciju.
2. Zatim pritisnite tastersku prečicu „Alt + F11“ u Outlook prozoru da biste pristupili VBA editoru.
3. Zatim u prozoru „Microsoft Visual Basic za aplikacije“ otvorite modul koji se ne koristi.
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 projekat na traku sa alatkama za brzi pristup prozora poruke kao i obično.
6. Konačno, možete probati.

• Prvo otvorite poruku sa zip datoteku u svom prozoru.
• Zatim kliknite na “Radnje” > “Uredi poruku”.
• Zatim kliknite na dugme za novi makro na traci sa alatkama za brzi pristup.
• Odjednom, the zip Datoteka će se raspakirati, kao na sljedećem snimku ekrana:

Riješite se dosadnih PST problema

Iako PST datoteka u novom Unicode formatu podržava veličinu datoteke od 20 GB, ipak je pametno držati datoteku što manjom. To je zato što je velika PST datoteka mnogo sklonija korupciji. Jednom kada vaša PST datoteka bude ugrožena, morat ćete se potruditi oporaviti PST podaci. U tom scenariju, nemate izbora osim da se vratite na dobro dokazan i renomiran alat kao što je DataNumen Outlook Repair.

Uvod za autora:

Shirley Zhang je stručnjak za oporavak podataka DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući sql repair i Outlook softverski proizvodi za popravku. Za više informacija posjetite www.datanumen.com