Хэрхэн задлах вэ .Zip VBA-ээр шууд Outlook дээр хавсралтууд

Outlook шийдлүүд Есдүгээр сарын 29, 2025

Та "" хавсралт хүлээн авах үед.zip"Файлын өргөтгөлтэй файлуудыг задлахыг хүсвэл ерөнхийдөө тэдгээрийг орон нутгийн дискэнд хадгалж, задлах хэрэгтэй. Гэхдээ олон хүн тэдгээрийг Outlook дээр шууд задлахыг хүсдэг. Энэ нийтлэлд VBA-аар дамжуулан хэрхэн авахыг танд заах болно.

Та ""-д байгаа хавсралтуудыг хүлээн авсан байх ёстой..zip”Файлын өргөтгөл. Дотоод файлууд руу нэг нэвтрэх зорилгоор zip файлыг задлахын тулд эхлээд задлах хэрэгтэй. Энэ тохиолдолд ердийнх шигээ эхлээд хадгалах хэрэгтэй. zip файлыг орон нутгийн диск рүү хуулж, дараа нь хулганы баруун товчийг дараад контекст цэснээс "Бүгдийг задлах"-ыг сонгоно уу. Үнэндээ олон хэрэглэгчид файлыг Outlook дотор шууд задлахыг илүүд үздэг. Гэсэн хэдий ч Outlook ийм үндсэн функцийг хангадаггүй. Аз болоход та VBA ашиглан үүнийг хялбархан хэрэгжүүлэхийн тулд доорх алхмуудыг дагаж болно.

задлах .Zip Хавсралтууд шууд Outlook дээр

Эхний ээлжинд Outlook програмаа ажиллуулна уу.
Дараа нь VBA засварлагч руу нэвтрэхийн тулд Outlook цонхонд "Alt + F11" товчлуурын товчлуурыг дарна уу.
Дараа нь “Microsoft Visual Basic for Applications” цонхонд ашиглагдаагүй байгаа модулийг нээнэ үү.
Дараа нь дараахь VBA кодыг хуулж аваад энэ модуль дээр буулгана уу.

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

Үүний дараа та шинэ VBA төслийг ердийн байдлаар мессеж цонхонд Quick Access Toolbar дээр нэмж болно.
Эцэст нь та хичээгээд үзээрэй.

Эхлээд хамт зурвас нээнэ үү zip өөрийн цонхонд файл.
Дараа нь "Үйлдэл"> "Зурвас засах" дээр дарна уу.
Дараа нь Quick Access Toolbar дээрх шинэ макро товчийг дарна уу.
Тэр даруй zip Файлыг дараах дэлгэцийн агшин шиг задлах болно:

Уйтгартай PST асуудлаас ангижраарай

Юникодын шинэ формат дахь PST файл нь 20 ГБ хэмжээтэй файлыг дэмждэг боловч файлыг аль болох бага байлгах нь ухаалаг хэрэг юм. Учир нь том хэмжээтэй PST файл авлигад илүү өртөмтгий байдаг. Таны PST файл алдагдсаны дараа та хүчин чармайлт гаргах хэрэгтэй болно PST сэргээх өгөгдөл. Энэ хувилбарт танд адил батлагдсан, нэр хүндтэй хэрэгсэлд эргэж орохоос өөр сонголт байхгүй DataNumen Outlook Repair.

Зохиогчийн танилцуулга:

Ширли Жан бол мэдээлэл сэргээх мэргэжилтэн юм DataNumen, Үүнд мэдээлэл сэргээх технологиор дэлхийд тэргүүлэгч, Inc. квадрат засвар програм хангамжийн бүтээгдэхүүнийг засах хэтийн төлөв. Дэлгэрэнгүй мэдээллийг авна уу WWW.datanumen.com