Kur merrni një bashkëngjitje në ".zip", nëse doni t'i çkompresoni, në përgjithësi duhet t'i ruani dhe t'i çkompresoni në diskun lokal. Por shumë shpresojnë t'i çkompresojnë direkt në Outlook. Ky artikull do t'ju mësojë se si ta merrni atë nëpërmjet VBA-së.
Duhet t'i keni marrë ndonjëherë bashkëngjitjet që janë në ".zip” Zgjatja e skedarit. Për të hyrë në skedarët e brendshëm në një zip skedarin, së pari duhet ta çkompresoni atë. Në këtë rast, si zakonisht, së pari duhet ta ruani zip skedarin në diskun lokal dhe pastaj klikoni me të djathtën mbi të dhe zgjidhni "Extract All" (Ekstrakt të Gjitha) nga menyja e kontekstit. Në realitet, shumë përdorues preferojnë ta çkompresojnë skedarin direkt brenda Outlook. Megjithatë, Outlook nuk ofron një veçori të tillë vendase. Për fat të mirë, mund të ndiqni hapat më poshtë për të përdorur VBA-në për ta realizuar atë shumë lehtë.
Hap zinxhirin .Zip Bashkëngjitjet direkt në Outlook
- Në radhë të parë, hapni aplikacionin tuaj Outlook.
- Më pas shtypni shkurtoren e tastit "Alt + F11" në dritaren e Outlook për të hyrë në redaktuesin VBA.
- Më pas në dritaren "Microsoft Visual Basic për aplikacione", hapni një modul që nuk është në përdorim.
- Më pas, kopjoni dhe ngjisni kodet e mëposhtme VBA në këtë 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
- Pas kësaj, ju mund të shtoni projektin e ri VBA në shiritin e veglave të aksesit të shpejtë të dritares së mesazheve si zakonisht.
- Më në fund, mund të provoni.
- Së pari, hapni një mesazh me zip skedar në dritaren e vet.
- Pastaj klikoni "Veprimet" > "Ndrysho mesazhin".
- Më pas klikoni butonin e ri makro në shiritin e veglave të aksesit të shpejtë.
- Menjëherë, të zip Skedari do të çkompresohet, si në pamjen e mëposhtme të ekranit:
Hiqni qafe çështjet e bezdisshme PST
Megjithëse skedari PST në formatin e ri Unicode mbështet madhësinë e skedarit 20 GB, është ende e mençur të mbash skedarin sa më të vogël të jetë e mundur. Kjo është për shkak se një skedar i madh PST është shumë më i prirur ndaj korrupsionit. Pasi skedari juaj PST të komprometohet, do t'ju duhet të bëni përpjekje për të rikuperoni PST të dhëna. Në atë skenar, nuk keni zgjidhje tjetër veçse të ktheheni te një mjet i provuar mirë dhe me reputacion si DataNumen Outlook Repair.
Hyrje e autorit:
Shirley Zhang është një eksperte për rikuperimin e të dhënave DataNumen, Inc., e cila është lider botëror në teknologjitë e rikuperimit të të dhënave, duke përfshirë riparimi sql dhe produkte softuerike të riparimit të pamjes. Për më shumë informacion vizitoni www.datanumen.com