Aj keď program Outlook neumožňuje priamu kompresiu príloh do formátu RAR súboru, stále môžete použiť kód VBA uvedený v tomto článku, aby ste si to uvedomili ako vánok.
Ako všetci vieme, pri pripájaní mnohých veľkých súborov k jednému e-mailu sa pravdepodobne zobrazí upozornenie na limit veľkosti prílohy v Outlooku. Ak má e-mail príliš veľké prílohy, bude ťažké ho úspešne odoslať. Takže tvárou v tvár takýmto prílohám sa môžete rozhodnúť ich komprimovať do formátu a RAR súbor, ktorý môže do istej miery zmenšiť veľkosť priložených súborov.
Spravidla sa súbory komprimujú do formátu a RAR súboru, môžete to dosiahnuť iba na lokálnej jednotke, pretože program Outlook neposkytuje natívnu funkciu kompresie. Mnohí však dúfajú, že to dosiahnu priamo v Outlooku. Preto vás tu naučíme, ako to získať pomocou aplikácie Outlook VBA.
Rýchlo skomprimujte všetky prílohy do a RAR Uložte si do e-mailu Outlook
- Hneď na začiatku spustite aplikáciu Outlook.
- Potom stlačte klávesy „Alt + F11“ v hlavnom okne programu Outlook.
- Ďalej vstúpite do okna „Microsoft Visual Basic for Applications“. Musíte otvoriť prázdny modul.
- Následne skopírujte a prilepte nasledujúci kód VBA do tohto modulu.
Sub RarAttachments()
Dim objMail As Outlook.MailItem
Dim objAttachments As Outlook.attachments
Dim objAttachment As Outlook.Attachment
Dim objFileSystem As Object
Dim objShell As Object
Dim strTempFolder As Variant
Dim strRARFile As Variant
Dim strSourceFile As String
'Save the attachments to Temporary folder
Set objFileSystem = CreateObject("Scripting.FileSystemObject")
strTempFolder = objFileSystem.GetSpecialFolder(2).Path & "\Temp " & Format(Now, "YYYY-MM-DD hh-mm-ss")
MkDir (strTempFolder)
Set objMail = Outlook.Application.ActiveInspector.CurrentItem
Set objAttachments = objMail.attachments
For Each objAttachment In objAttachments
objAttachment.SaveAsFile (strTempFolder & "\" & objAttachment.FileName)
Next
'Create a new RAR file
strRARFile = InputBox("Specify a name for the new zip file", "Name Zip File", objMail.Subject)
strRARFile = objFileSystem.GetSpecialFolder(2).Path & "\" & strRARFile & ".rar"
Open strRARFile For Output As #1
Print #1, Chr$(80) & Chr$(75) & Chr$(5) & Chr$(6) & String(18, 0)
Close #1
Set objShell = CreateObject("Shell.Application")
'Add the files to the New RAR file
strSourceFile = Dir(strTempFolder)
While strSourceFile <> ""
'Change "C:\Program Files (x86)\WinRAR\WinRAR.exe" to the location where your WinRAR is installed
objShell.Run Chr(34) & "C:\Program Files (x86)\WinRAR\WinRAR.exe" & Chr(34) & " a -r" & Chr(34) & strRARFile & Chr(34) & " " & Chr(34) & strSourceFile & Chr(34)
strSourceFile = Dir
Wend
'Delete all the attachments
Set objAttachments = objMail.attachments
While objAttachments.Count > 0
objAttachments.Item(1).Delete
Wend
'Add the new RAR file to the current email
objMail.attachments.Add strRARFile
'Prompt you
MsgBox "Complete!", vbExclamation
End Sub
- Potom zmeňte úroveň zabezpečenia makra programu Outlook na nízku.
- Neskôr môžete pre pohodlný prístup pridať makro na panel s nástrojmi Rýchly prístup.
- Nakoniec to môžete vyskúšať.
- Najskôr otvorte e-mail s mnohými prílohami.
- Potom stlačte tlačidlo makra na paneli s nástrojmi Rýchly prístup.
- Ďalej budete musieť zadať názov nového RAR súbor a stlačte „OK“.
- Potom budú všetky pôvodné prílohy nahradené novými RAR súbor ako snímka obrazovky:
Unrar .RAR Prílohy v Outlooku
Podobne ani Outlook neumožňuje používateľom priamo dekomprimovať a.RAR súbor v ňom. Preto, ak chcete zobraziť interné súbory v a.RAR prílohu, musíte ju uložiť a dekomprimovať na miestnom disku. Je to však nepochybne únavné. Našťastie stále môžete využiť VBA na dosiahnutie tejto funkcie v Outlooku, ktorý som predstavil v mojom predchádzajúcom článku „Ako Unrar .RAR Prílohy priamo v Outlooku cez VBA".
Úvod autora:
Shirley Zhang je expertkou na obnovu dát v DataNumen, Inc., ktorá je svetovým lídrom v oblasti technológií obnovy dát, vrátane SQL Server korupcie a výhľadové softvérové produkty na opravu. Pre viac informácií navštívte www.datanumen. S