Si të çaktivizohet rari .RAR Bashkëngjitjet direkt në Outlook nëpërmjet VBA

Në përgjithësi, për të çraruar ".rar"Nëse keni bashkëngjitje në një email, së pari duhet ta ruani dhe më pas të përdorni një mjet specifik për të nxjerrë skedarët e brendshëm. Ky artikull do t'ju ofrojë një metodë për të hequr skedarët nga rar direkt në Outlook.

Outlook nuk ju lejon të shikoni paraprakisht "".RAR" bashkëngjitje. Gjithashtu, nuk mund ta ç'rar-oni ".RAR"bashkëngjitjet direkt brenda Outlook-ut. Prandaj, nëse dëshironi të shihni një bashkëngjitje të tillë, së pari duhet ta ruani atë në njësinë lokale dhe pastaj të nxirrni skedarët e brendshëm prej tij nëpërmjet një programi të veçantë, siç është WinRAR. Duke u përqendruar në këtë çështje, këtu do t'ju ofrojmë një mënyrë, e cila ju lejon të hiqni dorë nga rar-i ".RAR” bashkëngjitjet vetëm në Outlook. Tani lexoni për të marrë hapat e detajuar dhe kodet VBA.

Bashkohen .RAR Bashkëngjitjet direkt në Outlook

1. Para së gjithash, meqenëse kjo metodë mbështetet në një mjet specifik - WinRAR, së pari duhet ta instaloni në kompjuterin tuaj dhe të siguroheni se ku është montuar.
2. Pastaj mund të hapni aplikacionin tuaj Outlook si zakonisht.
3. Më pas shtypni butonat "Alt + F11" në dritaren kryesore të Outlook.
4. Më pas, në redaktorin VBA të Outlook, hapni një modul bosh.
5. Dhe më pas kopjoni kodin e mëposhtëm VBA në këtë 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. Pas kësaj, duhet të siguroheni që makroja është e lejuar në Outlook-un tuaj.
7. Më në fund mund të provoni.

• Së pari, hapni një email që përmban .RAR bashkëngjitje.
• Pastaj kthehu te butoni i ri makro.
• Klikoni te nënprogrami “UnRARAttachments” dhe shtypni F5.
• Pastaj klikoni në nënprogramin e mëposhtëm "AttachExtractedFiles" dhe shtypni tastin F5.
• Pas kësaj, mund të ktheheni te dritarja e postës. Do ta shihni këtë .RAR bashkëngjitjet janë dekompresuar. Të gjithë skedarët e nxjerrë janë bashkangjitur.

Hiq nga zinxhiri .Zip Shtojcat në Outlook

Ashtu si dekompresimi i .RAR bashkëngjitjet, Outlook nuk ka veçori të lindura për të dekompresuar ".zip" bashkëngjitje. Prandaj, nëse nuk mund ta hapni direkt ".Zip” bashkëngjitni drejtpërdrejt në Outlook si parazgjedhje. Për fat të mirë, ju ende mund të përdorni Outlook VBA për të arritur këtë funksion. Për më shumë detaje, mund të kontrolloni artikullin tim të mëparshëm - "Si ta hapni zinxhirin .Zip Bashkëngjitjet direkt në Outlook nëpërmjet VBA".

Hyrje e autorit:

Shirley Zhang është një eksperte për rikuperimin e të dhënave DataNumen, Inc., e cila është lider botëror në teknologjitë e rikuperimit të të dhënave, duke përfshirë fix SQL Server dhe produkte softuerike të riparimit të pamjes. Për më shumë informacion vizitoni www.datanumen.com