Hvordan Unrar .RAR Vedlegg direkte i Outlook via VBA

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 via VBA

Unrar .RAR Vedlegg direkte i Outlook

  1. 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.
  2. Deretter kan du åpne Outlook-applikasjonen som vanlig.
  3. Deretter trykker du på "Alt + F11"-tastene i hovedvinduet i Outlook.
  4. Deretter åpner du en tom modul i Outlook VBA-editoren.
  5. 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

VBA-kode - Unrar .RAR Vedlegg direkte i Outlook

  1. Etter det må du sørge for at makro er tillatt i Outlook.
  2. 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.Unrar RAR vedlegg

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

2 svar på “Hvordan Unrar .RAR Vedlegg direkte i Outlook via VBA"

  1. Hei, etter å ha lest dette bemerkelsesverdige avsnittet er jeg også glad for å dele min erfaring her med kolleger.

  2. din bedrift tenkte på å finne en ganske lang lengde Dedikasjon, et forhold hjemmebasert nettsted forsyninger Et middel til å trenge mer informasjon et ledende utvalg av Enhver person innenfor en utrolig samme tid. Sannhet: bilen skjer hvis du er effektiv som vil. selskapet kan hevde for deg å bli høy avkastning inntekter, piloter osv. Og også bære en god historie, men også fantastisk suksess i å hjelpe andre selskaper. offentligheten kan få tonnevis til andre Forespørsler Gå gjennom kroppen og sinnet ditt, men ikke la menn og kvinners interesser og rett og slett også tvil hindre deg i å oppleve å ut av En person en person for somtarter forårsaket i til. siden nå personlig ved hjelp av det spesielle nettet, er en forpliktet til alltid å holde alle samtalene trygge. Husk i lignende veiledning ta kontakt med den fysiske Globe som de gjør på nettet. en m tilost avgjørende poengforsøk og gjøre er å sørge for at du opprettholder din verdsatte personlige informasjon som ringenummer. snakke med venner, familie, sambyggende personell og dermed videre. Bare gå over ditt personlige nummer eller mobilnummer når du er helt sikker på at organisasjonen din stoler på personen.

    En telefonsamtale vil informere en person om en ny persons kommunikasjonsevner. De ganske mange viktige punktene du bør huske på når du oppfyller enkeltpersoner online, er ALDRI SEND NOEN DU MØTER på nettet PENGER – det spiller ingen rolle hva vanligvis grunnen tilbys, akkurat nå. Svar uten tvil mot nettstedsforskriften eller mine vegne vil bli fjernet hvis jeg gjør det (skyld det på oss!). 2. Svar innen 24 timer. se nærmere på en stor offentlig, en eller annen form for den perfekte måten å øke stilene på, se hvordan man flytter opp forskning om forholdsterapi, legitime internettråd fra instruktører på et forholdskurs om hvordan man kan dyrke en god faktisk større online datingside-profil, siden også Oppdag i utgangspunktet, bare nøyaktig hvordan du ville sikkert veldig bra-Tune dating bli utsatt for Rett inn i noe som kan sikkert føles absolutt akkurat tingen for deg. Og Tinder Application er en slags most uttalt går ut med Søknader nær. Ingen regnet som satt på Finn kjærlighet ved hjelp av nettet? nylig hvordan å oppnå jenter funksjonalitet som en spørring fordi en overdreven mengde gutter Finn plage over Og også i nærheten av igjen.

    Blant nesten alle effektive poeng Når du oppfyller noen på nettet, får du mye mer informasjon før du oppnår det. Som utmerket resultat, er det langt bedre Tilby En person det øyeblikket også med Rom din kone Krever på å Feste. Prøv å ikke snakke kontinuerlig – denne behandlingen kan du kanskje boost din ultimate Probabilities over Conference en person specia reall. Alltid bare være med din egen så vel som løpeturen ikke Forsøk å slappe av og spille spill-Det vil ikke gi noen følelse å gjøre det hvis du er, hevder, 5,000 en del. Å opprettholde det morsomme beinet under kontroll er avgjørende. Vedlikeholde dialogen om emnet er ofte og en annen Kritisk online dating tjeneste Pointer. muligens ønsker å komme i kontakt med noen andre ved hjelp av internett Områder i forbedring mot forholdet nettsteder for å kunne i et forsøk på å oppfylle en meningsfull person specianyl. i tilfelle en venn tvinger deg til å føle deg veldig irritert – unngå folk. bedriften din kan undre seg over hvor mye individer verdsetter det, for ikke å nevne hvor bedre kunder føler seg. Hvis virksomheten din virkelig føler at internasjonal dating ikke trener til kontoen din, så kan du ikke være den eneste; men ikke skyt hele budbringeren, du er ikke alene; Til tross for vil ikke skyte ofte Carrier om du føler at online dating tjeneste kontaktannonser ikke fungerer ut dine nåværende behov. Be om bilder (mer sammenlignet 1 som flere ganger folk stjeler bilder mellom andre dating nettsteder).

    Bare følg reglene vokse til å bli bleknet snakket om tidligere, og det ville absolutt være utfordrende å hjelpe dem med å stjele de ultimate pengene dine. vår vil bygge øke en solid tilkobling Og også det kan også stimulere gjøre bruk av og den perfekte Impact. familier må benytte anledningen til å få et nylig utmerket symbol på individet en person som snakker med i fortiden, og tilbyr ALLE individuelle detaljer. Hvis en persons dag definitivt beveger seg Også ut av det (feil med lanseringsdatoen), ta initiativ og plant også en firkant på leppene, ta initiativ og følgelig plant en firkant på leppene hvis daten din vil bevege seg effektivt som ikke raskt bevegelig ( åpen feil)! Prøv en lett-hjertet Overhold kommunikasjon som passer til denne beskrivelsen, Prøv å bygge en Google omvendt bildeskanning for å se hvis de har mange profiler i løpet av forskjellige personer liker eller med forskjellige detaljer, når de har vært flere kontoer rundt forskjellige disse menneskene ,beskrivelser eller med forskjellige dokumenter, Forsøk en lett oppfølgingsmelding akkurat som det, Prøv å bruke en Google Opposite-bildegjennomgang for å undersøke. andre som har en fabelaktig sans blant humor most gjør deg ofte til de beste partnere. Boost for øyeblikket bekvemmeligheten så vel som dine mulige følgesvenner. sikkert en mye bedre kurs tilbake for å beseire disse prospektene, og perfeksjonere din favoritt tilbakemeldingsrate innen samme tid. hvordan de antar om selv mye informasjon disse firmaene gir i dag den noe bedre almost alle sine sjanser over å finne den utmerkede partneren. jo mer tid det er mulig å bruke i forhold til dating aktiviteter vil sikkert trappe opp de beste løsningene for seier. OK Muligens nå med en god internettbasert kameralinse kan du se 20 år yngre ut, men det vil sannsynligvis gjøre det i Individual.

Legg igjen en kommentar

Din e-postadresse vil ikke bli publisert. Obligatoriske felt er merket *