Nói chung, để giải nén tệp “.rarĐối với các tệp đính kèm trong email, trước tiên bạn nên lưu chúng lại rồi sử dụng công cụ chuyên dụng để giải nén các tệp bên trong. Bài viết này sẽ cung cấp cho bạn phương pháp giải nén tệp RAR trực tiếp trong Outlook.
Outlook không cho phép bạn xem trước “.RARBạn cũng không thể giải nén tệp “.RARTệp đính kèm “.rar” được mở trực tiếp trong Outlook. Do đó, nếu bạn muốn xem tệp đính kèm như vậy, trước tiên bạn nên lưu nó vào ổ đĩa cục bộ và sau đó giải nén các tệp bên trong bằng tiện ích chuyên dụng, chẳng hạn như WinRAR. Tập trung vào vấn đề này, ở đây chúng tôi sẽ cung cấp cho bạn một cách cho phép bạn giải nén tệp “.rar”..RAR” tệp đính kèm chỉ trong Outlook. Bây giờ hãy đọc tiếp để biết các bước chi tiết và mã VBA.
Đoàn kết .RAR Tệp đính kèm trực tiếp trong Outlook
- Trước hết, vì phương pháp này dựa vào một công cụ cụ thể – WinRAR, bạn cần cài đặt nó trên máy tính của mình và đảm bảo vị trí lưu trữ đã được gắn kết.
- Sau đó, bạn có thể mở ứng dụng Outlook của mình như bình thường.
- Tiếp theo, nhấn các nút phím “Alt + F11” trong cửa sổ chính của Outlook.
- Sau đó, trong trình chỉnh sửa VBA của Outlook, hãy mở một mô-đun trống.
- Và sau đó sao chép mã VBA sau vào mô-đun này.
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
- Sau đó, bạn cần đảm bảo rằng macro được phép trong Outlook của mình.
- Cuối cùng bạn có thể có một thử.
- Đầu tiên, hãy mở một email có chứa .RAR file đính kèm.
- Sau đó quay lại nút macro mới.
- Nhấp chuột vào chương trình con “UnRARAttachments” và nhấn phím F5.
- Và tiếp theo, nhấp vào chương trình con “AttachExtractedFiles” sau đây và nhấn phím F5.
- Sau đó, bạn có thể quay lại cửa sổ thư. Bạn sẽ thấy rằng .RAR tệp đính kèm đã được giải nén. Tất cả các tập tin giải nén đã được đính kèm.
Giải nén .Zip Tệp đính kèm trong Outlook
Giống như việc giải nén .RAR Đối với các tệp đính kèm, Outlook không có tính năng tích hợp sẵn để giải nén chúng..zipcác tệp đính kèm ”. Do đó, nếu bạn không thể giải nén trực tiếp tệp “.Zip” tệp đính kèm trực tiếp trong Outlook theo mặc định. May mắn thay, bạn vẫn có thể sử dụng Outlook VBA để thực hiện chức năng này. Để biết thêm chi tiết, bạn có thể kiểm tra bài viết trước của tôi – “Cách giải nén .Zip Tệp đính kèm trực tiếp trong Outlook qua VBA".
Giới thiệu tác giả:
Shirley Zhang là một chuyên gia phục hồi dữ liệu trong DataNumen, Inc., công ty hàng đầu thế giới về công nghệ khôi phục dữ liệu, bao gồm sửa chữa SQL Server và các sản phẩm phần mềm sửa chữa triển vọng. Để biết thêm thông tin, hãy truy cập www.datanumennăm