Ačkoli aplikace Outlook nepovoluje přímo komprimovat přílohy do souboru RAR soubor, stále můžete použít kód VBA zavedený v tomto článku, abyste si to uvědomili jako vánek.
Jak všichni víme, při připojování mnoha velkých souborů k jednomu e -mailu pravděpodobně dostanete varování o limitu velikosti přílohy v aplikaci Outlook. Pokud e -mail obsahuje příliš velké přílohy, bude obtížnější úspěšně jej odeslat. Tváří v tvář takovým přílohám se můžete rozhodnout komprimovat je do souboru RAR soubor, který může do určité míry zmenšit velikost připojených souborů.
Obecně lze komprimovat soubory do souboru RAR soubor, můžete toho dosáhnout pouze na místním disku v tom, že Outlook neposkytuje takovou nativní funkci pro kompresi. Mnozí však doufají, že toho dosáhnou přímo v aplikaci Outlook. Proto vás zde naučíme, jak jej získat pomocí aplikace Outlook VBA.
Rychle komprimujte všechny přílohy do a RAR Soubor v e-mailu aplikace Outlook
- Hned na začátku spusťte aplikaci Outlook.
- Poté stiskněte klávesy „Alt + F11“ v hlavním okně aplikace Outlook.
- Dále zadáte okno „Microsoft Visual Basic for Applications“. Musíte otevřít prázdný modul.
- Následně zkopírujte a vložte následující kód VBA do tohoto 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
- Poté změňte úroveň zabezpečení maker aplikace Outlook na nízkou.
- Později, pro pohodlný přístup, můžete přidat makro na panel nástrojů Rychlý přístup.
- Nakonec to můžete vyzkoušet.
- Nejprve otevřete e -mail s mnoha přílohami.
- Poté stiskněte tlačítko makra na panelu nástrojů Rychlý přístup.
- Dále budete muset zadat název nového RAR soubor a klikněte na „OK“.
- Poté budou všechny původní přílohy nahrazeny novými RAR soubor jako snímek obrazovky:
unrar .RAR Přílohy v Outlooku
Podobně Outlook také neumožňuje uživatelům přímo dekomprimovat .RAR soubor v něm. Pokud si tedy chcete prohlédnout interní soubory v .RAR přílohu, musíte ji uložit a dekomprimovat na místní disk. Je to však nepochybně únavné. Naštěstí stále můžete použít VBA k dosažení této funkce v aplikaci Outlook, která byla představena v mém předchozím článku „Jak rozbalit archiv .RAR Přílohy přímo v Outlooku přes VBA".
Úvod autora:
Shirley Zhang je expertem na obnovu dat DataNumen, Inc., která je světovým lídrem v oblasti technologií pro obnovu dat, včetně SQL Server korupce a výhledové softwarové produkty pro opravy. Pro více informací navštivte www.datanumen.com