Kako razpakirati .Zip Priloge neposredno v Outlooku prek VBA

Ko prejmete prilogo v ».zip"končnico datoteke", če jih želite razpakirati, jih na splošno shranite in razpakirajte na lokalni pogon. Mnogi pa upajo, da jih bodo lahko razpakirali neposredno v Outlooku. Ta članek vas bo naučil, kako to storiti prek VBA.

Priloge, ki so v ".zip” razširitev datoteke. Za dostop do notranjih datotek v enem zip datoteko, jo morate najprej razpakirati. V tem primeru morate, kot običajno, najprej shraniti zip Datoteko shranite na lokalni pogon, nato pa jo kliknite z desno miškino tipko in v kontekstnem meniju izberite »Izvleči vse«. V resnici mnogi uporabniki raje razpakirajo datoteko neposredno v Outlooku. Vendar Outlook ne ponuja takšne izvorne funkcije. Na srečo lahko sledite spodnjim korakom, da to preprosto izvedete z uporabo VBA.

Razpakirajte .Zip Priloge neposredno v programu Outlook

1. Najprej zaženite aplikacijo Outlook.
2. Nato v Outlookovem oknu pritisnite tipko »Alt + F11« za dostop do urejevalnika VBA.
3. Nato v oknu »Microsoft Visual Basic for Applications« odprite modul, ki ni v uporabi.
4. Nato v ta modul kopirajte in prilepite naslednje kode VBA.

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. Po tem lahko kot običajno dodate nov projekt VBA v orodno vrstico za hitri dostop okna s sporočili.
6. Končno lahko poskusite.

• Najprej odprite sporočilo z zip datoteko v svojem oknu.
• Nato kliknite »Dejanja« > »Uredi sporočilo«.
• Nato v orodni vrstici za hitri dostop kliknite gumb za nov makro.
• Naenkrat, zip Datoteka se bo razpakirala, kot je prikazano na naslednjem posnetku zaslona:

Znebite se nadležnih težav s PST

Čeprav datoteka PST v novem formatu Unicode podpira velikost datoteke 20 GB, je vseeno pametno, da je datoteka čim manjša. To je zato, ker je velika datoteka PST veliko bolj nagnjena k poškodbam. Ko bo vaša datoteka PST ogrožena, se boste morali potruditi obnoviti PST podatke. V tem primeru vam ne preostane drugega, kot da se vrnete k preizkušenemu in uglednemu orodju, kot je DataNumen Outlook Repair.

Uvod avtorja:

Shirley Zhang je strokovnjakinja za obnovitev podatkov v DataNumen, Inc., ki je vodilna na svetu na področju tehnologij za obnovitev podatkov, vključno z popravilo sql in obeti za popravilo programskih izdelkov. Za več informacij obiščite www.datanumen.com