Cum se descarcă unrar .RAR Atașamente Direct în Outlook prin VBA

În general, pentru a dezarhiva „.rar„Atașamentele dintr-un e-mail, ar trebui mai întâi să le salvați și apoi să utilizați un instrument specific pentru a extrage fișierele interne. Acest articol vă va oferi o metodă de a dezarhiva fișierele RAR direct în Outlook.

Outlook nu vă permite să previzualizați „.RAR„atașamente”. De asemenea, nu puteți dezarhiva fișierele „.RAR„atașamente direct în Outlook. Prin urmare, dacă doriți să vizualizați un astfel de atașament, ar trebui mai întâi să îl salvați pe unitatea locală și apoi să extrageți fișierele interne de pe acesta printr-un utilitar special, cum ar fi WinRAR. Concentrându-ne pe această problemă, vă vom oferi aici o modalitate care vă permite să dezarhivați fișierele RAR „.RAR” atașamente doar în Outlook. Acum citiți mai departe pentru a obține pașii detaliați și codurile VBA.

Uni .RAR Atașamente direct în Outlook

1. În primul rând, deoarece această metodă se bazează pe un instrument specific – WinRAR, ar trebui mai întâi să îl instalați pe PC și să vă asigurați unde este montat.
2. Apoi, puteți deschide aplicația Outlook ca de obicei.
3. Apoi apăsați butoanele tastei „Alt + F11” în fereastra principală a Outlook.
4. Ulterior, în editorul Outlook VBA, deschideți un modul gol.
5. Și apoi copiați următorul cod VBA în acest 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. După aceea, trebuie să vă asigurați că macrocomanda este permisă în Outlook.
7. În sfârșit poți încerca.

• În primul rând, deschideți un e-mail care conține .RAR atașamente.
• Apoi înapoi la noul buton macro.
• Faceți clic pe subrutina „UnRARattachments” și apăsați F5.
• Și apoi faceți clic în următoarea subrutină „AttachExtractedFiles” și apăsați tasta F5.
• După aceea, te poți întoarce la fereastra de e-mail. Vei vedea că .RAR atașamentele au fost decomprimate. Toate fișierele extrase au fost atașate.

Unzip .Zip Atașamente în Outlook

Ca și cum ai decomprima .RAR atașamente, Outlook nu are funcții native pentru a decomprima „.zip„atașamente”. Prin urmare, dacă nu puteți dezarhiva direct fișierul „.Zip” atașamente direct în Outlook în mod implicit. Din fericire, încă puteți utiliza Outlook VBA pentru a realiza această funcție. Pentru mai multe detalii, puteți verifica articolul meu anterior – „Cum se dezarhivează .Zip Atașamente Direct în Outlook prin VBA".

Introducerea autorului:

Shirley Zhang este expertă în recuperarea datelor DataNumen, Inc., care este lider mondial în tehnologiile de recuperare a datelor, inclusiv stabili SQL Server și produse software de reparații Outlook. Pentru mai multe informații vizitați www.datanumen.com