Kā ātri saspiest visus pielikumus a RAR Fails jūsu Outlook e-pastā

Lai gan programma Outlook neļauj tieši saspiest pielikumus RAR failu, jūs joprojām varat izmantot šajā rakstā ieviesto VBA kodu, lai to realizētu kā brīze.

Kā mēs visi zinām, pievienojot daudzus lielus failus vienam e-pastam, visticamāk, jūs saņemsit brīdinājumu par pielikuma lieluma ierobežojumu programmā Outlook. Turklāt, ja e-pastā ir pārāk lieli pielikumi, būs grūtāk to veiksmīgi nosūtīt. Tātad, ņemot vērā šādus pielikumus, varat izvēlēties tos saspiest RAR failu, kas zināmā mērā var samazināt pievienoto failu lielumu.

Parasti, lai saspiestu failus a RAR failu, to var sasniegt tikai vietējā diskā, jo programma Outlook nenodrošina šādu vietējo saspiešanas funkciju. Tomēr daudzi cer to paveikt tieši programmā Outlook. Tāpēc šeit mēs iemācīsim, kā to iegūt, izmantojot Outlook VBA.

Ātri saspiediet visus pielikumus a RAR Fails jūsu Outlook e-pastā

1. Pašā sākumā palaidiet programmu Outlook.
2. Pēc tam galvenajā Outlook logā nospiediet taustiņus “Alt + F11”.
3. Pēc tam ievadīsit logu “Microsoft Visual Basic for Applications”. Jums jāatver tukšs modulis.
4. Pēc tam šajā modulī nokopējiet un ielīmējiet šādu VBA kodu.

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. Pēc tam mainiet Outlook makro drošības līmeni uz zemu.
6. Vēlāk ērtai piekļuvei varat pievienot makro ātrās piekļuves rīkjoslai.
7. Galu galā jūs varat izmēģināt.

• Vispirms atveriet e-pastu ar daudziem pielikumiem.
• Pēc tam ātrās piekļuves rīkjoslā nospiediet makro pogu.
• Tālāk jums būs jāievada jaunā nosaukuma nosaukums RAR failu un nospiediet “OK”.
• Pēc tam visi oriģinālie pielikumi tiks aizstāti ar jauniem RAR fails, piemēram, ekrānuzņēmums:

Unrar .RAR Pielikumi programmā Outlook

Līdzīgi arī programma Outlook neļauj lietotājiem tieši atspiest .RAR fails tajā. Tādēļ, ja vēlaties skatīt iekšējos failus .RAR pielikums, tas jāsaglabā un jāatšifrē vietējā diskā. Tomēr tas neapšaubāmi ir garlaicīgs. Par laimi, jūs joprojām varat izmantot VBA, lai sasniegtu šo Outlook funkciju, kas ir ieviesta manā iepriekšējā rakstā “Kā atšifrēt .RAR Pielikumi tieši programmā Outlook, izmantojot VBA".

Autora ievads:

Šērlija Džana ir datu atkopšanas eksperte DataNumen, Inc., kas ir pasaules līderis datu atkopšanas tehnoloģiju, tostarp SQL Server korupcija un perspektīvas remonta programmatūras produktus. Lai iegūtu vairāk informācijas, apmeklējiet vietni www.datanumen. Ar