Ang ilang mga gumagamit ay nais na siksikin ang lahat ng mga email sa isang folder ng Outlook sa a zip file Bagaman walang ganoong direktang pag-andar, maaari mong gamitin ang VBA code na nakalantad sa artikulong ito upang mabilis itong mapagtanto.
Upang zip Para sa lahat ng email sa isang folder ng Outlook, kailangan mo munang i-export ang mga ito sa local drive isa-isa, at pagkatapos ay gamitin ang feature na “Ipadala sa” > “Na-compress (zipped) folder”. Walang duda, nakakapagod ito. Kaya naman, para matulungan kang maisakatuparan ito nang sabay-sabay, sa mga sumusunod, ituturo namin sa iyo ang isa pang paraan. Ituturo nito sa iyo kung paano ito makuha gamit ang VBA code. Kung hindi ka pamilyar sa VBA, maaari kang sumangguni sa “Paano Patakbuhin ang VBA Code sa Iyong Outlook”Pansamantala.
I-compress ang Lahat ng Mga Email sa isang Folder sa a Zip talaksan
- Para sa panimula, ilunsad ang Outlook VBA editor sa pamamagitan ng "Alt + F11".
- Pagkatapos, kopyahin at i-paste ang VBA code sa isang module.
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
- Pagkatapos, i-click ang "F5" na pindutan ng key upang patakbuhin ang macro na ito.
- Sa paglaon, sa popup dialog box, piliin ang pinagmulan ng folder ng Outlook at i-click ang "OK".
- Kapag natapos ang macro, ipapakita ang isang folder ng Windows, kung saan mayroong bago zip file na naglalaman ng lahat ng mga email mula sa napiling folder ng Outlook, tulad ng ipinakita sa sumusunod na figure.
Pangasiwaan ang Nagkakaproblema sa Korupsyon ng Outlook File
Sa lahat ng karaniwang problema sa Outlook, walang dudang ang pinsala sa Outlook ang pinakamalubha. Gayunpaman, sa katotohanan, ang mga ganitong isyu ay maaaring mangyari anumang oras. Samakatuwid, kung ikaw ay isang regular na gumagamit ng Outlook, kailangan mong gumawa ng regular na mga backup ng data ng Outlook. Dagdag pa rito, mainam na kumuha ng isang matatag na... Pag-aayos ng Outlook utility, tulad ng DataNumen Outlook Repair.
Panimula ng May-akda:
Si Shirley Zhang ay isang dalubhasa sa pagbawi ng data sa DataNumen, Inc., na pinuno ng mundo sa mga teknolohiya sa pagbawi ng data, kasama ang sql ayusin at pananaw sa pag-aayos ng mga produktong software. Para sa karagdagang impormasyon pagbisita www.datanumen. Sa