როდესაც თქვენ მიიღებთ დანართს „.zip„ფაილის გაფართოება, თუ გსურთ მათი გახსნა, ზოგადად, ისინი უნდა შეინახოთ და გახსნათ ლოკალურ დისკზე. თუმცა, ბევრი იმედოვნებს, რომ მათ პირდაპირ Outlook-ში გახსნას შეძლებს. ეს სტატია გასწავლით, თუ როგორ მიიღოთ ისინი VBA-ს საშუალებით.
თქვენ ოდესმე უნდა მიგეღოთ დანართები, რომლებიც „.zip" ფაილის გაფართოება. შიდა ფაილებზე ერთში წვდომისთვის zip ფაილი, ჯერ უნდა გახსნათ იგი. ამ შემთხვევაში, როგორც ყოველთვის, ჯერ უნდა შეინახოთ zip ფაილი ლოკალურ დისკზე და შემდეგ დააწკაპუნეთ მასზე მარჯვენა ღილაკით და კონტექსტური მენიუდან აირჩიეთ „ყველას ამოღება“. სინამდვილეში, ბევრი მომხმარებელი ფაილის პირდაპირ Outlook-ში გახსნას ამჯობინებს. თუმცა, Outlook ასეთ ფუნქციას არ გვთავაზობს. საბედნიეროდ, თქვენ შეგიძლიათ მიჰყვეთ ქვემოთ მოცემულ ნაბიჯებს, რათა VBA-ს გამოყენება მარტივად განახორციელოთ.
გათიშეთ .Zip დანართები პირდაპირ Outlook-ში
- პირველ რიგში, გაუშვით თქვენი Outlook აპლიკაცია.
- შემდეგ დააჭირეთ ღილაკს "Alt + F11" Outlook-ის ფანჯარაში VBA რედაქტორზე წვდომისთვის.
- შემდეგ "Microsoft Visual Basic აპლიკაციებისთვის" ფანჯარაში გახსენით მოდული, რომელიც არ გამოიყენება.
- ამის შემდეგ, დააკოპირეთ და ჩასვით შემდეგი 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
- ამის შემდეგ, თქვენ შეგიძლიათ დაამატოთ ახალი VBA პროექტი შეტყობინებების ფანჯრის სწრაფი წვდომის ინსტრუმენტთა პანელში, როგორც ყოველთვის.
- საბოლოოდ, შეგიძლიათ სცადოთ.
- პირველ რიგში, გახსენით შეტყობინება zip ფაილი საკუთარ ფანჯარაში.
- შემდეგ დააჭირეთ "მოქმედებები" > "შეტყობინების რედაქტირება".
- შემდეგი დააწკაპუნეთ ახალი მაკრო ღილაკზე სწრაფი წვდომის ხელსაწყოთა ზოლში.
- ერთბაშად, zip ფაილი გაიხსნება, როგორც ეს ნაჩვენებია შემდეგ ეკრანის სურათზე:
მოიშორეთ შემაშფოთებელი PST საკითხები
მიუხედავად იმისა, რომ PST ფაილი ახალ Unicode ფორმატში მხარს უჭერს 20 GB ფაილის ზომას, მაინც გონივრული იქნება ფაილის რაც შეიძლება მცირე ზომის შენარჩუნება. ეს იმიტომ ხდება, რომ დიდი PST ფაილი ბევრად უფრო მიდრეკილია კორუფციისკენ. მას შემდეგ, რაც თქვენი PST ფაილი კომპრომეტირებული იქნება, თქვენ მოგიწევთ ძალისხმევა PST აღდგენა მონაცემები. ამ სცენარში, თქვენ სხვა არჩევანი არ გაქვთ გარდა იმისა, რომ დაუბრუნდეთ კარგად დადასტურებულ და რეპუტაციის ინსტრუმენტს, როგორიცაა DataNumen Outlook Repair.
ავტორი შესავალი:
შირლი ჟანგი არის მონაცემთა აღდგენის ექსპერტი DataNumen, Inc., რომელიც მსოფლიო ლიდერია მონაცემთა აღდგენის ტექნოლოგიებში, მათ შორის sql შეკეთება და Outlook სარემონტო პროგრამული პროდუქტები. დამატებითი ინფორმაციისთვის ეწვიეთ www.datanumen. ერთად