Коли ви отримуєте вкладення у форматі «.zip"розширення файлу", якщо ви хочете їх розпакувати, загалом, вам слід зберегти та розпакувати їх на локальному диску. Але багато хто сподівається розпакувати їх безпосередньо в Outlook. Ця стаття навчить вас, як отримати його за допомогою VBA.
Ви, мабуть, коли-небудь отримували вкладення, які знаходяться у розділі «.zip” розширення файлу. Щоб отримати доступ до внутрішніх файлів в одному zip файл, спочатку потрібно його розпакувати. У цьому випадку, як завжди, спочатку потрібно зберегти zip файл на локальний диск, а потім клацніть його правою кнопкою миші та виберіть у контекстному меню «Витягнути все». Насправді багато користувачів віддають перевагу розпакуванні файлу безпосередньо в Outlook. Однак Outlook не надає такої вбудованої функції. На щастя, ви можете виконати наведені нижче кроки, щоб за допомогою VBA реалізувати це дуже легко.
Розпакуйте .Zip Вкладення безпосередньо в Outlook
- Перш за все, запустіть програму Outlook.
- Потім натисніть комбінацію клавіш «Alt + F11» у вікні Outlook, щоб отримати доступ до редактора VBA.
- Далі у вікні “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 у новому форматі Unicode підтримує розмір файлу 20 ГБ, доцільно зберігати файл якомога менше. Це тому, що великий файл PST набагато більш схильний до пошкодження. Після того, як ваш файл PST буде зламано, вам доведеться докласти зусиль, щоб відновити PST даних. У цьому випадку у вас немає іншого вибору, окрім як повернутися до перевіреного та авторитетного інструменту, як DataNumen Outlook Repair.
Вступ автора:
Ширлі Чжан - експерт із відновлення даних у DataNumen, Inc., яка є світовим лідером у галузі технологій відновлення даних, в тому числі sql ремонт та перспективні програмні продукти для ремонту. Для отримання додаткової інформації відвідайте WWW.datanumen.com