Kad saņemat pielikumu mapē “.zip” faila paplašinājumu, ja vēlaties tos atzipēt, parasti tie jāsaglabā un atzipējiet lokālajā diskā. Taču daudzi cer tos atzipēt tieši programmā Outlook. Šajā rakstā ir paskaidrots, kā to iegūt, izmantojot VBA.
Jums noteikti kādreiz ir bijuši pieejami pielikumi, kas atrodas sadaļā “.zip”Faila paplašinājums. Lai piekļūtu iekšējiem failiem vienā zip failu, vispirms tas ir jāatzipēro. Šajā gadījumā, kā parasti, vispirms ir jāsaglabā zip failu lokālajā diskā un pēc tam ar peles labo pogu noklikšķiniet uz tā un konteksta izvēlnē atlasiet “Izvilkt visu”. Patiesībā daudzi lietotāji dod priekšroku faila atzipēšanai tieši programmā Outlook. Tomēr Outlook nenodrošina šādu iebūvētu funkciju. Par laimi, jūs varat izpildīt tālāk norādītās darbības, lai izmantotu VBA un to paveiktu pavisam vienkārši.
Atskrūvējiet rāvējslēdzēju .Zip Pielikumi tieši programmā Outlook
- Pirmkārt, palaidiet savu Outlook lietojumprogrammu.
- Pēc tam Outlook logā nospiediet taustiņa saīsni “Alt + F11”, lai piekļūtu VBA redaktoram.
- Pēc tam logā “Microsoft Visual Basic for Applications” atveriet moduli, kas netiek izmantots.
- Pēc tam nokopējiet un ielīmējiet šajā modulī šādus VBA kodus.
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
- Pēc tam jauno VBA projektu kā parasti varat pievienot ziņojuma loga ātrās piekļuves rīkjoslai.
- Visbeidzot, jūs varat izmēģināt.
- Vispirms atveriet ziņojumu ar zip failu savā logā.
- Pēc tam noklikšķiniet uz “Darbības”> “Rediģēt ziņojumu”.
- Pēc tam ātrās piekļuves rīkjoslā noklikšķiniet uz jaunās pogas makro.
- Uzreiz, zip fails tiks atzipēts, kā parādīts tālāk redzamajā ekrānuzņēmumā:
Atbrīvojieties no kaitinošām PST problēmām
Lai gan PST fails jaunajā Unicode formātā atbalsta 20 GB faila lielumu, tomēr ir prātīgi saglabāt failu pēc iespējas mazāku. Tas ir tāpēc, ka liels PST fails ir daudz vairāk pakļauts korupcijai. Kad jūsu PST fails būs apdraudēts, jums būs jāpieliek pūles atgūt PST dati. Šajā scenārijā jums nekas cits neatliek kā atkārtoties pie labi pārbaudīta un cienījama rīka, piemēram, DataNumen Outlook Repair.
Autora ievads:
Šērlija Džana ir datu atkopšanas eksperte DataNumen, Inc., kas ir pasaules līderis datu atkopšanas tehnoloģiju, tostarp sql remonts un perspektīvas remonta programmatūras produktus. Lai iegūtu vairāk informācijas, apmeklējiet vietni www.datanumen. Ar