Ba'zi foydalanuvchilar Outlook papkasidagi barcha elektron pochta xabarlarini a.ga siqishni xohlashadi zip fayl. Bunday to'g'ridan-to'g'ri funksiya bo'lmasa-da, uni tezda amalga oshirish uchun ushbu maqolada ko'rsatilgan VBA kodidan foydalanishingiz mumkin.
To zip Outlook papkasidagi barcha elektron pochta xabarlarini avval mahalliy diskka birma-bir eksport qilishingiz va keyin "Yuborish" > "Siqilgan (ziplangan) papka" funksiyasidan foydalanishingiz kerak. Shubhasiz, bu juda zerikarli. Shuning uchun, buni birdaniga amalga oshirishingizga yordam berish uchun, quyida sizga boshqa usulni o'rgatamiz. U sizga VBA kodi bilan uni qanday olishni o'rgatadi. Agar siz VBA bilan tanish bo'lmasangiz, "ga murojaat qilishingiz mumkin.Outlook-da VBA kodini qanday ishlatish kerak" shu vaqitning o'zida.
Jilddagi barcha elektron pochta xabarlarini a ga siqish Zip Fayl
- Boshlash uchun Outlook VBA muharririni "Alt + F11" tugmalar birikmasi orqali ishga tushiring.
- Keyin VBA kodini modulga nusxalash va joylashtirish.
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
- Shundan so'ng, ushbu makrosni ishga tushirish uchun "F5" tugmachasini bosing.
- Keyinchalik, ochilgan dialog oynasida manba Outlook papkasini tanlang va "OK" tugmasini bosing.
- Makros tugagach, Windows papkasi ko'rsatiladi, unda yangisi mavjud zip Quyidagi rasmda ko'rsatilganidek, tanlangan Outlook jildidan barcha elektron pochta xabarlarini o'z ichiga olgan fayl.
Muammoli Outlook faylining buzilishi bilan shug'ullaning
Outlookdagi barcha keng tarqalgan muammolar orasida, shubhasiz, Outlookning shikastlanishi eng jiddiyidir. Biroq, aslida bunday muammolar istalgan vaqtda yuzaga kelishi mumkin. Shuning uchun, agar siz doimiy Outlook foydalanuvchisi bo'lsangiz, Outlook ma'lumotlarining muntazam ravishda zaxira nusxalarini yaratishingiz kerak. Bundan tashqari, ishonchli manbaga ega bo'lish oqilona. Outlook-ni ta'mirlash kabi yordamchi dastur DataNumen Outlook Repair.
Muallif kirish:
Shirli Chjan ma'lumotlarni qayta tiklash bo'yicha mutaxassis DataNumenMa'lumotlarni qayta tiklash texnologiyalari bo'yicha jahon yetakchisi bo'lgan , Inc sql tuzatish va Outlook ta'mirlash dasturiy mahsulotlar. Qo'shimcha ma'lumot olish uchun tashrif buyuring www.datanumen.com