Как быстро сжать все вложения в файл RAR Файл в электронной почте Outlook

Хотя Outlook не позволяет напрямую сжимать вложения в RAR файл, вы по-прежнему можете использовать код VBA, представленный в этой статье, чтобы легко реализовать его.

Как мы все знаем, при прикреплении большого количества больших файлов к одному электронному письму вы, скорее всего, получите предупреждение об ограничении размера вложения в Outlook. Кроме того, если электронное письмо содержит слишком большие вложения, его будет сложнее отправить. Таким образом, перед лицом таких вложений вы можете сжать их в RAR файл, который может в некоторой степени уменьшить размер вложенных файлов.

В общем, чтобы сжать файлы в RAR файл, вы можете получить его только на локальном диске, поскольку Outlook не предоставляет такой встроенной функции для сжатия. Однако многие надеются сделать это непосредственно в Outlook. Поэтому здесь мы научим вас, как получить его с помощью Outlook VBA.

Быстро сжать все вложения в RAR Файл в электронной почте Outlook

1. В самом начале запустите приложение Outlook.
2. Затем нажмите клавиши «Alt + F11» в главном окне Outlook.
3. Далее вы войдете в окно «Microsoft Visual Basic для приложений». Вам нужно открыть пустой модуль.
4. Затем скопируйте и вставьте следующий код VBA в этот модуль.

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

5. После этого измените уровень безопасности макросов Outlook на низкий.
6. Позже, для удобства доступа, вы можете добавить макрос на панель быстрого доступа.
7. В конце концов, вы можете попробовать.

• Сначала откройте электронное письмо с большим количеством вложений.
• Затем нажмите кнопку макроса на панели быстрого доступа.
• Далее вам нужно будет ввести имя для нового RAR файл и нажмите «ОК».
• После этого все оригинальные вложения будут заменены на новые. RAR файл как на скриншоте:

Unrar .RAR Вложения в Outlook

Точно так же Outlook также не позволяет пользователям напрямую распаковывать файл .RAR файл в нем. Поэтому, если вы хотите просмотреть внутренние файлы в формате .RAR вложение, вам необходимо сохранить и распаковать его на локальном диске. Однако, несомненно, утомительно. К счастью, вы все еще можете использовать VBA для реализации этой функции в Outlook, которая была представлена ​​в моей предыдущей статье «Как разблокироватьrar .RAR Вложения прямо в Outlook через VBA».

Об авторе:

Ширли Чжан — эксперт по восстановлению данных в DataNumen, Inc., которая является мировым лидером в области технологий восстановления данных, включая SQL Server коррупция и программные продукты для ремонта Outlook. Для получения дополнительной информации посетите www.datanumen.com