როგორ გავხსნათ rar-ი .RAR დანართები პირდაპირ Outlook-ში VBA-ის საშუალებით

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

ზოგადად, „“-ის გასაუქმებლად.rar„ელ. ფოსტაში დანართების შემთხვევაში, ჯერ უნდა შეინახოთ ისინი და შემდეგ გამოიყენოთ სპეციალური ინსტრუმენტი შიდა ფაილების ამოსაღებად. ეს სტატია მოგაწვდით მეთოდს, თუ როგორ ამოიღოთ rar ფაილი პირდაპირ Outlook-ში.“

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

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

პირველ რიგში, რადგან ეს მეთოდი კონკრეტულ ინსტრუმენტზეა დამოკიდებული - WinRAR, თქვენ ჯერ უნდა დააინსტალიროთ ის თქვენს კომპიუტერზე და დარწმუნდეთ, თუ სად არის დამონტაჟებული.
შემდეგ თქვენ შეგიძლიათ გახსნათ თქვენი Outlook აპლიკაცია, როგორც ყოველთვის.
შემდეგ დააჭირეთ "Alt + F11" ღილაკებს Outlook-ის მთავარ ფანჯარაში.
შემდგომში, Outlook VBA რედაქტორში გახსენით ცარიელი მოდული.
შემდეგ დააკოპირეთ შემდეგი VBA კოდი ამ მოდულში.

Public objFileSystem As Object
Public strTempFolder As String
Public strTargetFolderPath As String
Public objAttachment As Outlook.Attachment

Sub UnRARAttachment()
    Dim objMail As Outlook.MailItem
    Dim objShell As Object
    Dim strTempFolder As String
    Dim strRARFile As String
 
    Set objMail = Outlook.Application.ActiveInspector.CurrentItem
 
    Set objFileSystem = CreateObject("Scripting.FileSystemObject")
    strTempFolder = objFileSystem.GetSpecialFolder(2).Path
    strTargetFolderPath = strTempFolder & "\Temp " & Format(Now, "YYYY-MM-DD-hh-mm-ss")
    MkDir (strTargetFolderPath)
 
    Set objShell = CreateObject("Wscript.Shell")
 
    If objMail.attachments.Count > 0 Then
       For Each objAttachment In objMail.attachments
           If LCase(Right(objAttachment.FileName, 4)) = ".rar" Then
 
              strRARFile = strTempFolder & "\" & objAttachment.FileName
              objAttachment.SaveAsFile (strRARFile)
 
              'Change "C:\Program Files\WinRAR\WinRAR.exe" to the location where your WinRAR is installed
              objShell.Run Chr(34) & "C:\Program Files\WinRAR\WinRAR.exe" & Chr(34) & " e " & Chr(34) & strRARFile & Chr(34) & " " & Chr(34) & strTargetFolderPath & Chr(34)
           End If
       Next
    End If
 
End Sub

Sub AttachExtractedFiles()
    Dim strFolderPath As String
    Dim strFile As String
 
    'Attach the extracted files to the current email
    strFolderPath = strTargetFolderPath & "\"
    strFile = Dir(strFolderPath)
 
    Set objMail = Outlook.Application.ActiveInspector.CurrentItem
 
    While Len(strFile) > 0
          objMail.attachments.Add strFolderPath & strFile
          strFile = Dir
    Wend
 
    'Delete the .RAR attachments
    For Each objAttachment In objMail.attachments
        If LCase(Right(objAttachment.FileName, 4)) = ".rar" Then
           objAttachment.Delete
        End If
    Next
End Sub

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

პირველ რიგში, გახსენით ელ.წერილი, რომელიც შეიცავს .RAR დანართები.
შემდეგ დაბრუნდით ახალ მაკრო ღილაკზე.
დააწკაპუნეთ „UnRARAttachments“ ქვერუტინაზე და დააჭირეთ F5-ს.
შემდეგ დააწკაპუნეთ შემდეგ ქვეპროგრამაში “AttachExtractedFiles” და დააჭირეთ F5 ღილაკს.
ამის შემდეგ, შეგიძლიათ დაბრუნდეთ ფოსტის ფანჯარაში. თქვენ ნახავთ, რომ .RAR დანართები დეკომპრესირებულია. ყველა ამოღებული ფაილი მიმაგრებულია.

Unzip .Zip დანართები Outlook-ში

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

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

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