Как бързо да компресирате всички прикачени файлове в RAR Файл във вашия имейл на Outlook

Въпреки че Outlook не позволява директно компресиране на прикачени файлове в RAR файл, все още можете да използвате VBA кода, въведен в тази статия, за да го осъзнаете като бриз.

Както всички знаем, когато прикачвате много големи файлове към един имейл, най-вероятно ще получите предупреждение за ограничението за размера на прикачения файл в Outlook. Освен това, ако даден имейл носи твърде големи прикачени файлове, ще стане по-трудно да го изпратите успешно. Така че, пред такива прикачени файлове, можете да изберете да ги компресирате в RAR файл, който може да намали размера на прикачените файлове до известна степен.

Като цяло, за компресиране на файлове в RAR файл, можете да го постигнете само в локално устройство, тъй като Outlook не предоставя такава естествена функция за компресиране. Мнозина обаче се надяват да го постигнат директно в Outlook. Затова тук ще ви научим как да го получите с Outlook VBA.

Бързо компресирайте всички прикачени файлове в RAR Файл във вашия имейл на Outlook

1. В самото начало стартирайте приложението си Outlook.
2. След това натиснете клавишите „Alt + F11“ в главния прозорец на Outlook.
3. След това ще влезете в прозореца „Microsoft Visual Basic for Applications“. Трябва да отворите празен модул.
4. Впоследствие копирайте и поставете следния VBA код в този модул.

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. След това променете нивото на защита на макроса на Outlook на ниско.
6. По-късно, за удобен достъп, можете да добавите макроса към лентата с инструменти за бърз достъп.
7. В крайна сметка можете да опитате.

• Първо отворете имейл с много прикачени файлове.
• След това натиснете бутона за макрос в лентата с инструменти за бърз достъп.
• След това ще трябва да въведете име за новото RAR файл и натиснете „OK“.
• След това всички оригинални прикачени файлове ще бъдат заменени с нови RAR файл като екранната снимка:

Unrar .RAR Прикачени файлове в Outlook

По същия начин Outlook също не позволява на потребителите директно да декомпресират a.RAR файл в него. Следователно, ако искате да видите вътрешните файлове в.RAR прикачен файл, трябва да го запазите и декомпресирате в локалното си устройство. Това обаче несъмнено е досадно. За щастие все още можете да използвате VBA, за да постигнете тази функция в Outlook, която беше въведена в предишната ми статия “Как да Unrar .RAR Прикачени файлове директно в Outlook чрез VBA".

Въведение на автора:

Шърли Джанг е експерт по възстановяване на данни в DataNumen, Inc., която е световен лидер в технологиите за възстановяване на данни, включително SQL Server корупция и outlook софтуерни продукти за ремонт. За повече информация посетете WWW.datanumen.com