Khi bạn nhận được tệp đính kèm trong “.zipNếu bạn muốn giải nén các tệp có phần mở rộng .file.js, thông thường bạn nên lưu và giải nén chúng vào ổ đĩa cục bộ. Nhưng nhiều người hy vọng có thể giải nén chúng trực tiếp trong Outlook. Bài viết này sẽ hướng dẫn bạn cách thực hiện điều đó thông qua VBA.
Chắc hẳn bạn đã từng nhận được các tệp đính kèm có định dạng “.zip” phần mở rộng tập tin. Để truy cập các tập tin nội bộ trong một zip Để giải nén tập tin, trước tiên bạn phải giải nén nó. Trong trường hợp này, như thường lệ, trước tiên bạn phải lưu lại tập tin đó. zip Sao chép tệp vào ổ đĩa cục bộ, sau đó nhấp chuột phải vào tệp và chọn “Giải nén tất cả” từ menu ngữ cảnh. Trên thực tế, nhiều người dùng thích giải nén tệp trực tiếp trong Outlook. Tuy nhiên, Outlook không cung cấp tính năng này một cách mặc định. May mắn thay, bạn có thể làm theo các bước sau để sử dụng VBA thực hiện việc này một cách dễ dàng.
Giải nén .Zip Tệp đính kèm trực tiếp trong Outlook
- Trước tiên, hãy khởi chạy ứng dụng Outlook của bạn.
- Sau đó nhấn phím tắt “Alt + F11” trong cửa sổ Outlook để truy cập trình soạn thảo VBA.
- Tiếp theo trong cửa sổ “Microsoft Visual Basic for Applications”, hãy mở một mô-đun không được sử dụng.
- Sau đó, sao chép và dán các mã VBA sau vào mô-đun này.
Public Sub UnzipFileInOutlook()
Dim objMail As Outlook.MailItem
Dim objAttachments As Outlook.attachments
Dim objAttachment As Outlook.Attachment
Dim objShell As Object
Dim objFileSystem As Object
Dim strTempFolder As String
Dim strFilePath As String
Dim strFileName As String
Set objMail = Outlook.Application.ActiveInspector.CurrentItem
Set objAttachments = objMail.attachments
'Save & Unzip the zip file in local drive
Set objShell = CreateObject("Shell.Application")
Set objFileSystem = CreateObject("Scripting.FileSystemObject")
strTempFolder = objFileSystem.GetSpecialFolder(2).Path & "\Temp" & Format(Now, "yyyy-mm-dd-hh-mm-ss")
MkDir (strTempFolder)
For Each objAttachment In objAttachments
If Right(objAttachment.FileName, 3) = "zip" Then
strFilePath = strTempFolder & "\" & objAttachment.FileName
objAttachment.SaveAsFile (strFilePath)
objShell.NameSpace((strTempFolder)).CopyHere objShell.NameSpace((strFilePath)).Items
End If
Next
'Reattach the files extracted from the zip file
strFileName = Dir(strTempFolder & "\")
While Len(strFileName) > 0
objMail.attachments.Add (strTempFolder & "\" & strFileName)
strFileName = Dir
objMail.Save
Wend
'Delete the attachments in “.zip” file extension
Set objAttachments = objMail.attachments
For Each objAttachment In objAttachments
If Right(objAttachment.FileName, 3) = "zip" Then
objAttachment.Delete
objMail.Save
End If
Next
'Delete the temp folder and files
objFileSystem.DeleteFolder (strTempFolder)
End Sub
- Sau đó, bạn có thể thêm dự án VBA mới vào Thanh công cụ truy cập nhanh của cửa sổ thông báo như bình thường.
- Cuối cùng, bạn có thể thử.
- Đầu tiên, mở một tin nhắn với zip tập tin trong cửa sổ riêng của nó.
- Sau đó nhấp vào “Hành động” > “Chỉnh sửa tin nhắn”.
- Tiếp theo bấm vào nút macro mới trong Thanh công cụ truy cập nhanh.
- Cùng một lúc, zip Tệp sẽ được giải nén, như ảnh chụp màn hình bên dưới:
Loại bỏ các vấn đề PST gây phiền nhiễu
Mặc dù tệp PST ở định dạng Unicode mới hỗ trợ kích thước tệp 20 GB nhưng bạn vẫn nên giữ tệp càng nhỏ càng tốt. Đó là bởi vì một tệp PST lớn sẽ dễ bị hỏng hơn nhiều. Khi tệp PST của bạn bị xâm phạm, bạn sẽ phải nỗ lực để phục hồi PST dữ liệu. Trong trường hợp đó, bạn không có lựa chọn nào khác ngoài việc sử dụng lại một công cụ đã được chứng minh và có uy tín như DataNumen Outlook Repair.
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 lỗi sql 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