Mõnikord võite soovida tihendada kõik e-kirja manused a zip faili otse Outlookis. Sel juhul saate selle funktsiooni saavutamiseks kasutada selles artiklis tutvustatud VBA-koodi.
Vaikimisi on Outlookil manuse suuruse limiit – 20 MB POP3, IMAP või muude veebipõhiste meilikontode jaoks ja 10 MB Exchange'i kontode jaoks. Seega, kui manuste kogumaht ületab piirangu, kuvatakse sellega seotud vead. Sel juhul on hea võimalus kõik manused kokku suruda a zip faili.
Kuid nagu näete, Outlook sellist otsest funktsiooni ei paku. See tähendab, et kõigepealt peate zip need failid kõvakettale ja seejärel uuesti vastloodud failid zip faili. Tegelikkuses on most kasutajad loodavad, et saavad selle Outlookis otse saavutada. Vastuseks sellele nõudele tutvustame järgnevalt, kuidas VBA-d selle realiseerimiseks kasutada.
Tihendage kõik manused a-sse Zip Fail
- Kõigepealt käivitage oma Outlooki rakendus.
- Seejärel vajutage Outlooki peaaknas klahve Alt + F11.
- Järgmisena avage uues Outlook VBA redaktori aknas moodul.
- Seejärel kopeerige ja kleepige moodulisse järgmised VBA koodid.
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
- Pärast seda peate kontrollima oma Outlooki makro sätteid, et veenduda, kas makro on lubatud.
- Hiljem saate uue VBA projekti lisada sõnumiakna kiirpääsuribale nagu tavaliselt.
- Lõpuks saate proovida.
- Esiteks looge uus e-kiri ja lisage mitu faili. Või lihtsalt avage paljude manustega kiri.
- Järgmisena klõpsake kiirjuurdepääsu tööriistaribal makronuppu.
- Hiljem peate määrama selle nime zip faili ja vajuta "OK". Vaikimisi määratakse see samaks kui meili teema.
- Korraga tihendatakse kõik manused a-sse zip fail, nagu järgmine ekraanipilt:
Unzip .Zip Manused otse Outlookis
On vältimatu, et saate manuseid, millel on ".zip” faililaiendit aeg-ajalt. Selle stsenaariumi korral soovite võib-olla otse lahti võttazip selliseid faile oma Outlookist, selle asemel et neid kohalikule kettale salvestada ja lahti pakkida. Kuigi Outlookil pole sellist loomulikku funktsiooni, saate selle hankimiseks siiski kasutada ka VBA-d. Üksikasjalikuma teabe saamiseks võite vaadata mõnda teist artiklit - "Kuidas Unzip .Zip Manused otse Outlookis VBA kaudu".
Autori sissejuhatus:
Shirley Zhang on andmete taastamise ekspert DataNumen, Inc., mis on maailmas juhtiv andmete taastamise tehnoloogiate, sealhulgas sql parandus ja Outlooki remonditarkvaratooted. Lisateabe saamiseks külastage www.datanumenCom