Kuinka purkaa tiedosto .RAR Liitteet suoraan Outlookissa VBA: n kautta

Yleisesti ottaen, selvittääkseen ".rar”liitteitä sähköpostissa, sinun tulee ensin tallentaa ne ja sitten purkaa sisäiset tiedostot erityisellä työkalulla. Tässä artikkelissa kerrotaan, miten voit purkaa RAR-tiedostot suoraan Outlookissa.

Outlook ei salli esikatsella tiedostoa ".RAR”-liitteitä. Et myöskään voi purkaa ”.RAR”liitteet suoraan Outlookissa. Siksi, jos haluat tarkastella tällaista liitettä, sinun on ensin tallennettava se paikalliselle asemalle ja purettava sitten sen sisäiset tiedostot erityisellä apuohjelmalla, kuten WinRARilla. Tässä keskitymme tähän ongelmaan ja tarjoamme sinulle tavan, jolla voit purkaa ”.RAR”Liitteet vain Outlookissa. Lue nyt saadaksesi yksityiskohtaiset vaiheet ja VBA-koodit.

Unrar .RAR Liitteet suoraan Outlookissa

1. Ensinnäkin, koska tämä menetelmä perustuu tiettyyn työkaluun – WinRARiin, sinun tulee ensin asentaa se tietokoneellesi ja varmistaa, mihin se on asennettu.
2. Sitten voit avata Outlook-sovelluksesi tavalliseen tapaan.
3. Paina seuraavaksi "Alt + F11" -näppäimiä Outlookin pääikkunassa.
4. Avaa sitten tyhjä moduuli Outlook VBA -editorissa.
5. Kopioi sitten seuraava VBA-koodi tähän moduuliin.

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. Sen jälkeen sinun on varmistettava, että makro on sallittu Outlookissa.
7. Lopuksi voit kokeilla.

• Avaa ensin sähköposti, joka sisältää .RAR liitetiedostoja.
• Palaa sitten uuteen makropainikkeeseen.
• Napsauta ”UnRARAttachments”-aliohjelmaa ja paina F5-näppäintä.
• Napsauta seuraavaksi seuraavaa "AttachExtractedFiles" -alirutiinia ja paina F5-näppäintä.
• Sen jälkeen voit palata takaisin posti-ikkunaan. Näet, että .RAR liitetiedostot on purettu. Kaikki puretut tiedostot on liitetty.

Avata jnk vetoketju .Zip Liitteet Outlookissa

Kuten purkamalla .RAR liitteiden osalta Outlookissa ei ole natiiveja ominaisuuksia tiedostojen purkamiseen..zip”-liitteitä. Jos et siis pysty purkamaan ”.Zip”Liitteet oletusarvoisesti suoraan Outlookissa. Onneksi voit silti käyttää Outlook VBA: ta tämän toiminnon saavuttamiseksi. Lisätietoja saat edellisestä artikkelistani - “Kuinka purkaa vetoketju .Zip Liitteet suoraan Outlookissa VBA: n kautta".

Tekijän esittely:

Shirley Zhang on tietojen palauttamisen asiantuntija DataNumen, Inc., joka on maailman johtava tietojen palautustekniikoissa, mukaan lukien korjata SQL Server ja Outlookin korjausohjelmistotuotteet. Lisätietoja osoitteessa www.datanumen.com