Kuidas lahti harutada .RAR Manused otse Outlookis VBA kaudu

Outlooki lahendused September 29, 2025

Üldiselt, et lahti harutada „.rar„e-kirja manuste” puhul peaksite selle esmalt salvestama ja seejärel kasutama sisemiste failide lahtipakkimiseks spetsiaalset tööriista. See artikkel pakub teile meetodit RAR-faili otse Outlookis lahtipakkimiseks.

Outlook ei luba teil eelvaadet vaadata..RAR” manuseid. Samuti ei saa te „.RAR„manused otse Outlookis. Seega, kui soovite sellist manust vaadata, peaksite selle kõigepealt kohalikule draivile salvestama ja seejärel spetsiaalse utiliidi, näiteks WinRAR-i abil sisemised failid lahti pakkima. Sellele probleemile keskendudes pakume teile siin viisi, mis võimaldab teil manuseid „.RAR” manused ainult Outlookis. Nüüd lugege üksikasjalikke samme ja VBA-koode.

Ühendage .RAR Manused otse Outlookis VBA kaudu

Ühendage .RAR Manused otse Outlookis

  1. Esiteks, kuna see meetod tugineb kindlale tööriistale – WinRAR-ile, peaksite selle kõigepealt oma arvutisse installima ja veenduma, kuhu see on paigaldatud.
  2. Seejärel saate avada oma Outlooki rakenduse nagu tavaliselt.
  3. Järgmisena vajutage Outlooki peaaknas klahve Alt + F11.
  4. Seejärel avage Outlooki VBA redaktoris tühi moodul.
  5. Seejärel kopeerige sellesse moodulisse järgmine VBA kood.
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

VBA kood - Unrar .RAR Manused otse Outlookis

  1. Pärast seda peate tagama, et makro on teie Outlookis lubatud.
  2. Lõpuks saate proovida.
  • Esiteks avage e-kiri, mis sisaldab .RAR manused.
  • Seejärel tagasi uue makronupu juurde.
  • Klõpsa alamrutiinil „UnRARAttachments” ja vajuta F5.
  • Järgmisena klõpsake järgmisel alamprogrammil "AttachExtractedFiles" ja vajutage klahvi F5.
  • Pärast seda saate tagasi postiakna juurde pöörduda. Näete, et .RAR manused on lahti pakitud. Kõik ekstraktitud failid on lisatud.Ühendage RAR Manused

tõmblukku lahti tõmbama .Zip Manused Outlookis

Nagu lahtipakkimine .RAR manuste puhul pole Outlookil sisseehitatud funktsioone faili lahtipakkimiseks..zip” manuseid. Seega, kui te ei saa faili „.Zip” manused vaikimisi otse Outlookis. Õnneks saate selle funktsiooni saavutamiseks siiski kasutada Outlook VBA-d. Lisateabe saamiseks vaadake minu eelmist artiklit - "Kuidas lahti tõmblukku võtta .Zip Manused otse Outlookis VBA kaudu".

Autori sissejuhatus:

Shirley Zhang on andmete taastamise ekspert DataNumen, Inc., mis on maailmas juhtiv andmete taastamise tehnoloogiate, sealhulgas määrata SQL Server ja Outlooki remonditarkvaratooted. Lisateabe saamiseks külastage www.datanumenCom

Kommentaarid on suletud.