Selv om Outlook ikke tillater direkte komprimering av vedlegg til en RAR fil, kan du fortsatt bruke VBA-koden introdusert i denne artikkelen for å realisere det som en lek.
Som vi alle vet, når du legger ved mange store filer til én e-post, vil du sannsynligvis få en advarsel om grensen for vedleggsstørrelse i Outlook. Dessuten, hvis en e-post har for store vedlegg, vil det bli vanskeligere å sende den ut. Så, i møte med slike vedlegg, kan du velge å komprimere dem til en RAR fil, som kan redusere størrelsen på de vedlagte filene til en viss grad.
Generelt, for å komprimere filer til en RAR fil, kan du bare oppnå den på lokal stasjon ved at Outlook ikke har en slik innebygd funksjon for komprimering. Imidlertid håper mange å oppnå det direkte i Outlook. Derfor vil vi her lære deg hvordan du får det med Outlook VBA.
Komprimer raskt alle vedlegg til en RAR Fil i Outlook-e-posten din
- Start Outlook-applikasjonen helt i begynnelsen.
- Trykk deretter "Alt + F11"-tastene i hovedvinduet i Outlook.
- Deretter går du inn i vinduet "Microsoft Visual Basic for Applications". Du må åpne en tom modul.
- Deretter kopierer og limer du inn følgende VBA-kode i denne modulen.
Sub RarAttachments() Dim objMail As Outlook.MailItem Dim objAttachments As Outlook.attachments Dim objAttachment As Outlook.Attachment Dim objFileSystem As Object Dim objShell As Object Dim strTempFolder As Variant Dim strRARFile As Variant Dim strSourceFile As String 'Lagre vedleggene til Temporary mappe Sett objFileSystem = CreateObject("Scripting.FileSystemObject") strTempFolder = objFileSystem.GetSpecialFolder(2).Path & "\Temp " & Format(Nå, "ÅÅÅÅ-MM-DD tt-mm-ss") MkDir (strTempFolder) Sett objMail = Outlook.Application.ActiveInspector.CurrentItem Sett objAttachments = objMail.attachments For hver objAttachment I objAttachments objAttachment.SaveAsFile (strTempFolder & "\" & objAttachment.FileName) Neste 'Opprett en ny RAR fil strRARFile = InputBox("Spesifiser et navn for den nye zip filnavn Zip Fil", objMail.Subject) strRARFile = objFileSystem.GetSpecialFolder(2).Path & "\" & strRARFil & ".rar"Åpne strRARFil for utdata som #1 Print #1, Chr$(80) & Chr$(75) & Chr$(5) & Chr$(6) & String(18, 0) Close #1 Set objShell = CreateObject("Shell .Application") 'Legg til filene i den nye RAR file strSourceFile = Dir(strTempFolder) Mens strSourceFile <> "" 'Endre "C:\Program Files (x86)\WinRAR\VinneRAR.exe" til stedet der WinRAR er installert objShell.Run Chr(34) & "C:\Program Files (x86)\WinRAR\VinneRAR.exe" & Chr(34) & "a -r" & Chr(34) & strRARFile & Chr(34) & " " & Chr(34) & strSourceFile & Chr(34) strSourceFile = Dir Wend 'Slett alle vedleggene Sett objAttachments = objMail.attachments Mens objAttachments.Count > 0 objAttachments.Item(1).Delete Wend 'Legg til den nye RAR fil til gjeldende e-post objMail.attachments.Add strRARFil 'Spør deg MsgBox "Complete!", vbExclamation End Sub
- Deretter endrer du Outlook-makrosikkerhetsnivået til lavt.
- Senere, for enkel tilgang, kan du legge til makroen i verktøylinjen for hurtigtilgang.
- Til slutt kan du prøve deg frem.
- Først åpner du en e-post med mange vedlegg.
- Trykk deretter på makroknappen i hurtigtilgangsverktøylinjen.
- Deretter må du skrive inn et navn for den nye RAR fil og trykk "OK".
- Etter det vil alle de originale vedleggene bli erstattet med en ny RAR fil som skjermbildet:
Unrar .RAR Vedlegg i Outlook
På samme måte tillater ikke Outlook brukere å dekomprimere en .RAR fil i den. Derfor, hvis du ønsker å se de interne filene i en .RAR vedlegg, må du lagre og dekomprimere det på din lokale stasjon. Imidlertid er det utvilsomt kjedelig. Heldigvis kan du fortsatt bruke VBA for å oppnå denne funksjonen i Outlook, som har blitt introdusert i min forrige artikkel "Hvordan Unrar .RAR Vedlegg direkte i Outlook via VBA".
Forfatterintroduksjon:
Shirley Zhang er en datagjenopprettingsekspert innen DataNumen, Inc., som er verdensledende innen datagjenopprettingsteknologier, inkludert SQL Server korrupsjon og Outlook-reparasjonsprodukter. For mer informasjon besøk www.datanumen. Med
1