Ինչպես արագ սեղմել բոլոր կցորդները ա RAR Պատկերացրեք ձեր Outlook էլ. Փոստում

Outlook լուծումներ Սեպտեմբեր 29, 2025
Կիսվել հիմա ՝

Չնայած Outlook- ը թույլ չի տալիս ուղղակիորեն սեղմել կցորդները ա RAR ֆայլ, դուք դեռ կարող եք օգտագործել այս հոդվածում ներկայացված VBA կոդը `այն քամու պես իրականացնելու համար:

Ինչպես բոլորս գիտենք, շատ մեծ ֆայլեր մեկ էլ. Փոստին կցելիս, ամենայն հավանականությամբ, Outlook- ում նախազգուշացում կստանաք հավելվածի չափի սահմանի մասին: Բացի այդ, եթե էլփոստը չափազանց մեծ կցորդներ է պարունակում, ապա այն ավելի հաջող կդարձնի: Այսպիսով, նման կցորդների առկայության դեպքում դուք կարող եք ընտրել դրանք սեղմել a RAR ֆայլ, որը կարող է որոշ չափով նվազեցնել կցված ֆայլերի չափը:

Արագ սեղմեք բոլոր կցորդները ա RAR Պատկերացրեք ձեր Outlook էլ. Փոստում

Ընդհանուր առմամբ, ֆայլերը սեղմել a RAR ֆայլ, դրան կարող եք հասնել միայն տեղական սկավառակում, որովհետև Outlook- ը չի տալիս սեղմելու համար այդպիսի հարազատ հատկություն: Այնուամենայնիվ, շատերը հույս ունեն դա իրականացնել անմիջապես Outlook- ի շրջանակներում: Հետեւաբար, այստեղ մենք կսովորեցնենք ձեզ, թե ինչպես ստանալ այն Outlook VBA- ի միջոցով:

Արագ սեղմեք բոլոր կցորդները ա RAR Պատկերացրեք ձեր Outlook էլ. Փոստում

  1. Հենց սկզբից գործարկեք ձեր Outlook հավելվածը:
  2. Դրանից հետո հիմնական Outlook պատուհանում սեղմեք «Alt + F11» ստեղները:
  3. Հաջորդը մուտքագրեք «Microsoft Visual Basic հավելվածների համար» պատուհանը: Դուք պետք է բացեք դատարկ մոդուլ:
  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

VBA կոդ - Բոլոր կցորդները սեղմել ա RAR Ֆայլ

  1. Դրանից հետո փոխեք ձեր Outlook մակրո անվտանգության մակարդակը ցածր:
  2. Ավելի ուշ, հարմարավետ մուտքի համար, մակրոը կարող եք ավելացնել Արագ մուտքի գործիքագոտում:
  3. Ի վերջո կարող եք փորձել:
  • Նախ, բացեք էլփոստ ՝ բազմաթիվ հավելվածներով:
  • Դրանից հետո սեղմեք մակրո կոճակը Արագ մուտքի Գործիքադարակում:
  • Հաջորդը պետք է մուտքագրեք նորի անուն RAR ֆայլը և սեղմեք «OK»:
  • Դրանից հետո բոլոր բնօրինակ կցորդները կփոխարինվեն նորով RAR ֆայլ, ինչպիսին է սքրինշոթը.Արդյունք. Բոլոր կցորդները սեղմեք ա RAR Ֆայլ

Ուրարա .RAR Կցորդներ Outlook- ում

Նմանապես, Outlook-ը նաև թույլ չի տալիս օգտատերերին ուղղակիորեն ապակոմպրեսիա կատարել .RAR ֆայլը դրա մեջ։ Հետևաբար, եթե ցանկանում եք դիտել ներքին ֆայլերը .RAR կցորդ, դուք պետք է այն պահպանեք և ապամոնտաժեք ձեր տեղական սկավառակում: Այնուամենայնիվ, դա անկասկած հոգնեցուցիչ է: Բարեբախտաբար, դուք դեռ կարող եք օգտագործել VBA- ն Outlook- ում այս հատկությանը հասնելու համար, որը ներկայացվել է իմ նախորդ հոդվածում «Ինչպես անջատել rar-ը .RAR Կցորդներ ուղղակիորեն Outlook- ում `VBA- ի միջոցով".

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

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

Կիսվել հիմա ՝

Comments փակվում են: