Deși Outlook nu permite comprimarea directă a atașamentelor într-un RAR fișier, încă puteți folosi codul VBA introdus în acest articol pentru a-l realiza ca o briză.
După cum știm cu toții, atunci când atașați multe fișiere mari la un e-mail, este posibil să primiți un avertisment cu privire la limita de dimensiune a atașamentului în Outlook. De asemenea, dacă un e-mail conține atașamente prea mari, va deveni mai dificil să-l trimiți cu succes. Deci, în fața unor astfel de atașamente, puteți opta pentru a le comprima într-un RAR fișier, care poate reduce dimensiunea fișierelor atașate într-o oarecare măsură.
În general, pentru a comprima fișierele într-un RAR fișier, îl puteți realiza numai pe unitatea locală, deoarece Outlook nu oferă o astfel de caracteristică nativă pentru comprimare. Cu toate acestea, mulți speră să o realizeze direct în Outlook. Prin urmare, aici vă vom învăța cum să îl obțineți cu Outlook VBA.
Comprimați rapid toate atașamentele într-un RAR Fișier în e-mailul tău Outlook
- De la bun început, lansați aplicația Outlook.
- Apoi apăsați tastele „Alt + F11” în fereastra principală a Outlook.
- Apoi veți intra în fereastra „Microsoft Visual Basic pentru aplicații”. Trebuie să deschideți un modul gol.
- Ulterior, copiați și inserați următorul cod VBA în acest modul.
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 'Salvați atașamentele în 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 Pentru fiecare objAttachment în objAttachment objAttachment.SaveAsFile (strTempFolder & "\" & objAttachment.FileName) Următorul „Creează un nou RAR dosar strRARFișier = InputBox("Specificați un nume pentru noul zip nume de fișier Zip Fișier", objMail.Subject) strRARFișier = objFileSystem.GetSpecialFolder(2).Cale & „\” și strRARFișier & ".rar„Deschide strRARFișier pentru ieșire ca #1 Print #1, Chr$(80) & Chr$(75) & Chr$(5) & Chr$(6) & String(18, 0) Închide #1 Set objShell = CreateObject("Shell .Aplicație") „Adăugați fișierele la New RAR fișier strSourceFile = Dir(strTempFolder) În timp ce strSourceFile <> "" "Schimbați "C:\Program Files (x86)\WinRAR\VictorieRAR.exe" la locația în care WinRAR este instalat objShell.Run Chr(34) & „C:\Program Files (x86)\WinRAR\VictorieRAR.exe" & Chr(34) & "a -r" & Chr(34) & strRARFile & Chr(34) & " " & Chr(34) & strSourceFile & Chr(34) strSourceFile = Dir Wend 'Șterge toate atașamentele Set objAttachments = objMail.attachments În timp ce objAttachments.Count > 0 objAttachments.Item(1).Delete Wend 'Adăugați noul RAR fișier la e-mailul curent objMail.attachments.Add strRARFișierul „Prompt you MsgBox „Complete!”, vbExclamation End Sub
- După aceea, schimbați nivelul de securitate al macrocomenzii Outlook la scăzut.
- Mai târziu, pentru un acces convenabil, puteți adăuga macrocomandă la Bara de instrumente Acces rapid.
- În cele din urmă poți încerca.
- Mai întâi, deschideți un e-mail cu multe atașamente.
- Apoi apăsați butonul macro din Bara de instrumente Acces rapid.
- În continuare, va trebui să introduceți un nume pentru noul RAR fișier și apăsați „OK”.
- După aceea, toate atașamentele originale vor fi înlocuite cu una nouă RAR fișier ca în captura de ecran:
Unrar .RAR Atașamente în Outlook
În mod similar, Outlook nu permite utilizatorilor să decomprima direct un fișier .RAR dosar în el. Prin urmare, dacă doriți să vizualizați fișierele interne într-un fișier .RAR atașament, trebuie să îl salvați și să îl decomprimați în unitatea dvs. locală. Cu toate acestea, este, fără îndoială, plictisitor. Din fericire, încă puteți utiliza VBA pentru a realiza această caracteristică în Outlook, care a fost introdusă în articolul meu anterior „Cum să dezactivațirar .RAR Atașamente Direct în Outlook prin VBA".
Introducerea autorului:
Shirley Zhang este expertă în recuperarea datelor DataNumen, Inc., care este lider mondial în tehnologiile de recuperare a datelor, inclusiv SQL Server corupţie și produse software de reparații Outlook. Pentru mai multe informații vizitați www.datanumen.com