Cum să dezactivațirar .RAR Atașamente Direct în Outlook prin VBA

Recuperarea datelor Outlook, Soluții Outlook 16 Mai, 2017

În general, la unrar „.rar” într-un e-mail, ar trebui mai întâi să îl 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 anularar direct în Outlook.

Outlook nu vă permite să previzualizați fișierul „.RAR” atașamente. De asemenea, nu puteți dezactivarar „.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 din acesta printr-un utilitar special, cum ar fi WinRAR. Concentrați pe această problemă, aici vă vom oferi o modalitate, care vă permite să dezactivațirar ".RAR” atașamente doar în Outlook. Acum citiți mai departe pentru a obține pașii detaliați și codurile VBA.

Unrar .RAR Atașamente Direct în Outlook prin VBA

Unrar .RAR Atașamente direct în Outlook

  1. În primul rând, deoarece această metodă se bazează pe un instrument specific - WinRAR, mai întâi ar trebui să-l instalați pe computer ș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 strRARSet de fișiere ca șir objMail = Outlook.Application.ActiveInspector.CurrentItem Set objFileSystem = CreateObject("Scripting.FileSystemObject") strTempFolder = objFileSystem.GetSpecialFolder(2).Path strTargetFolderPath = strTempFolder & „\Temp „ & Format(Acum, „AAAA-LL-ZZ-hh-mm-ss”) MkDir (strTargetFolderPath) Set objShell = CreateObject("Wscript.Shell") Dacă objMail.attachments.Count > 0 Atunci pentru fiecare objAttachment În objMail.attachments Dacă LCase(Right(objAttachment.FileName, 4)) = ".rar„Atunci strRARFișier = strTempFolder & „\” & objAttachment.FileName objAttachment.SaveAsFile (strRARFișier) „Schimbați „C:\Program Files\WinRAR\VictorieRAR.exe" la locația în care WinRAR este instalat objShell.Run Chr(34) & „C:\Program Files\WinRAR\VictorieRAR.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 'Atașați fișierele extrase la e-mailul curent 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 atașamente pentru fiecare objAttachment în objMail.attachments Dacă LCase(Right(objAttachment.FileName, 4)) = ".rar" Apoi objAttachment.Delete End If Next End Sub

Cod VBA - Unrar .RAR Atașamente direct în Outlook

  1. După aceea, trebuie să vă asigurați că macrocomanda este permisă în Outlook.
  2. În sfârșit poți încerca.
  • Mai întâi, deschideți un e-mail care conține .RAR atașamente.
  • Apoi înapoi la noul buton macro.
  • Faceți clic pe „UnRARAtașamente” și apăsați F5.
  • Și apoi faceți clic în următoarea subrutină „AttachExtractedFiles” și apăsați tasta F5.
  • După aceea, puteți reveni la fereastra de e-mail. Vei vedea asta.RAR atașamentele au fost decomprimate. Toate fișierele extrase au fost atașate.Unrar RAR Atașamente

Unzip .Zip Atașamente în Outlook

Ca decomprimarea .RAR atașamente, Outlook nu are caracteristici native pentru a decomprima fișierul „.zip” atașamente. Prin urmare, dacă nu puteți anula directzip „.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 să dezactivațizip .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

Comentariile sunt închise.