Як розпакувати .RAR Вкладення безпосередньо в Outlook через VBA

Загалом, щоб розпакувати «.rar«вкладення в електронному листі», спочатку слід зберегти його, а потім скористатися спеціальним інструментом для вилучення внутрішніх файлів. У цій статті буде надано вам спосіб розпакування безпосередньо в Outlook.

Outlook не дозволяє переглядати попередній перегляд «.RARвкладення «». Також ви не можете розпакувати «.RAR«вкладення безпосередньо в Outlook. Тому, якщо ви хочете переглянути таке вкладення, спочатку слід зберегти його на локальному диску, а потім витягти з нього внутрішні файли за допомогою спеціальної утиліти, такої як WinRAR. Зосереджуючись на цьому питанні, тут ми пропонуємо вам спосіб, який дозволяє розпакувати «.RAR”Вкладень просто в Outlook. Тепер читайте далі, щоб отримати детальні кроки та коди VBA.

Unrar .RAR Вкладення безпосередньо в Outlook

1. Перш за все, оскільки цей метод спирається на спеціальний інструмент – WinRAR, вам слід спочатку встановити його на свій ПК та переконатися, де він змонтований.
2. Тоді ви можете відкрити програму Outlook, як зазвичай.
3. Потім натисніть клавіші “Alt + F11” у головному вікні Outlook.
4. Згодом у редакторі Outlook VBA відкрийте порожній модуль.
5. А потім скопіюйте наступний код VBA в цей модуль.

Public objFileSystem As Object
Public strTempFolder As String
Public strTargetFolderPath As String
Public objAttachment As Outlook.Attachment

Sub UnRARAttachment()
    Dim objMail As Outlook.MailItem
    Dim objShell As Object
    Dim strTempFolder As String
    Dim strRARFile As String
 
    Set objMail = Outlook.Application.ActiveInspector.CurrentItem
 
    Set objFileSystem = CreateObject("Scripting.FileSystemObject")
    strTempFolder = objFileSystem.GetSpecialFolder(2).Path
    strTargetFolderPath = strTempFolder & "\Temp " & Format(Now, "YYYY-MM-DD-hh-mm-ss")
    MkDir (strTargetFolderPath)
 
    Set objShell = CreateObject("Wscript.Shell")
 
    If objMail.attachments.Count > 0 Then
       For Each objAttachment In objMail.attachments
           If LCase(Right(objAttachment.FileName, 4)) = ".rar" Then
 
              strRARFile = strTempFolder & "\" & objAttachment.FileName
              objAttachment.SaveAsFile (strRARFile)
 
              'Change "C:\Program Files\WinRAR\WinRAR.exe" to the location where your WinRAR is installed
              objShell.Run Chr(34) & "C:\Program Files\WinRAR\WinRAR.exe" & Chr(34) & " e " & Chr(34) & strRARFile & Chr(34) & " " & Chr(34) & strTargetFolderPath & Chr(34)
           End If
       Next
    End If
 
End Sub

Sub AttachExtractedFiles()
    Dim strFolderPath As String
    Dim strFile As String
 
    'Attach the extracted files to the current email
    strFolderPath = strTargetFolderPath & "\"
    strFile = Dir(strFolderPath)
 
    Set objMail = Outlook.Application.ActiveInspector.CurrentItem
 
    While Len(strFile) > 0
          objMail.attachments.Add strFolderPath & strFile
          strFile = Dir
    Wend
 
    'Delete the .RAR attachments
    For Each objAttachment In objMail.attachments
        If LCase(Right(objAttachment.FileName, 4)) = ".rar" Then
           objAttachment.Delete
        End If
    Next
End Sub

6. Після цього потрібно переконатися, що макрос дозволений у вашому Outlook.
7. Нарешті можна спробувати.

• Спочатку відкрийте електронний лист, який містить .RAR вкладення.
• Потім поверніться до нової кнопки макросу.
• Клацніть на підпрограмі «UnRARAAttachments» і натисніть F5.
• А далі натисніть на наступну підпрограму “AttachExtractedFiles” та натисніть клавішу F5.
• Після цього ви можете повернутися до вікна пошти. Ви побачите, що .RAR вкладення розпаковані. Усі витягнуті файли вкладено.

Розстебнути блискавку .Zip Вкладені файли в Outlook

Як розпакування .RAR вкладення, Outlook не має вбудованих функцій для розпакування «.zipвкладення «». Тому, якщо ви не можете безпосередньо розпакувати файл «.Zip”Вкладення прямо в Outlook за замовчуванням. На щастя, ви все ще можете використовувати Outlook VBA для досягнення цієї функції. Детальніше ви можете переглянути у моїй попередній статті - “Як розпакувати .Zip Вкладення безпосередньо в Outlook через VBA".

Вступ автора:

Ширлі Чжан - експерт із відновлення даних у DataNumen, Inc., яка є світовим лідером у галузі технологій відновлення даних, в тому числі фіксувати SQL Server та перспективні програмні продукти для ремонту. Для отримання додаткової інформації відвідайте WWW.datanumen.com