Hogyan lehet kicsomagolni .RAR Mellékletek közvetlenül az Outlookban VBA-n keresztül

Általánosságban elmondható, hogy a „.rar„Ha egy e-mailben csatolmányokat szeretne küldeni, először mentse el azokat, majd egy speciális eszközzel bontsa ki a belső fájlokat. Ez a cikk bemutat egy módszert a RAR fájlok közvetlen kibontására az Outlookban.

Az Outlook nem engedélyezi a „.RAR” mellékletek. A „.RAR„mellékletek közvetlenül az Outlookban. Ezért, ha meg szeretné tekinteni egy ilyen mellékletet, először mentse el a helyi meghajtóra, majd bontsa ki a belső fájlokat egy speciális segédprogrammal, például a WinRAR-ral. Erre a problémára összpontosítva, itt egy módszert kínálunk, amely lehetővé teszi a „.RAR” mellékletek csak az Outlookban. Most olvassa el a részletes lépéseket és a VBA-kódokat.

unrar .RAR Mellékletek közvetlenül az Outlookban

1. Először is, mivel ez a módszer egy adott eszközre – a WinRAR-ra – támaszkodik, először telepítenie kell a számítógépére, és ellenőriznie kell, hogy hová van csatlakoztatva.
2. Ezután a szokásos módon megnyithatja az Outlook alkalmazást.
3. Ezután nyomja meg az „Alt + F11” billentyűket az Outlook főablakában.
4. Ezt követően az Outlook VBA szerkesztőjében nyisson meg egy üres modult.
5. Ezután másolja be a következő VBA-kódot ebbe a modulba.

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. Ezt követően meg kell győződnie arról, hogy a makró engedélyezett az Outlookban.
7. Végre egy próbát tehetsz.

• Először is nyisson meg egy e-mailt, amely tartalmazza .RAR mellékleteket.
• Ezután térjen vissza az új makró gombra.
• Kattintson az „UnRARAttachments” alprogramra, és nyomja meg az F5 billentyűt.
• Ezután kattintson a következő „AttachExtractedFiles” szubrutinra, és nyomja meg az F5 billentyűt.
• Ezután visszatérhet a levelezőablakhoz. Látni fogja, hogy .RAR a mellékletek kicsomagolásra kerültek. Az összes kicsomagolt fájl csatolva lett.

Csomagold .Zip Mellékletek az Outlookban

Mint a kibontás .RAR mellékletek esetén az Outlook nem rendelkezik beépített funkciókkal a „.zip” mellékleteket. Ezért, ha nem tudja közvetlenül kicsomagolni a „.Zip” mellékleteket alapértelmezés szerint közvetlenül az Outlookban. Szerencsére még mindig használhatja az Outlook VBA-t a funkció eléréséhez. További részletekért tekintse meg korábbi cikkemet – "Hogyan cipzározzuk ki a .Zip Mellékletek közvetlenül az Outlookban VBA-n keresztül".

Szerző Bevezetés:

Shirley Zhang adat-helyreállítási szakértő DataNumen, Inc., amely világelső az adat-helyreállítási technológiák területén, beleértve erősít SQL Server és outlook javítószoftver termékek. További információért látogasson el www.datanumen.com