Amikor mellékletet kap a „.zip” fájlkiterjesztésűek, ha ki szeretnéd csomagolni őket, általában a helyi meghajtóra kell mentened és kicsomagolnod őket. De sokan remélik, hogy közvetlenül az Outlookban tudják kicsomagolni őket. Ez a cikk megtanítja, hogyan lehet ezt VBA-n keresztül elérni.
Biztosan kaptad már meg a „.zip" fájlkiterjesztés. A belső fájlok egyben eléréséhez zip fájlt, először ki kell csomagolnod. Ebben az esetben, mint általában, először mentened kell a zip fájlt a helyi meghajtóra, majd kattintson rá jobb gombbal, és a helyi menüből válassza az „Összes kibontása” lehetőséget. A valóságban sok felhasználó inkább közvetlenül az Outlookon belül csomagolja ki a fájlt. Az Outlook azonban nem kínál ilyen beépített funkciót. Szerencsére a következő lépéseket követve a VBA használatával gyerekjáték megvalósítani ezt.
Cipzározza ki a .Zip Mellékletek közvetlenül az Outlookban
- Először is indítsa el az Outlook alkalmazást.
- Ezután nyomja meg az „Alt + F11” billentyűparancsot az Outlook ablakban a VBA-szerkesztő eléréséhez.
- Ezután a „Microsoft Visual Basic for Applications” ablakban nyissa meg a nem használt modult.
- Ezt követően másolja ki és illessze be a következő VBA-kódokat ebbe a modulba.
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
- Ezt követően a szokásos módon hozzáadhatja az új VBA-projektet az üzenetablak Gyorselérési eszköztárához.
- Végre egy próbát tehetsz.
- Először nyisson meg egy üzenetet a következővel: zip fájlt a saját ablakában.
- Ezután kattintson a „Műveletek” > „Üzenet szerkesztése” elemre.
- Ezután kattintson az új makró gombra a Gyorselérési eszköztárban.
- Egyszerre a zip a fájl kicsomagolásra kerül, ahogy az alábbi képernyőképen látható:
Megszabadulni a bosszantó PST-problémáktól
Bár az új Unicode formátumú PST-fájl támogatja a 20 GB-os fájlméretet, még mindig bölcs dolog, ha a fájl a lehető legkisebb legyen. Ez azért van, mert a nagy PST-fájlok sokkal hajlamosabbak a korrupcióra. Ha a PST-fájl veszélybe kerül, erőfeszítéseket kell tennie annak érdekében visszaállítani a PST-t adat. Ebben az esetben nincs más választása, mint egy jól bevált és jó hírű eszközhöz, mint pl DataNumen Outlook Repair.
Szerző Bevezetés:
Shirley Zhang adat-helyreállítási szakértő DataNumen, Inc., amely világelső az adat-helyreállítási technológiák területén, beleértve sql javítás és outlook javítószoftver termékek. További információért látogasson el www.datanumen.com