Kaip išskleisti failą .RAR Priedai tiesiogiai „Outlook“ per VBA

Apskritai, norint išnarplioti „.rar„Jei el. laiške yra priedų, pirmiausia turėtumėte juos išsaugoti, o tada naudoti specialų įrankį vidiniams failams išskleisti. Šiame straipsnyje pateiksime būdą, kaip išskleisti RAR failą tiesiogiai programoje „Outlook“.

„Outlook“ neleidžia peržiūrėti „.RAR“ priedus. Taip pat negalite iššifruoti „.RAR„priedus tiesiai programoje „Outlook“. Todėl, jei norite peržiūrėti tokį priedą, pirmiausia turėtumėte jį išsaugoti vietiniame diske, o tada išskleisti vidinius failus naudodami specialią programą, pvz., „WinRAR“. Susitelkdami į šią problemą, čia pasiūlysime būdą, kaip išskleisti „.RAR“ priedus tik programoje „Outlook“. Dabar skaitykite toliau, kad gautumėte išsamius veiksmus ir VBA kodus.

unrar .RAR Priedai tiesiogiai „Outlook“.

1. Visų pirma, kadangi šis metodas remiasi konkrečiu įrankiu – „WinRAR“, pirmiausia turėtumėte jį įdiegti savo kompiuteryje ir įsitikinti, kur jis yra prijungtas.
2. Tada galite atidaryti „Outlook“ programą kaip įprasta.
3. Tada pagrindiniame „Outlook“ lange paspauskite klavišus „Alt + F11“.
4. Tada „Outlook VBA“ rengyklėje atidarykite tuščią modulį.
5. Tada nukopijuokite šį VBA kodą į šį modulį.

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. Po to turite įsitikinti, kad „Outlook“ leidžiama makrokomandos.
7. Pagaliau galite pabandyti.

• Pirmiausia atidarykite el. laišką, kuriame yra .RAR priedai.
• Tada grįžkite į naują makrokomandos mygtuką.
• Spustelėkite „UnRARAttachments“ subrutinę ir paspauskite F5.
• Tada spustelėkite šią „AttachExtractedFiles“ paprogramę ir paspauskite klavišą F5.
• Po to galite grįžti į pašto langą. Pamatysite, kad .RAR priedai buvo išspausti. Visi išskleisti failai buvo pridėti.

Išpakuokite .Zip Priedai programoje „Outlook“.

Kaip išskleidimas .RAR priedams, „Outlook“ neturi įdiegtų funkcijų, skirtų išskleisti „.zip“ priedus. Todėl, jei negalite tiesiogiai išskleisti „.Zip“ pagal numatytuosius nustatymus tiesiogiai programoje „Outlook“. Laimei, šiai funkcijai pasiekti vis tiek galite pasinaudoti Outlook VBA. Norėdami gauti daugiau informacijos, galite peržiūrėti mano ankstesnį straipsnį - "Kaip išpakuoti .Zip Priedai tiesiogiai „Outlook“ per VBA".

Autoriaus įvadas:

Shirley Zhang yra duomenų atkūrimo ekspertė DataNumen, Inc., kuri yra pasaulyje duomenų atkūrimo technologijų lyderė, įskaitant nustatyti SQL Server ir „Outlook“ taisymo programinės įrangos produktai. Norėdami gauti daugiau informacijos, apsilankykite WWW.datanumen.com