Кейбір пайдаланушылар Outlook қалтасындағы барлық электрондық хаттарды zip файл. Мұндай тікелей функция болмаса да, сіз оны тез іске асыру үшін осы мақалада келтірілген VBA кодын пайдалана аласыз.
Кімге zip Outlook қалтасындағы барлық электрондық пошталарды алдымен жергілікті дискіге бір-бірлеп экспорттау керек, содан кейін «Жіберу» > «Сығылған (zipтелген) қалта» мүмкіндігін пайдалану керек. Сөзсіз, бұл тым жалықтырады. Сондықтан, мұны бірден түсінуге көмектесу үшін, төменде біз сізге басқа әдісті үйретеміз. Ол сізге оны VBA кодымен қалай алу керектігін үйретеді. Егер сіз VBA-мен таныс болмасаңыз, «Outlook бағдарламасында VBA кодын қалай іске қосуға болады« тап сол кезде.
Қалтадағы барлық электрондық хаттарды а-ға қысыңыз 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 деректерінің сақтық көшірмелерін үнемі жасауыңыз керек. Сонымен қатар, сенімді серверге қол жеткізген жөн. Перспективаны жөндеу сияқты утилита DataNumen Outlook Repair.
Автордың кіріспесі:
Ширли Чжан - деректерді қалпына келтіру бойынша сарапшы DataNumen, Соның ішінде деректерді қалпына келтіру технологиялары бойынша әлемдік көшбасшы болып табылатын Inc. sql түзету және бағдарламалық жасақтаманы жөндеу бағдарламалары. Қосымша ақпарат алу үшін кіріңіз WWW.datanumen.com