Qanday qilib rarni ochish mumkin .RAR VBA orqali Outlookda to'g'ridan-to'g'ri qo'shimchalar

Umuman olganda, ".rar"Elektron pochtadagi qo'shimchalar uchun avval uni saqlashingiz va keyin ichki fayllarni ajratib olish uchun maxsus vositadan foydalanishingiz kerak. Ushbu maqola sizga Outlook-da to'g'ridan-to'g'ri unrar qilish usulini taqdim etadi.

Outlook sizga "oldindan ko'rish" ga ruxsat bermaydi.RAR"qo'shimchalar. Shuningdek, siz ".RAR"qo'shimchalarni to'g'ridan-to'g'ri Outlook ichida ko'rish mumkin. Shuning uchun, agar siz bunday qo'shimchani ko'rishni istasangiz, avval uni mahalliy diskka saqlashingiz va keyin ichki fayllarni WinRAR kabi maxsus yordamchi dastur orqali chiqarib olishingiz kerak. Ushbu masalaga e'tibor qaratgan holda, biz sizga "RAR" ni ochish imkonini beruvchi usulni taklif qilamiz..RAR” qo'shimchalari faqat Outlook-da. Endi batafsil qadamlar va VBA kodlarini olish uchun o'qing.

Birlashtir .RAR Qo'shimchalar to'g'ridan-to'g'ri Outlook-da

1. Avvalo, bu usul ma'lum bir vositaga - WinRARga asoslanganligi sababli, avval uni kompyuteringizga o'rnatishingiz va uning qayerga o'rnatilganligiga ishonch hosil qilishingiz kerak.
2. Keyin odatdagidek Outlook ilovangizni ochishingiz mumkin.
3. Keyin asosiy Outlook oynasida "Alt + F11" tugmachalarini bosing.
4. Keyinchalik, Outlook VBA muharririda bo'sh modulni oching.
5. Va keyin quyidagi VBA kodini ushbu modulga nusxalang.

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

6. Shundan so'ng, Outlook-da makroga ruxsat berilganligiga ishonch hosil qilishingiz kerak.
7. Nihoyat, siz sinab ko'rishingiz mumkin.

• Birinchidan, quyidagilarni o'z ichiga olgan elektron pochta xabarini oching .RAR qo'shimchalar.
• Keyin yangi makro tugmasiga qayting.
• “UnRAAttachments” kichik dasturiga o‘ting va F5 tugmasini bosing.
• Va keyin quyidagi "AttachExtractedFiles" pastki dasturini bosing va F5 tugmasini bosing.
• Shundan so'ng, siz pochta oynasiga qaytishingiz mumkin. Siz buni ko'rasiz .RAR qo'shimchalar ochilgan. Barcha chiqarilgan fayllar biriktirilgan.

Qopqoqni oching .Zip Outlook-dagi qo'shimchalar

Xuddi dekompressiyani ochish kabi .RAR qo'shimchalar, Outlookda ".zip"qo'shimchalar. Shuning uchun, agar siz to'g'ridan-to'g'ri arxivni ocholmasangiz, ".Zip” qo'shimchalarini to'g'ridan-to'g'ri Outlook-da sukut bo'yicha. Yaxshiyamki, siz hali ham ushbu funktsiyaga erishish uchun Outlook VBA-dan foydalanishingiz mumkin. Qo'shimcha ma'lumot olish uchun siz mening oldingi maqolamni tekshirishingiz mumkin - "Qanday qilib arxivni ochish kerak .Zip 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 tuzatish SQL Server va Outlook ta'mirlash dasturiy mahsulotlar. Qo'shimcha ma'lumot olish uchun tashrif buyuring www.datanumen.com