Apabila anda menerima lampiran dalam ".zip"sambungan fail", jika anda ingin membuka zipnya, secara amnya, anda harus menyimpan dan membuka zipnya dalam pemacu setempat. Tetapi ramai yang berharap untuk membuka zipnya terus dalam Outlook. Artikel ini akan mengajar anda cara mendapatkannya melalui VBA.
Anda mesti pernah menerima lampiran yang terdapat dalam ".zip" sambungan fail. Untuk mengakses fail dalaman dalam satu zip fail tersebut, anda perlu membuka zipnya terlebih dahulu. Dalam kes ini, seperti biasa, anda perlu menyimpannya terlebih dahulu zip fail ke pemacu setempat dan kemudian klik kanan dan pilih "Ekstrak Semua" daripada menu konteks. Pada hakikatnya, ramai pengguna lebih suka membuka zip fail terus dalam Outlook. Walau bagaimanapun, Outlook tidak menyediakan ciri asli sedemikian. Mujurlah, anda boleh mengikuti langkah-langkah selepas itu untuk menggunakan VBA bagi merealisasikannya dengan mudah.
Buka zip .Zip Lampiran Langsung di Outlook
- Pertama, lancarkan aplikasi Outlook anda.
- Kemudian tekan pintasan kekunci "Alt + F11" dalam tetingkap Outlook untuk mengakses editor VBA.
- Selanjutnya di tetingkap "Microsoft Visual Basic for Applications", buka modul yang tidak digunakan.
- Selepas itu, salin dan tampal kod VBA berikut ke dalam modul ini.
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
- Selepas itu, anda boleh menambah projek VBA baharu pada Bar Alat Akses Pantas tetingkap mesej seperti biasa.
- Akhirnya, anda boleh mencuba.
- Mula-mula, buka mesej dengan zip fail dalam tetingkapnya sendiri.
- Kemudian klik "Tindakan" > "Edit Mesej".
- Seterusnya klik butang makro baharu dalam Bar Alat Akses Pantas.
- Sekali gus, zip Fail akan dizip, seperti tangkapan skrin berikut:
Hilangkan Isu PST yang Menjengkelkan
Walaupun fail PST dalam format Unicode baharu menyokong saiz fail 20 GB, tetap bijak untuk menyimpan fail sekecil mungkin. Ini kerana fail PST yang besar lebih terdedah kepada rasuah. Setelah fail PST anda terjejas, anda perlu berusaha untuk memulihkan PST data. Dalam senario itu, anda tidak mempunyai pilihan selain menggunakan alat yang terbukti dan bereputasi baik seperti DataNumen Outlook Repair.
Pengenalan Pengarang:
Shirley Zhang adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk pembaikan sql dan produk perisian pembaikan prospek. Untuk maklumat lebih lanjut, lawati www.datanumen.com