Kā atšifrēt .RAR Pielikumi tieši programmā Outlook, izmantojot VBA

Kopumā, lai atšķetinātu “.rar"pielikumus e-pastā, vispirms tie ir jāsaglabā un pēc tam jāizmanto īpašs rīks iekšējo failu izvilkšanai. Šajā rakstā ir sniegta metode, kā atbloķēt RAR failu tieši programmā Outlook.

Outlook neļauj priekšskatīt “.RAR"pielikumus". Turklāt jūs nevarat atbloķēt ".RAR"pielikumus tieši programmā Outlook. Tādēļ, ja vēlaties skatīt šādu pielikumu, vispirms tas ir jāsaglabā lokālajā diskā un pēc tam, izmantojot īpašu utilītu, piemēram, WinRAR, jāizvelk no tā iekšējie faili. Pievēršoties šim jautājumam, mēs šeit piedāvāsim veidu, kā atbloķēt ".RAR”Pielikumi tikai programmā Outlook. Tagad lasiet tālāk, lai iegūtu detalizētas darbības un VBA kodus.

Unrar .RAR Pielikumi tieši programmā Outlook

1. Pirmkārt, tā kā šī metode balstās uz konkrētu rīku — WinRAR, vispirms tas jāinstalē datorā un jāpārliecinās, kur tas ir uzstādīts.
2. Tad jūs varētu atvērt savu Outlook lietojumprogrammu kā parasti.
3. Pēc tam galvenajā Outlook logā nospiediet taustiņu pogas “Alt + F11”.
4. Pēc tam Outlook VBA redaktorā atveriet tukšu moduli.
5. Pēc tam šajā modulī nokopējiet šādu VBA kodu.

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. Pēc tam jums jāpārliecinās, vai makro ir atļauts jūsu programmā Outlook.
7. Beidzot jūs varat izmēģināt.

• Vispirms atveriet e-pastu, kurā ir .RAR pielikumi.
• Pēc tam atgriezieties pie jaunās makro pogas.
• Noklikšķiniet uz apakšprogrammas “UnRARAttachments” un nospiediet taustiņu F5.
• Pēc tam noklikšķiniet uz šīs apakšprogrammas “AttachExtractedFiles” un nospiediet taustiņu F5.
• Pēc tam varat atgriezties pie pasta loga. Jūs redzēsiet, ka .RAR pielikumi ir atspiesti. Visi izvilktie faili ir pievienoti.

Unzip .Zip Pielikumi programmā Outlook

Tāpat kā dekompresējot .RAR pielikumiem, programmā Outlook nav iebūvētu funkciju, lai atspiestu “.zip” pielikumus. Tādēļ, ja nevarat tieši atzipēt “.Zip”Pēc noklusējuma tieši pielikumus programmā Outlook. Par laimi, jūs joprojām varat izmantot Outlook VBA, lai sasniegtu šo funkciju. Lai iegūtu sīkāku informāciju, varat apskatīt manu iepriekšējo rakstu - “Kā atvilkt rāvējslēdzēju .Zip Pielikumi tieši programmā Outlook, izmantojot VBA".

Autora ievads:

Šērlija Džana ir datu atkopšanas eksperte DataNumen, Inc., kas ir pasaules līderis datu atkopšanas tehnoloģiju, tostarp noteikts SQL Server un perspektīvas remonta programmatūras produktus. Lai iegūtu vairāk informācijas, apmeklējiet vietni www.datanumen. Ar