Երբ դուք ստանում եք կցորդ «.zip«» ֆայլի ընդլայնումը, եթե ցանկանում եք դրանք բացել zip-ում, ընդհանուր առմամբ, պետք է պահպանեք և բացել zip-ը տեղական սկավառակի վրա: Սակայն շատերը հույս ունեն դրանք բացել անմիջապես Outlook-ում: Այս հոդվածը կսովորեցնի ձեզ, թե ինչպես ստանալ այն VBA-ի միջոցով:
Դուք պետք է որ երբևէ ստացած լինեք այն կից նյութերը, որոնք գտնվում են «.zip”Ֆայլի ընդլայնում: Ներքին ֆայլերը մեկում մուտք գործելու համար zip ֆայլը, դուք նախ պետք է այն բացեք zip ֆայլից։ Այս դեպքում, ինչպես միշտ, դուք նախ պետք է պահպանեք այն։ zip ֆայլը տեղային սկավառակի վրա, այնուհետև աջ սեղմեք դրա վրա և համատեքստային ցանկից ընտրեք «Արտահանել բոլորը»։ Իրականում, շատ օգտատերեր նախընտրում են ֆայլը ապլիկացնել անմիջապես Outlook-ում։ Սակայն Outlook-ը նման բնօրինակ գործառույթ չի ապահովում։ Բարեբախտաբար, դուք կարող եք հետևել ստորև նշված քայլերին՝ VBA-ն օգտագործելու և դա շատ հեշտ իրականացնելու համար։
Անջատեք այն .Zip Կցորդներ ուղղակիորեն Outlook- ում
- Առաջին հերթին գործարկեք ձեր Outlook հավելվածը:
- Դրանից հետո Outlook պատուհանում սեղմեք «Alt + F11» ստեղնաշարի դյուրանցումը ՝ 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 Ֆայլը կբացվի zip-ում, ինչպես հետևյալ էկրանի նկարում։
Ազատվեք PST- ի նյարդայնացնող խնդիրներից
Չնայած նոր Unicode ձևաչափով PST ֆայլը ապահովում է 20 ԳԲ ֆայլի չափ, այնուամենայնիվ խելամիտ է ֆայլը հնարավորինս փոքր պահել: Դա այն պատճառով է, որ այդ PST մեծ ֆայլը շատ ավելի հակված է կոռուպցիայի: Երբ ձեր PST ֆայլը վտանգվի, դուք ստիպված կլինեք ջանքեր գործադրել դրա համար վերականգնել PST- ն տվյալներ Այդ սցենարում ձեզ այլ բան չի մնում, քան կրկին փորձել ապացուցված և հեղինակավոր գործիքի նման DataNumen Outlook Repair.
Հեղինակի ներածություն.
Shirley Zhang- ը տվյալների վերականգման փորձագետ է DataNumen, Inc., որը տվյալների վերականգման տեխնոլոգիաների համաշխարհային առաջատարն է, այդ թվում sql վերանորոգում և հեռանկարների նորոգման ծրագրակազմի արտադրանքները: Լրացուցիչ տեղեկությունների համար այցելեք www.datanumen.com