როგორ სწრაფად შევკუმშოთ ყველა დანართი ა RAR ფაილი თქვენს Outlook ელფოსტაში

Outlook Solutions სექტემბერი 29, 2025

თუმცა Outlook არ იძლევა დანართების პირდაპირ შეკუმშვას ა RAR ფაილში, თქვენ მაინც შეგიძლიათ გამოიყენოთ ამ სტატიაში წარმოდგენილი VBA კოდი, რომ გააცნობიეროთ ის, როგორც ნიავი.

როგორც ყველამ ვიცით, ბევრი დიდი ფაილის ერთ ელფოსტაზე მიმაგრებისას, სავარაუდოდ მიიღებთ გაფრთხილებას Outlook-ში დანართის ზომის ლიმიტის შესახებ. ასევე, თუ ელფოსტას აქვს ძალიან დიდი დანართები, მისი წარმატებით გაგზავნა გართულდება. ასე რომ, ასეთი დანართების ფონზე, შეგიძლიათ აირჩიოთ მათი შეკუმშვა ა RAR ფაილი, რამაც შეიძლება გარკვეულწილად შეამციროს მიმაგრებული ფაილების ზომა.

ზოგადად, ფაილების შეკუმშვა ა RAR ფაილში, თქვენ შეგიძლიათ მიაღწიოთ მას მხოლოდ ლოკალურ დისკზე, რადგან Outlook არ უზრუნველყოფს შეკუმშვის ასეთ მშობლიურ ფუნქციას. თუმცა, ბევრი იმედოვნებს, რომ ამას განახორციელებს პირდაპირ Outlook-ში. აქედან გამომდინარე, აქ ჩვენ გასწავლით როგორ მიიღოთ ის Outlook VBA-ით.

სწრაფად შეკუმშოს ყველა დანართი ა RAR ფაილი თქვენს Outlook ელფოსტაში

თავიდანვე გაუშვით თქვენი Outlook აპლიკაცია.
შემდეგ დააჭირეთ "Alt + F11" კლავიშებს Outlook-ის მთავარ ფანჯარაში.
შემდეგ თქვენ შეხვალთ "Microsoft Visual Basic აპლიკაციებისთვის" ფანჯარაში. თქვენ უნდა გახსნათ ცარიელი მოდული.
ამის შემდეგ, დააკოპირეთ და ჩასვით შემდეგი 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

ამის შემდეგ შეცვალეთ თქვენი Outlook მაკრო უსაფრთხოების დონე დაბალზე.
მოგვიანებით, მოსახერხებელი წვდომისთვის, შეგიძლიათ დაამატოთ მაკრო სწრაფი წვდომის ხელსაწყოთა ზოლში.
საბოლოოდ შეგიძლიათ სცადოთ.

პირველ რიგში, გახსენით ელ.წერილი მრავალი დანართით.
შემდეგ დააჭირეთ მაკრო ღილაკს სწრაფი წვდომის ინსტრუმენტთა პანელში.
შემდეგი, თქვენ უნდა შეიყვანოთ სახელი ახალისთვის RAR ფაილი და დააჭირეთ "OK".
ამის შემდეგ, ყველა ორიგინალური დანართი შეიცვლება ახლით RAR ფაილი, როგორც ეკრანის სურათი:

გავერთიანდეთ .RAR დანართები Outlook-ში

ანალოგიურად, Outlook ასევე არ აძლევს მომხმარებლებს საშუალებას პირდაპირ გაათავისუფლონ .RAR ფაილი მასში. ამიტომ, თუ გსურთ შიდა ფაილების ნახვა .RAR დანართი, თქვენ უნდა შეინახოთ და დეკომპრესია თქვენს ადგილობრივ დისკზე. თუმცა, უდავოდ დამღლელი. საბედნიეროდ, თქვენ კვლავ შეგიძლიათ გამოიყენოთ VBA ამ ფუნქციის მისაღწევად Outlook-ში, რომელიც წარმოდგენილი იყო ჩემს წინა სტატიაში.როგორ გავხსნათ rar-ი .RAR დანართები პირდაპირ Outlook-ში VBA-ის საშუალებით".

ავტორი შესავალი:

შირლი ჟანგი არის მონაცემთა აღდგენის ექსპერტი DataNumen, Inc., რომელიც მსოფლიო ლიდერია მონაცემთა აღდგენის ტექნოლოგიებში, მათ შორის SQL Server კორუფციის და Outlook სარემონტო პროგრამული პროდუქტები. დამატებითი ინფორმაციისთვის ეწვიეთ www.datanumen. ერთად