Kuinka pakata kaikki Outlook-kansion sähköpostit nopeasti a Zip filee

Jotkut käyttäjät haluavat pakata kaikki Outlook-kansion sähköpostit A-tiedostoksi zip tiedosto. Vaikka suoraa toimintoa ei olekaan, voit hyödyntää tässä artikkelissa näkyvää VBA-koodia sen ymmärtämiseksi nopeasti.

jotta zip Kaikkien Outlook-kansiossa olevien sähköpostien lähettämiseksi sinun on ensin vietävä ne paikalliselle asemalle yksi kerrallaan ja sitten käytettävä "Lähetä" > "Pakattu kansio" -toimintoa. Tämä menetelmä on epäilemättä liian työläs. Siksi, jotta voisit ymmärtää sen yhdellä kertaa, opetamme sinulle seuraavaksi toisen menetelmän. Se opettaa sinulle, kuinka saat sen VBA-koodilla. Jos et ole perehtynyt VBA:han, voit katsoa "Kuinka suorittaa VBA-koodi Outlookissa" sillä välin.

Pakkaa kaikki kansion sähköpostit a Zip filee

1. Aloita käynnistämällä Outlook VBA -editori painamalla Alt + F11.
2. Kopioi ja liitä sitten VBA-koodi moduuliin.

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

3. Suorita tämä makro napsauttamalla sen jälkeen F5-näppäintä.
4. Myöhemmin ponnahdusikkunassa valitse lähde Outlook-kansio ja napsauta "OK".
5. Kun makro on valmis, näyttöön tulee Windows-kansio, jossa on uusi zip tiedosto, joka sisältää kaikki valitun Outlook-kansion sähköpostit seuraavan kuvan mukaisesti.

Käsittele ongelmallista Outlook-tiedostojen vioittumista

Kaikista yleisistä Outlookin ongelmista Outlookin vaurioituminen on epäilemättä vakavin. Todellisuudessa tällaisia ​​ongelmia voi kuitenkin ilmetä milloin tahansa. Siksi, jos käytät säännöllisesti Outlookia, sinun on tehtävä säännöllisesti varmuuskopioita Outlookin tiedoista. Lisäksi on järkevää hankkia vankka varmuuskopio. Outlookin korjaus apuohjelma, kuten DataNumen Outlook Repair.

Tekijän esittely:

Shirley Zhang on tietojen palauttamisen asiantuntija DataNumen, Inc., joka on maailman johtava tietojen palautustekniikoissa, mukaan lukien sql-korjaus ja Outlookin korjausohjelmistotuotteet. Lisätietoja osoitteessa www.datanumen.com