Рардан қалай шығаруға болады .RAR Қосымшалар тікелей Outlook бағдарламасында VBA арқылы

Жалпы, «.rar«Электрондық поштадағы тіркемелерді алдымен сақтап, содан кейін ішкі файлдарды алу үшін арнайы құралды пайдалану керек. Бұл мақалада Outlook бағдарламасында тікелей ашу әдісі берілген.»

Outlook сізге алдын ала қарауға мүмкіндік бермейді «.RAR«қосымшалар». Сондай-ақ, сіз «.RAR«Тіркемелерді Outlook ішінде тікелей сақтау». Сондықтан, егер сіз мұндай тіркемені көргіңіз келсе, алдымен оны жергілікті дискіге сақтап, содан кейін WinRAR сияқты арнайы утилита арқылы ішкі файлдарды шығарып алуыңыз керек. Осы мәселеге назар аудара отырып, біз сізге «радарлықтан шығаруға» мүмкіндік беретін әдісті ұсынамыз..RAR»Тек тіркемелер Outlook бағдарламасында. Енді егжей-тегжейлі қадамдар мен VBA кодтарын алу үшін оқыңыз.

Unrar .RAR Қосымшалар тікелей Outlook бағдарламасында

1. Біріншіден, бұл әдіс белгілі бір құралға - WinRAR-ға негізделгендіктен, алдымен оны компьютеріңізге орнатып, оның қай жерде орнатылғанын тексеруіңіз керек.
2. Содан кейін сіз әдеттегідей Outlook бағдарламаңызды аша аласыз.
3. Негізгі Outlook терезесінде «Alt + F11» батырмаларын басыңыз.
4. Кейіннен Outlook VBA редакторында бос модульді ашыңыз.
5. Осы модульге келесі 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

6. Осыдан кейін Outlook бағдарламасында макросты қамтамасыз ету қажет.
7. Соңында сіз көріңіз.

• Алдымен, құрамында бар электрондық поштаны ашыңыз .RAR қосымшалар.
• Содан кейін жаңа макро батырмаға оралыңыз.
• «UnRAAttachments» кіші бағдарламасына өтіп, F5 пернесін басыңыз.
• Келесі «AttachExtractedFiles» ішкі бағдарламасын нұқып, F5 пернесін басыңыз.
• Осыдан кейін сіз пошта терезесіне қайта орала аласыз. Сіз мұны көресіз .RAR тіркемелер қысылған. Барлық шығарылған файлдар тіркелген.

орауын .Zip Outlook бағдарламасындағы тіркемелер

Декомпрессияны ашу сияқты .RAR қосымшалар, Outlook бағдарламасында «.zip«қосымшалар». Сондықтан, егер сіз тікелей мұрағаттан шығара алмасаңыз, «.Zip»Әдепкі бойынша тікелей Outlook бағдарламасындағы тіркемелер. Бақытымызға орай, сіз бұл функцияға жету үшін әлі де Outlook VBA қолдана аласыз. Толығырақ ақпарат алу үшін сіз менің алдыңғы мақаламды - «Қалай ашу керек .Zip Қосымшалар тікелей Outlook бағдарламасында VBA арқылы«.

Автордың кіріспесі:

Ширли Чжан - деректерді қалпына келтіру бойынша сарапшы DataNumen, Соның ішінде деректерді қалпына келтіру технологиялары бойынша әлемдік көшбасшы болып табылатын Inc. бекіту SQL Server және бағдарламалық жасақтаманы жөндеу бағдарламалары. Қосымша ақпарат алу үшін кіріңіз WWW.datanumen.com