Kuinka kaikki liitteet pakataan nopeasti a RAR Tiedosto Outlook-sähköpostissasi

Vaikka Outlook ei salli liitteiden pakkaamista suoraan a RAR tiedostoa, voit silti käyttää tässä artikkelissa esiteltyä VBA-koodia ymmärtääksesi sen kuin tuulta.

Kuten me kaikki tiedämme, kun liität useita suuria tiedostoja yhteen sähköpostiin, saat todennäköisesti varoituksen liitteen kokorajoituksesta Outlookissa. Jos sähköpostissa on liian suuria liitteitä, sen lähettäminen onnistuu entistä vaikeammaksi. Joten tällaisten liitteiden edessä voit halutessasi pakata ne a: ksi RAR tiedosto, joka voi pienentää liitettyjen tiedostojen kokoa jossain määrin.

Yleensä tiedostojen pakkaaminen a RAR tiedosto, voit saavuttaa sen vain paikallisessa asemassa, koska Outlook ei tarjoa tällaista alkuperäistä ominaisuutta pakkaamiseen. Monet kuitenkin toivovat sen onnistuvan suoraan Outlookissa. Siksi tässä opetamme sinulle, kuinka saada se Outlook VBA: lla.

Pakkaa kaikki liitteet nopeasti a RAR Tiedosto Outlook-sähköpostissasi

1. Käynnistä Outlook-sovellus heti alusta.
2. Paina sitten "Alt + F11" -näppäimiä Outlookin pääikkunassa.
3. Seuraavaksi syötät "Microsoft Visual Basic for Applications" -ikkunan. Sinun on avattava tyhjä moduuli.
4. Kopioi ja liitä seuraava VBA-koodi tähän moduuliin.

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
 
    'Save the attachments to Temporary folder
    Set objFileSystem = CreateObject("Scripting.FileSystemObject")
    strTempFolder = objFileSystem.GetSpecialFolder(2).Path & "\Temp " & Format(Now, "YYYY-MM-DD hh-mm-ss")
    MkDir (strTempFolder)
 
    Set objMail = Outlook.Application.ActiveInspector.CurrentItem
    Set objAttachments = objMail.attachments
    For Each objAttachment In objAttachments
        objAttachment.SaveAsFile (strTempFolder & "\" & objAttachment.FileName)
    Next
 
    'Create a new RAR file
    strRARFile = InputBox("Specify a name for the new zip file", "Name Zip File", objMail.Subject)
    strRARFile = objFileSystem.GetSpecialFolder(2).Path & "\" & strRARFile & ".rar"
    Open strRARFile For Output As #1
    Print #1, Chr$(80) & Chr$(75) & Chr$(5) & Chr$(6) & String(18, 0)
    Close #1
 
    Set objShell = CreateObject("Shell.Application")
 
    'Add the files to the New RAR file
    strSourceFile = Dir(strTempFolder)
 
    While strSourceFile <> ""
          'Change "C:\Program Files (x86)\WinRAR\WinRAR.exe" to the location where your WinRAR is installed
          objShell.Run Chr(34) & "C:\Program Files (x86)\WinRAR\WinRAR.exe" & Chr(34) & " a -r" & Chr(34) & strRARFile & Chr(34) & " " & Chr(34) & strSourceFile & Chr(34)
          strSourceFile = Dir
    Wend
 
    'Delete all the attachments
    Set objAttachments = objMail.attachments
 
    While objAttachments.Count > 0
          objAttachments.Item(1).Delete
    Wend
 
    'Add the new RAR file to the current email
    objMail.attachments.Add strRARFile
 
    'Prompt you
    MsgBox "Complete!", vbExclamation
End Sub

5. Muuta sen jälkeen Outlookin makrotason suojaustaso matalaksi.
6. Myöhemmin voit lisätä makron Quick Access -työkalupalkkiin, jotta pääset helposti käsiksi.
7. Lopulta voit kokeilla.

• Avaa ensin sähköposti, jossa on useita liitteitä.
• Paina sitten pikakäynnistystyökalurivin makropainiketta.
• Seuraavaksi sinun on annettava uudelle nimi RAR tiedosto ja paina “OK”.
• Sen jälkeen kaikki alkuperäiset liitteet korvataan uusilla RAR tiedosto kuten kuvakaappaus:

Unrar .RAR Liitteet Outlookissa

Samoin Outlook ei myöskään salli käyttäjien purkaa tiedostoa suoraan. .RAR tiedosto siinä. Siksi, jos haluat tarkastella sisäisiä tiedostoja .RAR liitetiedosto, sinun on tallennettava ja purettava se paikalliseen asemaan. Se on kuitenkin epäilemättä tylsää. Onneksi voit silti käyttää VBA: ta tämän ominaisuuden saavuttamiseksi Outlookissa, joka on esitetty edellisessä artikkelissani “Kuinka purkaa tiedosto .RAR Liitteet suoraan Outlookissa VBA: n kautta".

Tekijän esittely:

Shirley Zhang on tietojen palauttamisen asiantuntija DataNumen, Inc., joka on maailman johtava tietojen palautustekniikoissa, mukaan lukien SQL Server korruptio ja Outlookin korjausohjelmistotuotteet. Lisätietoja osoitteessa www.datanumen.com