Ինչպես անջատել rar-ը .RAR Կցորդներ ուղղակիորեն Outlook- ում `VBA- ի միջոցով

Outlook լուծումներ Սեպտեմբեր 29, 2025

Ընդհանուր առմամբ, «ռարը հանելու» համար.rar«էլ. փոստում կցված ֆայլերի համար նախ պետք է պահպանել դրանք, ապա օգտագործել հատուկ գործիք՝ ներքին ֆայլերը հանելու համար։ Այս հոդվածը ձեզ կտրամադրի Outlook-ում անմիջապես rar-ից հանելու եղանակ։

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 ֆայլը .Zip Կցորդներ ուղղակիորեն Outlook- ում `VBA- ի միջոցով".

Հեղինակի ներածություն.

Shirley Zhang- ը տվյալների վերականգման փորձագետ է DataNumen, Inc., որը տվյալների վերականգման տեխնոլոգիաների համաշխարհային առաջատարն է, այդ թվում ուղղել SQL Server և հեռանկարների նորոգման ծրագրակազմի արտադրանքները: Լրացուցիչ տեղեկությունների համար այցելեք www.datanumen.com