Qanday qilib barcha qo'shimchalarni tezda siqish kerak RAR Outlook elektron pochtangizdagi fayl

Outlook qo'shimchalarni to'g'ridan-to'g'ri siqishga ruxsat bermasa ham RAR faylni o'zgartirish uchun siz hali ham ushbu maqolada keltirilgan VBA kodidan foydalanishingiz mumkin.

Barchamizga ma'lumki, bitta elektron pochtaga ko'plab katta fayllarni biriktirganda, Outlook-da biriktirma hajmi chegarasi haqida ogohlantirish olasiz. Bundan tashqari, agar elektron pochtada juda katta qo'shimchalar bo'lsa, uni muvaffaqiyatli yuborish qiyinroq bo'ladi. Shunday qilib, bunday qo'shimchalar oldida siz ularni siqishni tanlashingiz mumkin RAR fayl, bu biriktirilgan fayllar hajmini ma'lum darajada kamaytirishi mumkin.

Umuman olganda, fayllarni siqish uchun a RAR faylga faqat mahalliy diskda erishishingiz mumkin, chunki Outlook siqishni uchun bunday mahalliy xususiyatni ta'minlamaydi. Biroq, ko'pchilik buni to'g'ridan-to'g'ri Outlook orqali amalga oshirishga umid qiladi. Shuning uchun, bu erda biz sizga Outlook VBA bilan qanday qilib olishni o'rgatamiz.

Barcha qo'shimchalarni tez siqib a RAR Outlook elektron pochtangizdagi fayl

1. Eng boshida Outlook ilovasini ishga tushiring.
2. Keyin asosiy Outlook oynasida "Alt + F11" tugmachalarini bosing.
3. Keyin "Ilovalar uchun Microsoft Visual Basic" oynasiga kirasiz. Siz bo'sh modulni ochishingiz kerak.
4. Keyinchalik, ushbu modulga quyidagi VBA kodini nusxa ko'chiring va joylashtiring.

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. Shundan so'ng, Outlook makro xavfsizlik darajasini past darajaga o'zgartiring.
6. Keyinchalik, qulay kirish uchun siz makrosni Tez kirish asboblar paneliga qo'shishingiz mumkin.
7. Oxir-oqibat, siz sinab ko'rishingiz mumkin.

• Birinchidan, ko'plab qo'shimchalar bilan elektron pochta xabarini oching.
• Keyin Tez kirish asboblar panelidagi makros tugmasini bosing.
• Keyin yangisiga nom kiritishingiz kerak bo'ladi RAR fayl va "OK" tugmasini bosing.
• Shundan so'ng, barcha asl qo'shimchalar yangisi bilan almashtiriladi RAR skrinshot kabi fayl:

Birlashtir .RAR Outlook-dagi qo'shimchalar

Xuddi shunday, Outlook foydalanuvchilarga to'g'ridan-to'g'ri dekompressiyadan chiqarishga ruxsat bermaydi .RAR unda fayl. Shuning uchun, agar siz ichki fayllarni a da ko'rishni istasangiz .RAR ilova uchun siz uni mahalliy diskingizda saqlashingiz va ochishingiz kerak. Biroq, bu, shubhasiz, zerikarli. Yaxshiyamki, siz hali ham Outlook-da ushbu xususiyatga erishish uchun VBA-dan foydalanishingiz mumkin, bu mening oldingi maqolamda taqdim etilgan "Qanday qilib rarni ochish mumkin .RAR VBA orqali Outlookda to'g'ridan-to'g'ri qo'shimchalar".

Muallif kirish:

Shirli Chjan ma'lumotlarni qayta tiklash bo'yicha mutaxassis DataNumenMa'lumotlarni qayta tiklash texnologiyalari bo'yicha jahon yetakchisi bo'lgan , Inc SQL Server korruptsiya va Outlook ta'mirlash dasturiy mahsulotlar. Qo'shimcha ma'lumot olish uchun tashrif buyuring www.datanumen.com