Как да Unrar .RAR Прикачени файлове директно в Outlook чрез VBA

Като цяло, до ООНrar „.rar”Прикачени файлове в имейл, първо трябва да го запазите и след това да използвате специфичен инструмент за извличане на вътрешни файлове. Тази статия ще ви предостави метод за unrar директно в Outlook.

Outlook не ви позволява да визуализирате „.RAR”Прикачени файлове. Също така, не можете да unrar „.RAR”Прикачени файлове директно в Outlook. Следователно, ако искате да видите такъв прикачен файл, първо трябва да го запазите на локално устройство и след това да извлечете вътрешните файлове от него чрез специална помощна програма, като WinRAR. Фокусирани върху този въпрос, тук ще ви предложим начин, който ви позволява да се откажетеrar ".RAR”Прикачени файлове само в Outlook. Сега прочетете, за да получите подробни стъпки и кодове на VBA.

Unrar .RAR Прикачени файлове директно в Outlook

1. На първо място, тъй като този метод разчита на специфичен инструмент - WinRAR, първо трябва да го инсталирате на вашия компютър и да се уверите къде е монтиран.
2. След това можете да отворите приложението си Outlook, както обикновено.
3. След това натиснете бутоните „Alt + F11“ в главния прозорец на Outlook.
4. Впоследствие в редактора на VBA на Outlook отворете празен модул.
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 прикачени файлове.
• След това обратно към новия бутон на макроса.
• Кликнете върху „UnRARПодпрограма “Прикачени файлове” и натиснете F5.
• След това щракнете върху следната подпрограма „AttachExtractedFiles“ и натиснете клавиша F5.
• След това можете да се върнете към прозореца на пощата. Ще видите това.RAR прикачените файлове са декомпресирани. Всички извлечени файлове са прикачени.

Unzip .Zip Прикачени файлове в Outlook

Като декомпресиране на.RAR прикачени файлове, Outlook няма собствени функции за декомпресиране на „.zip”Прикачени файлове. Следователно, ако не можете директно да деактивиратеzip „.Zip”Прикачени файлове директно в Outlook по подразбиране. За щастие все още можете да използвате Outlook VBA, за да постигнете тази функция. За повече подробности можете да проверите предишната ми статия - „Как да Unzip на.Zip Прикачени файлове директно в Outlook чрез VBA".

Въведение на автора:

Шърли Джанг е експерт по възстановяване на данни в DataNumen, Inc., която е световен лидер в технологиите за възстановяване на данни, включително фиксира SQL Server и outlook софтуерни продукти за ремонт. За повече информация посетете WWW.datanumen.com