Kuinka kaikki liitteet pakataan nopeasti a Zip Tiedosto Outlook-sähköpostissasi

Joskus saatat haluta pakata kaikki sähköpostin liitetiedostot zip tiedosto suoraan Outlookissa. Tässä tapauksessa voit käyttää tässä artikkelissa esiteltyä VBA-koodia tämän ominaisuuden saavuttamiseksi.

Oletusarvoisesti Outlookilla on liitteiden kokorajoitus - 20 Mt POP3-, IMAP- tai muille verkkopohjaisille sähköpostitileille ja 10 Mt Exchange-tileille. Joten, kun liitteiden kokonaiskoko ylittää rajan, saat siihen liittyviä virheitä. Tässä tapauksessa on hyvä vaihtoehto pakata kaikki liitteet a zip tiedosto.

Kuten näette, Outlook ei kuitenkaan tarjoa niin suoraa ominaisuutta. Toisin sanoen sinun on ensin zip nämä tiedostot kiintolevylle ja liitä sitten uudet luodut tiedostot uudelleen zip tiedosto. Todellisuudessa most käyttäjät toivovat voivansa saavuttaa sen suoraan Outlookissa. Vastauksena tähän vaatimukseen esitämme seuraavassa, kuinka VBA: ta käytetään sen toteuttamiseen.

Pakkaa kaikki liitteet a Zip filee

1. Käynnistä ensin Outlook-sovellus.
2. Paina sitten "Alt + F11" -näppäimiä Outlookin pääikkunassa.
3. Seuraavaksi avaa moduuli uudessa Outlook VBA -editori -ikkunassa.
4. Kopioi ja liitä seuraavat moduuliin seuraavat VBA-koodit.

Sub ZipAttachments()
    Dim objMail As Outlook.MailItem
    Dim objAttachments As Outlook.attachments
    Dim objAttachment As Outlook.Attachment
    Dim objFileSystem As Object
    Dim objShell As Object
    Dim varTempFolder As Variant
    Dim varZipFile As Variant
 
    'Save the attachments to Temporary folder
    Set objFileSystem = CreateObject("Scripting.FileSystemObject")
    varTempFolder = objFileSystem.GetSpecialFolder(2).Path & "\Temp " & Format(Now, "dd-mm-yyyy- hh-mm-ss-")
    MkDir (varTempFolder)
    varTempFolder = varTempFolder & "\"
 
    Set objMail = Outlook.Application.ActiveInspector.CurrentItem
    Set objAttachments = objMail.attachments
    For Each objAttachment In objAttachments
        objAttachment.SaveAsFile (varTempFolder & objAttachment.FileName)
    Next
 
    'Create a new zip file
    varZipFile = InputBox("Specify a name for the new zip file", "Name Zip File", objMail.Subject)
    varZipFile = objFileSystem.GetSpecialFolder(2).Path & "\" & varZipFile & ".zip"
    Open varZipFile For Output As #1
    Print #1, Chr$(80) & Chr$(75) & Chr$(5) & Chr$(6) & String(18, 0)
    Close #1
 
    'Copy all the saved attachments to the new zip file
     Set objShell = CreateObject("Shell.Application")
     objShell.NameSpace(varZipFile).CopyHere objShell.NameSpace(varTempFolder).Items

     'Keep macro running until Compressing is done
     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 all the attachments
     Set objAttachments = objMail.attachments
     While objAttachments.Count > 0
           objAttachments.Item(1).Delete
     Wend
 
     'Add the new zip file to the current email 
     objMail.attachments.Add varZipFile
 
    'Prompt
    MsgBox ("Complete!")
End Sub

5. Sen jälkeen sinun on tarkistettava Outlook-makroasetuksesi varmistaaksesi, että makro on sallittu.
6. Myöhemmin voit lisätä uuden VBA-projektin viestiikkunan pikakäyttöpalkkiin tavalliseen tapaan.
7. Lopulta voit kokeilla.

• Luo ensin uusi sähköposti ja liitä useita tiedostoja. Tai avaa yksinkertaisesti sähköposti, jossa on useita liitteitä.
• Napsauta sitten pikakäynnistystyökalurivin makropainiketta.
• Myöhemmin sinun on määritettävä nimi zip tiedosto ja paina “OK”. Oletusarvoisesti se asetetaan samaksi kuin sähköpostin aihe.
• Kaikki liitteet pakataan kerralla a zip tiedosto, kuten seuraava kuvakaappaus:

Unzip .Zip Liitteet suoraan Outlookissa

On väistämätöntä, että saat liitetiedostoja “.zip”Tiedostopääte silloin tällöin. Tässä tilanteessa haluat ehkä poistaa suoraanzip tällaisia ​​tiedostoja Outlookista sen sijaan, että tallennat ja purat niitä paikalliselle asemalle. Vaikka Outlookilla ei ole niin alkuperäistä ominaisuutta, voit silti käyttää VBA: ta sen saamiseksi. Lisätietoja saat viittaamalla toiseen artikkeliin - “Kuinka Unzip .Zip Liitteet suoraan Outlookissa VBA: n kautta".

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