Хэрхэн Unrar .RAR VBA-ээр шууд Outlook дээр хавсралтууд

Ерөнхийдөө unrar ".rar”Гэсэн хавсралтуудыг хавсаргасан бол та үүнийг эхлээд хадгалаад дараа нь дотоод файлуудыг задлах тусгай хэрэгсэл ашиглах хэрэгтэй. Энэ нийтлэл нь танд un-ийн аргыг өгөх болноrar шууд Outlook дээр.

Outlook нь "." -Ийг урьдчилан харахыг танд зөвшөөрөхгүй.RAR”Хавсралтууд. Түүнчлэн, та unrar ".RAR”Хавсралтыг шууд Outlook дотор байрлуулсан болно. Тиймээс, хэрэв та ийм хавсралтыг үзэхийг хүсвэл эхлээд үүнийг локал драйвд хадгалаад дараа нь Win гэх мэт тусгай хэрэгслээр дамжуулан дотоод файлуудаа гаргаж авах хэрэгтэй.RAR. Энэ асуудалд анхаарлаа төвлөрүүлснээр бид танд unrar ".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 хавсралтууд.
• Дараа нь шинэ макро товч руу буцаж очно уу.
• “UnRARХавсралтууд ”дэд програмыг сонгоод F5 товчийг дарна уу.
• Дараа нь дараахь "AttachExtractedFiles" дэд програм дээр дарж F5 товчийг дарна уу.
• Үүний дараа та буцааж шуудангийн цонх руу эргэж болно. Та үүнийг харах болно.RAR хавсралтыг шахсан байна. Бүх гаргаж авсан файлуудыг хавсаргав.

Unzip .Zip Outlook дахь хавсралтууд

Даралтыг суллахтай адил.RAR хавсралтаар Outlook-д “.zip”Хавсралтууд. Тиймээс, хэрэв та шууд НҮБ хийх боломжгүй болzip ".Zip"Анхдагчаар шууд хавсралтууд Outlook дээр. Аз болоход та энэхүү функцэд хүрэхийн тулд Outlook VBA-г ашиглах боломжтой хэвээр байна. Дэлгэрэнгүй мэдээллийг та миний өмнөх нийтлэлийг шалгаж болно - “Хэрхэн Unzip .Zip VBA-ээр шууд Outlook дээр хавсралтууд".

Зохиогчийн танилцуулга:

Ширли Жан бол мэдээлэл сэргээх мэргэжилтэн юм DataNumen, Үүнд мэдээлэл сэргээх технологиор дэлхийд тэргүүлэгч, Inc. засах SQL Server програм хангамжийн бүтээгдэхүүнийг засах хэтийн төлөв. Дэлгэрэнгүй мэдээллийг авна уу WWW.datanumen.com