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.
nižšie RarPrílohy () 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 strRARUložiť ako variant Dim Dim strSourceFile As String 'Uložiť prílohy do Temparary priečinok Set objFileSystem = CreateObject ("Scripting.FileSystemObject") strTempFolder = objFileSystem.GetSpecialFolder (2) .Path & "\ Temp" & Format (Teraz, "RRRR-MM-DD hh-mm-ss") MkDir (strTempFolder) Nastaviť objMail = Outlook.Application.ActiveInspector.CurrentItem Nastaviť objAttachments = objMail.attachments pre každé objAttachment v objAttachments objAttachment.SaveAsFile (strTempFolder & "\" & objAttachment.FileName) Ďalej 'Vytvoriť nový RAR spis strRARFile = InputBox ("Zadajte názov nového zip názov súboru Zip Súbor ", objMail.Subject) strRARFile = objFileSystem.GetSpecialFolder (2) .Path & "\" & strRARSúbor & ".rar„Otvorte strRARSúbor na výstup ako # 1 Print # 1, Chr $ (80) & Chr $ (75) & Chr $ (5) & Chr $ (6) & String (18, 0) Zavrieť # 1 Nastaviť objShell = CreateObject ("Shell .Application ") 'Pridajte súbory do nového RAR súbor strSourceFile = Dir (strTempFolder) Zatiaľ čo strSourceFile <> "" 'zmení "C: \ Program Files (x86) \ WinRAR\VyhraťRAR.exe “na miesto, kde sa nachádza váš WinRAR je nainštalovaný objShell.Run Chr (34) & "C: \ Program Files (x86) \ WinRAR\VyhraťRAR.exe "& Chr (34) &" a -r "& Chr (34) & strRARFile & Chr (34) & "" & Chr (34) & strSourceFile & Chr (34) strSourceFile = Dir Wend 'Odstrániť všetky prílohy Nastaviť objAttachments = objMail.attachments zatiaľ čo objAttachments.Count> 0 objAttachments.Item (1). Odstrániť Wend 'Pridať nové RAR súbor do aktuálneho e-mailu objMail.attachments.Add strRARSúbor 'Vyzvať vás MsgBox "Dokončené!", 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
1