Sådan komprimeres alle e-mails i en Outlook-mappe hurtigt til en Zip File (Felt)

Nogle brugere vil gerne komprimere alle e-mails i en Outlook-mappe til en zip fil. Selvom der ikke er sådan en direkte funktion, kan du bruge VBA-koden, der er afsløret i denne artikel, til at realisere det hurtigt.

Til zip alle e-mails i en Outlook-mappe, skal du først eksportere dem til det lokale drev én efter én, og derefter bruge “Send til” > “Komprimeret (zipped) mappe" funktion. Uden tvivl er det på denne måde for kedeligt. Derfor, for at hjælpe dig med at realisere det på én gang, vil vi i det følgende lære dig en anden metode. Det vil lære dig, hvordan du får det med VBA-kode. Hvis du ikke er bekendt med VBA, kan du henvise til "Sådan køres VBA-kode i din Outlook" i mellemtiden.

Komprimer alle e-mails i en mappe til en Zip File (Felt)

1. For somtart, start Outlook VBA-editor via “Alt + F11”.
2. Kopier og indsæt derefter VBA-koden i et modul.

Under ZipAllEmailsInAFolder() Dim objFolder As Outlook.Folder Dim objItem As Object Dim objMail As Outlook.MailItem Dim strSubject As String Dim varTempFolder As Variant Dim varZipFil som variant Dim objShell As Object Dim objFileSystem As Object 'Vælg en Outlook-mappe Sæt objFolder = Outlook.Application.Session.PickFolder Hvis ikke (objFolder er ingenting) Så 'Opret en midlertidig mappe varTempFolder = "E:\" & objFolder.Name & Format(Nu, "ÅÅMMDDHHMMSS") MkDir (varTempFolder) varTempFolder = varTempFolder & "\" 'Gem hver e-mail som msg-fil for hver objItem i objFolder.Items Hvis TypeOf objItem er MailItem, så sæt objMail = objectobject strSubject strSub. = Erstat(strSubject, "/", " ") strSubject = Erstat(strSubject, "\", " ") strSubject = Erstat(strSubject, ":", "") strSubject = Erstat(strSubject, "?", " " ) strSubject = Replace(strSubject, Chr(34), " ") objMail.SaveAs varTempFolder & strSubject & ".msg", olMSG End If Next 'Create a new ZIP fil varZipFil = "E:\" & objFolder.Name & " E-mails.zip"Åbn varZipFil til output som #1 Udskriv #1, Chr$(80) & Chr$(75) & Chr$(5) & Chr$(6) & String(18, 0) Luk #1 'Tilføj de eksporterede msg-filer til det ZIP fil Sæt objShell = CreateObject ("Shell.Application") objShell.NameSpace (varZipFile) .Copy Here objShell.NameSpace (varTempFolder). Varer ved fejl Genoptag Næste Gør indtil objShell.NameSpace (varZipFile).Items.Count = objShell.NameSpace(varTempFolder).Items.Count Application.Wait (Now + TimeValue("0:00:01")) Loop On Error GoTo 0 'Slet den midlertidige mappe Indstil objFileSystem = CreateObject(" Scripting.FileSystemObject") objFileSystem.DeleteFolder Left(varTempFolder, Len(varTempFolder) - 1) End If End Sub

3. Klik derefter på "F5"-tasten for at køre denne makro.
4. Senere, i pop op-dialogboksen, skal du vælge kilden til Outlook-mappen og klikke på "OK".
5. Når makroen er færdig, vil en Windows-mappe blive vist, hvori der er en ny zip fil, som indeholder alle e-mails fra den valgte Outlook-mappe, som vist i følgende figur.

Håndter besværlig Outlook-filkorruption

Blandt alle de almindelige problemer i Outlook er Outlook-skaden uden tvivl most seriøs en. Men i virkeligheden kan sådanne problemer finde sted når som helst. Derfor, hvis du er en almindelig Outlook-bruger, skal du lave regelmæssige sikkerhedskopier af Outlook-data. Derudover er det klogt at få fat i en robust Outlook reparation hjælpeprogram, såsom DataNumen Outlook Repair.

Forfatter Introduktion:

Shirley Zhang er ekspert i datagendannelse i DataNumen, Inc., som er verdens førende inden for datagendannelsesteknologier, herunder sql rettelse og Outlook-reparationssoftwareprodukter. For mere information besøg www.datanumen.com