Cara Membuka File Terkompresi .Zip Lampiran Langsung di Outlook melalui VBA

Saat Anda menerima lampiran di “.zipJika Anda ingin mengekstrak file dengan ekstensi "file zip", umumnya Anda harus menyimpan dan mengekstraknya di drive lokal. Namun, banyak yang berharap dapat mengekstraknya langsung di Outlook. Artikel ini akan mengajarkan Anda cara mendapatkannya melalui VBA.

Anda pasti pernah menerima lampiran yang berbentuk “.zipEkstensi file. Untuk mengakses file internal dalam satu zip Untuk membuka file tersebut, Anda harus mengekstraknya terlebih dahulu. Dalam hal ini, seperti biasa, Anda harus menyimpan file tersebut terlebih dahulu. zip Salin file ke drive lokal, lalu klik kanan dan pilih "Ekstrak Semua" dari menu konteks. Pada kenyataannya, banyak pengguna lebih suka mengekstrak file langsung di dalam Outlook. Namun, Outlook tidak menyediakan fitur bawaan seperti itu. Untungnya, Anda dapat mengikuti langkah-langkah berikut untuk menggunakan VBA agar dapat melakukannya dengan mudah.

Buka ritsletingnya .Zip Lampiran Langsung di Outlook

1. Pertama-tama, luncurkan aplikasi Outlook Anda.
2. Kemudian tekan pintasan tombol "Alt + F11" di jendela Outlook untuk mengakses editor VBA.
3. Selanjutnya di jendela "Microsoft Visual Basic for Applications", buka modul yang tidak digunakan.
4. Selanjutnya, salin dan tempel kode 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

5. Setelah itu, Anda dapat menambahkan proyek VBA baru ke Bilah Alat Akses Cepat jendela pesan seperti biasa.
6. Akhirnya, Anda bisa mencobanya.

• Pertama, buka pesan dengan zip file di jendelanya sendiri.
• Lalu klik "Tindakan"> "Edit Pesan".
• Selanjutnya klik tombol makro baru di Bilah Alat Akses Cepat.
• Sekaligus, zip File akan diekstrak, seperti tangkapan layar berikut:

Singkirkan Masalah PST yang Mengganggu

Meskipun file PST dalam format Unicode baru mendukung ukuran file 20 GB, tetap bijaksana untuk menyimpan file sekecil mungkin. Itu karena file PST yang besar jauh lebih rentan terhadap korupsi. Setelah file PST Anda disusupi, Anda harus berusaha memulihkan PST data. Dalam skenario itu, Anda tidak punya pilihan selain menggunakan alat yang telah terbukti dan bereputasi baik seperti itu DataNumen Outlook Repair.

Pengantar Penulis:

Shirley Zhang adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk perbaikan sql dan produk perangkat lunak perbaikan pandangan. Untuk informasi lebih lanjut kunjungi www.datanumen.com