«» бөлімінде қосымшаны алған кезде.zip«файл кеңейтімін ашу үшін, егер сіз оларды мұрағаттан шығарғыңыз келсе, жалпы алғанда, оларды жергілікті дискіде сақтап, мұрағаттан шығаруыңыз керек. Бірақ көпшілігі оларды тікелей Outlook бағдарламасында мұрағаттан шығаруды қалайды. Бұл мақалада оны VBA арқылы қалай алу керектігі үйретіледі.
Сіз бұрын-соңды «» бөліміндегі қосымшаларды алған болуыңыз керек..zip»Файл кеңейтімі. Ішкі файлдарға қол жеткізу үшін zip файлды алдымен мұрағаттан шығару керек. Бұл жағдайда, әдеттегідей, алдымен сақтау керек zip файлды жергілікті дискіге көшіріп, оны тінтуірдің оң жақ түймешігімен басып, контекстік мәзірден «Барлығын шығару» тармағын таңдаңыз. Шын мәнінде, көптеген пайдаланушылар файлды Outlook ішінде тікелей мұрағаттан шығарғанды жөн көреді. Дегенмен, Outlook мұндай жергілікті мүмкіндікті ұсынбайды. Бақытымызға орай, VBA көмегімен мұны оңай жүзеге асыру үшін төмендегі қадамдарды орындай аласыз.
Мұрағаттан шығарыңыз .Zip Қосымшалар тікелей Outlook бағдарламасында
- Біріншіден, Outlook қосымшасын іске қосыңыз.
- VBA редакторына кіру үшін Outlook терезесінде «Alt + F11» пернелер тіркесімін басыңыз.
- Содан кейін «Microsoft Visual Basic for Applications» терезесінде пайдаланылмаған модульді ашыңыз.
- Осы модульге келесі 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 файлы 20 ГБ файл өлшемін қолдайтынына қарамастан, файлды мүмкіндігінше кіші етіп сақтау дұрыс. Себебі үлкен PST файлы сыбайлас жемқорлыққа көбірек бейім. Сіздің PST файлыңыз бұзылғаннан кейін сіз оған күш салуыңыз керек PST қалпына келтіру деректер. Бұл жағдайда сізде дәлелденген және беделді құралға қайта оралудан басқа амал жоқ DataNumen Outlook Repair.
Автордың кіріспесі:
Ширли Чжан - деректерді қалпына келтіру бойынша сарапшы DataNumen, Соның ішінде деректерді қалпына келтіру технологиялары бойынша әлемдік көшбасшы болып табылатын Inc. квадрат жөндеу және бағдарламалық жасақтаманы жөндеу бағдарламалары. Қосымша ақпарат алу үшін кіріңіз WWW.datanumen.com