Generelt, til unrar den «.rar” vedlegg i en e-post, bør du først lagre den og deretter bruke et spesifikt verktøy for å trekke ut interne filer. Denne artikkelen vil gi deg en metode for å unrar direkte i Outlook.
Outlook tillater ikke at du forhåndsviser ".RAR” vedlegg. Du kan heller ikke unrar den «.RAR” vedlegg rett i Outlook. Derfor, hvis du ønsker å se et slikt vedlegg, bør du først lagre det på lokal stasjon og deretter trekke ut de interne filene fra det via spesialverktøy, for eksempel WinRAR. Fokusert på dette problemet, her vil vi tilby deg en måte som lar deg unrar ".RAR” vedlegg bare i Outlook. Les nå videre for å få de detaljerte trinnene og VBA-kodene.
Unrar .RAR Vedlegg direkte i Outlook
- Først av alt, siden denne metoden er avhengig av et spesifikt verktøy - WinRAR, bør du først installere den på PC-en og kontrollere hvor den er montert.
- Deretter kan du åpne Outlook-applikasjonen som vanlig.
- Deretter trykker du på "Alt + F11"-tastene i hovedvinduet i Outlook.
- Deretter åpner du en tom modul i Outlook VBA-editoren.
- Og kopier deretter følgende VBA-kode inn i denne modulen.
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 strRARFil som strengsett objMail = Outlook.Application.ActiveInspector.CurrentItem Sett objFileSystem = CreateObject("Scripting.FileSystemObject") strTempFolder = objFileSystem.GetSpecialFolder(2).Path strTargetFolderPath = strTempFolder & "\Temp " & Format(Nå, "ÅÅÅÅ-MM-DD-tt-mm-ss") MkDir (strTargetFolderPath) Sett objShell = CreateObject("Wscript.Shell") If objMail.attachments.Count > 0 Then For Every objAttachment I objMail.attachments If LCase(Right(objAttachment.FileName, 4)) = ".rar"Så strRARFile = strTempFolder & "\" & objAttachment.FileName objAttachment.SaveAsFile (strRARFil) 'Endre "C:\Program Files\WinRAR\VinneRAR.exe" til stedet der WinRAR er installert objShell.Run Chr(34) & "C:\Program Files\WinRAR\VinneRAR.exe" & Chr(34) & " e " & Chr(34) & strRARFil & Chr(34) & " " & Chr(34) & strTargetFolderPath & Chr(34) End If Next End If End Sub Sub AttachExtractedFiles() Dim strFolderPath As String Dim strFile As String 'Legg ved de utpakkede filene til gjeldende e-post strFolderPath = strTargetFolderPath & "\" strFile = Dir(strFolderPath) Sett objMail = Outlook.Application.ActiveInspector.CurrentItem While Len(strFile) > 0 objMail.attachments.Add strFolderPath & strFile strFile = Dir Wend 'Slett .RAR vedlegg For hver objAttachment I objMail.attachments If LCase(Right(objAttachment.FileName, 4)) = ".rar" Deretter objAttachment.Delete End If Next End Sub
- Etter det må du sørge for at makro er tillatt i Outlook.
- Endelig kan du prøve.
- Først åpner du en e-post som inneholder .RAR vedlegg.
- Så tilbake til den nye makroknappen.
- Klikk på "UnRARVedlegg”-underrutine og trykk F5.
- Og klikk deretter inn i følgende "AttachExtractedFiles"-subrutine og trykk på F5-tasten.
- Etter det kan du gå tilbake til postvinduet. Det vil du se.RAR vedlegg har blitt dekomprimert. Alle de utpakkede filene er lagt ved.
Unzip .Zip Vedlegg i Outlook
Som å dekomprimere .RAR vedlegg, har ikke Outlook innebygde funksjoner for å dekomprimere ".zip” vedlegg. Derfor, hvis du ikke kan direkte unzip den «.Zip” vedlegg rett i Outlook som standard. Heldigvis kan du fortsatt bruke Outlook VBA for å oppnå denne funksjonen. For mer informasjon, kan du sjekke min forrige artikkel - "Hvordan Unzip den.Zip Vedlegg direkte i Outlook via VBA".
Forfatterintroduksjon:
Shirley Zhang er en datagjenopprettingsekspert innen DataNumen, Inc., som er verdensledende innen datagjenopprettingsteknologier, inkludert fastsette SQL Server og Outlook-reparasjonsprodukter. For mer informasjon besøk www.datanumen. Med