Bütün qoşmaları necə tez sıxışdırmaq olar RAR Outlook E-poçtunuzda fayl

Baxmayaraq ki, Outlook qoşmaları birbaşa sıxışdırmağa icazə vermir RAR fayl, siz hələ də onu meh kimi həyata keçirmək üçün bu məqalədə təqdim olunan VBA kodundan istifadə edə bilərsiniz.

Hamımızın bildiyimiz kimi, bir e-poçta bir çox böyük fayl əlavə edərkən, Outlook-da qoşma ölçüsü limiti ilə bağlı xəbərdarlıq alacaqsınız. Həmçinin, e-poçtda çox böyük qoşmalar varsa, onu uğurla göndərmək çətinləşəcək. Beləliklə, bu cür qoşmalar qarşısında onları sıxışdırmağı seçə bilərsiniz RAR fayl, əlavə edilmiş faylların ölçüsünü müəyyən dərəcədə azalda bilər.

Ümumiyyətlə, faylları sıxışdırmaq üçün a RAR fayl, siz bunu yalnız yerli diskdə əldə edə bilərsiniz, çünki Outlook sıxışdırmaq üçün belə bir yerli xüsusiyyət təmin etmir. Bununla belə, çoxları bunu birbaşa Outlook daxilində həyata keçirməyə ümid edir. Buna görə də, burada Outlook VBA ilə necə əldə edəcəyinizi sizə öyrədəcəyik.

Bütün qoşmaları tez bir zamanda sıxışdırın RAR Outlook E-poçtunuzda fayl

1. Ən başlanğıcda Outlook proqramınızı işə salın.
2. Sonra əsas Outlook pəncərəsində "Alt + F11" düymələrini basın.
3. Sonra "Proqramlar üçün Microsoft Visual Basic" pəncərəsinə daxil olacaqsınız. Boş modulu açmalısınız.
4. Sonradan aşağıdakı VBA kodunu kopyalayıb bu modula yapışdırın.

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. Bundan sonra, Outlook makro təhlükəsizlik səviyyənizi aşağı səviyyəyə dəyişdirin.
6. Daha sonra, rahat giriş üçün makronu Tez Giriş Alətlər Panelinə əlavə edə bilərsiniz.
7. Nəhayət, bir cəhd edə bilərsiniz.

• Birincisi, bir çox qoşma olan bir e-poçt açın.
• Sonra Tez Giriş Alətlər Panelində makro düyməsini basın.
• Sonra yeni üçün bir ad daxil etməlisiniz RAR fayl və "OK" düyməsini basın.
• Bundan sonra bütün orijinal əlavələr yenisi ilə əvəz olunacaq RAR ekran görüntüsü kimi fayl:

Birləşdirin .RAR Outlook-da əlavələr

Eynilə, Outlook da istifadəçilərə birbaşa dekompressiya etməyə imkan vermir .RAR faylı orada saxlayın. Buna görə də, daxili faylları a-da görmək istəyirsinizsə .RAR qoşma üçün onu yerli diskinizdə saxlamaq və açmaq lazımdır. Bununla belə, şübhəsiz ki, yorucudur. Xoşbəxtlikdən, əvvəlki məqaləmdə təqdim olunan Outlook-da bu xüsusiyyətə nail olmaq üçün hələ də VBA-dan istifadə edə bilərsiniz "Necə Unrar etmək olar .RAR VBA vasitəsilə birbaşa Outlook-da əlavələr".

Müəllif Giriş:

Shirley Zhang məlumatların bərpası üzrə mütəxəssisdir DataNumendaxil olmaqla məlumatların bərpası texnologiyaları üzrə dünya lideri olan , Inc SQL Server korrupsiya və Outlook təmiri proqram məhsulları. Ətraflı məlumat üçün ziyarət edin www.datanumen.com