Kaip išpakuoti .Zip Priedai tiesiogiai „Outlook“ per VBA

Kai gaunate priedą „.zip„failo plėtiniu“, jei norite juos išskleisti, paprastai turėtumėte juos išsaugoti ir išskleisti vietiniame diske. Tačiau daugelis tikisi juos išskleisti tiesiogiai programoje „Outlook“. Šiame straipsnyje sužinosite, kaip juos gauti naudojant VBA.

Jūs tikriausiai kada nors gavote priedus, esančius skyriuje „.zip" failo plėtinys. Norėdami pasiekti vidinius failus viename zip failą, pirmiausia turite jį išskleisti. Šiuo atveju, kaip įprasta, pirmiausia turite išsaugoti zip Nukopijuokite failą į vietinį diską, tada spustelėkite jį dešiniuoju pelės mygtuku ir kontekstiniame meniu pasirinkite „Išskleisti viską“. Iš tikrųjų daugelis vartotojų renkasi išskleisti failą tiesiai programoje „Outlook“. Tačiau „Outlook“ neturi tokios integruotos funkcijos. Laimei, galite atlikti toliau nurodytus veiksmus, kad tai būtų įgyvendinta labai lengvai naudojant VBA.

Išpakuokite .Zip Priedai tiesiogiai „Outlook“.

1. Pirmiausia paleiskite „Outlook“ programą.
2. Tada paspauskite „Alt + F11“ spartųjį klavišą „Outlook“ lange, kad pasiektumėte VBA redaktorių.
3. Tada lange „Microsoft Visual Basic for Applications“ atidarykite nenaudojamą modulį.
4. Tada nukopijuokite ir įklijuokite šiuos VBA kodus į šį 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. Po to, kaip įprasta, galite pridėti naują VBA projektą į pranešimų lango greitosios prieigos įrankių juostą.
6. Pagaliau galite pabandyti.

• Pirmiausia atidarykite pranešimą su zip failą savo lange.
• Tada spustelėkite „Veiksmai“ > „Redaguoti pranešimą“.
• Tada greitosios prieigos įrankių juostoje spustelėkite naujos makrokomandos mygtuką.
• Iš karto, zip failas bus išpakuotas, kaip parodyta toliau pateiktame ekrano kopijoje:

Atsikratykite erzinančių PST problemų

Nors PST failas naujuoju Unicode formatu palaiko 20 GB failo dydį, vis tiek protinga, kad failas būtų kuo mažesnis. Taip yra todėl, kad didelis PST failas yra daug labiau linkęs sugadinti. Kai jūsų PST failas bus pažeistas, turėsite dėti pastangas susigrąžinti PST duomenis. Tokiu atveju jūs neturite kito pasirinkimo, kaip tik pakartotinai naudoti gerai patikrintą ir patikimą įrankį, pvz., DataNumen Outlook Repair.

Autoriaus įvadas:

Shirley Zhang yra duomenų atkūrimo ekspertė DataNumen, Inc., kuri yra pasaulyje duomenų atkūrimo technologijų lyderė, įskaitant sql remontas ir „Outlook“ taisymo programinės įrangos produktai. Norėdami gauti daugiau informacijos, apsilankykite WWW.datanumen.com