Disa përdorues dëshirojnë të kompresojnë të gjitha emailet në një dosje Outlook në një zip dosje. Megjithëse nuk ka një funksion kaq të drejtpërdrejtë, ju mund të përdorni kodin VBA të ekspozuar në këtë artikull për ta realizuar atë me shpejtësi.
në zip të gjitha emailet në një dosje Outlook, së pari duhet t'i eksportoni ato në njësinë lokale një nga një dhe pastaj të përdorni funksionin "Dërgo te" > "Dosje e kompresuar (me zip). Pa dyshim, kjo është shumë e lodhshme. Prandaj, për t'ju ndihmuar ta kuptoni menjëherë, në vijim do t'ju mësojmë një metodë tjetër. Do t'ju mësojë se si ta merrni atë me kod VBA. Nëse nuk jeni të njohur me VBA, mund t'i referoheni "Si të ekzekutoni kodin VBA në Outlook tuaj" nderkohe.
Kompresoni të gjitha emailet në një dosje në një Zip Skedar
- Për të filluar, hapni redaktorin VBA të Outlook-ut nëpërmjet "Alt + F11".
- Pastaj, kopjoni dhe ngjisni kodin VBA në një modul.
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
- Më pas, klikoni butonin "F5" për të ekzekutuar këtë makro.
- Më vonë, në kutinë e dialogut që shfaqet, zgjidhni dosjen burimore të Outlook dhe klikoni "OK".
- Kur të përfundojë makro, do të shfaqet një dosje Windows, në të cilën ka një të re zip skedar i cili përmban të gjitha emailet nga dosja e zgjedhur Outlook, siç tregohet në figurën e mëposhtme.
Trajtoni korrupsionin problematik të skedarit të Outlook
Ndër të gjitha problemet e zakonshme në Outlook, padyshim, dëmtimi i Outlook është më seriozi. Megjithatë, në realitet, probleme të tilla mund të ndodhin në çdo kohë. Prandaj, nëse jeni një përdorues i rregullt i Outlook, duhet të bëni kopje rezervë të rregullta të të dhënave të Outlook. Plus, është e kujdesshme të merrni një të besueshëm. Riparimi i parashikimeve dobi, si p.sh DataNumen Outlook Repair.
Hyrje e autorit:
Shirley Zhang është një eksperte për rikuperimin e të dhënave DataNumen, Inc., e cila është lider botëror në teknologjitë e rikuperimit të të dhënave, duke përfshirë rregullim sql dhe produkte softuerike të riparimit të pamjes. Për më shumë informacion vizitoni www.datanumen.com