Paano i-unzip ang .Zip Mga Attachment na Direkta sa Outlook sa pamamagitan ng VBA

Kapag nakatanggap ka ng kalakip sa ".zip"file extension, kung gusto mong i-unzip ang mga ito, sa pangkalahatan, dapat mong i-save at i-unzip ang mga ito sa local drive. Ngunit marami ang umaasang mai-unzip ang mga ito nang direkta sa Outlook. Ituturo sa iyo ng artikulong ito kung paano ito makuha sa pamamagitan ng VBA.

Dapat ay natanggap mo na ang mga kalakip na nasa ".zip” extension ng file. Upang ma-access ang mga panloob na file sa isa zip file, kailangan mo munang i-unzip ito. Sa kasong ito, gaya ng dati, kailangan mo munang i-save ang zip I-convert ang file sa local drive at pagkatapos ay i-right click ito at piliin ang "Extract All" mula sa context menu. Sa totoo lang, mas gusto ng maraming user na i-unzip ang file nang direkta sa loob ng Outlook. Gayunpaman, walang ganitong native feature ang Outlook. Mabuti na lang, maaari mong sundin ang mga hakbang pagkatapos nito para magamit ang VBA para madali itong maisakatuparan.

I-zip ang .Zip Mga Attachment na Direkta sa Outlook

1. Sa unang lugar, ilunsad ang iyong aplikasyon sa Outlook.
2. Pagkatapos ay pindutin ang "Alt + F11" key shortcut sa window ng Outlook upang ma-access ang VBA editor.
3. Susunod sa window na "Microsoft Visual Basic for Applications", buksan ang isang module na hindi ginagamit.
4. Kasunod, kopyahin at i-paste ang mga sumusunod na VBA code sa modyul na ito.

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. Pagkatapos nito, maaari mong idagdag ang bagong proyekto ng VBA sa Quick Access Toolbar ng window ng mensahe gaya ng dati.
6. Panghuli, maaari kang magkaroon ng isang pagsubok.

• Una, magbukas ng mensahe gamit ang zip file sa sarili nitong window.
• Pagkatapos ay i-click ang "Mga Pagkilos" > "I-edit ang Mensahe".
• Susunod na i-click ang bagong macro button sa Quick Access Toolbar.
• Sabay-sabay, ang zip Maa-unzip ang file, tulad ng sumusunod na screenshot:

Alisin ang Nakakainis na Mga Isyu sa PST

Kahit na ang PST file sa bagong Unicode na format ay sumusuporta sa 20 GB na laki ng file, matalino pa rin na panatilihing maliit ang file hangga't maaari. Ito ay dahil ang isang malaking PST file ay mas madaling kapitan ng katiwalian. Kapag nakompromiso ang iyong PST file, kakailanganin mong magsikap bawiin ang PST datos. Sa sitwasyong iyon, wala kang pagpipilian kundi bumalik sa isang mahusay na napatunayan at kagalang-galang na tool tulad ng DataNumen Outlook Repair.

Panimula ng May-akda:

Si Shirley Zhang ay isang dalubhasa sa pagbawi ng data sa DataNumen, Inc., na pinuno ng mundo sa mga teknolohiya sa pagbawi ng data, kasama ang pag-aayos ng sql at pananaw sa pag-aayos ng mga produktong software. Para sa karagdagang impormasyon pagbisita www.datanumen. Sa