Някои потребители биха искали да компресират всички имейли в папка на Outlook в a zip файл. Въпреки че няма такава директна функция, можете да използвате VBA кода, изложен в тази статия, за да я реализирате бързо.
Да се zip За да получите достъп до всички имейли в папка на Outlook, първо трябва да ги експортирате на локално устройство един по един и след това да използвате функцията „Изпрати до“ > „Компресирана (zip) папка“. Без съмнение, по този начин е твърде досадно. Затова, за да ви помогнем да го осъзнаете наведнъж, по-долу ще ви покажем друг метод. Той ще ви покаже как да го получите с VBA код. Ако не сте запознати с VBA, можете да се обърнете към „Как да стартирате VBA код във вашия Outlook" Междувременно.
Компресирайте всички имейли в папка в a Zip досие
- За начало стартирайте редактора на Outlook VBA чрез „Alt + F11“.
- След това копирайте и поставете VBA кода в модул.
Sub ZipAllEmailsInAFolder()
Dim objFolder As Outlook.Folder
Dim objItem As Object
Dim objMail As Outlook.MailItem
Dim strSubject As String
Dim varTempFolder As Variant
Dim varZipFile As Variant
Dim objShell As Object
Dim objFileSystem As Object
'Select an Outlook Folder
Set objFolder = Outlook.Application.Session.PickFolder
If Not (objFolder Is Nothing) Then
'Create a temp folder
varTempFolder = "E:\" & objFolder.Name & Format(Now, "YYMMDDHHMMSS")
MkDir (varTempFolder)
varTempFolder = varTempFolder & "\"
'Save each email as msg file
For Each objItem In objFolder.Items
If TypeOf objItem Is MailItem Then
Set objMail = objItem
strSubject = objMail.Subject
strSubject = Replace(strSubject, "/", " ")
strSubject = Replace(strSubject, "\", " ")
strSubject = Replace(strSubject, ":", "")
strSubject = Replace(strSubject, "?", " ")
strSubject = Replace(strSubject, Chr(34), " ")
objMail.SaveAs varTempFolder & strSubject & ".msg", olMSG
End If
Next
'Create a new ZIP file
varZipFile = "E:\" & objFolder.Name & " Emails.zip"
Open varZipFile For Output As #1
Print #1, Chr$(80) & Chr$(75) & Chr$(5) & Chr$(6) & String(18, 0)
Close #1
'Add the exported msg files to the ZIP file
Set objShell = CreateObject("Shell.Application")
objShell.NameSpace(varZipFile).CopyHere objShell.NameSpace(varTempFolder).Items
On Error Resume Next
Do Until objShell.NameSpace(varZipFile).Items.Count = objShell.NameSpace(varTempFolder).Items.Count
Application.Wait (Now + TimeValue("0:00:01"))
Loop
On Error GoTo 0
'Delete the temp folder
Set objFileSystem = CreateObject("Scripting.FileSystemObject")
objFileSystem.DeleteFolder Left(varTempFolder, Len(varTempFolder) - 1)
End If
End Sub
- След това щракнете върху бутона „F5“, за да стартирате този макрос.
- По-късно в изскачащия диалогов прозорец изберете изходната папка на Outlook и щракнете върху „OK“.
- Когато макросът приключи, ще се покаже папка на Windows, в която има нов zip файл, който съдържа всички имейли от избраната папка на Outlook, както е показано на следващата фигура.
Справете се с проблемната повреда на файлове на Outlook
Сред всички често срещани проблеми в Outlook, безспорно, повредите в Outlook са най-сериозният. В действителност обаче подобни проблеми могат да възникнат по всяко време. Следователно, ако сте редовен потребител на Outlook, трябва да правите редовни резервни копия на данните на Outlook. Освен това е разумно да се сдобиете със стабилна система за архивиране. Поправка на Outlook полезност, като DataNumen Outlook Repair.
Въведение на автора:
Шърли Джанг е експерт по възстановяване на данни в DataNumen, Inc., която е световен лидер в технологиите за възстановяване на данни, включително sql корекция и outlook софтуерни продукти за ремонт. За повече информация посетете WWW.datanumen.com