"" bölməsində əlavə aldığınız zaman.zip"Fayl uzantısı ilə, onları açmaq istəyirsinizsə, ümumiyyətlə, onları yerli sürücüdə saxlamalı və açmalısınız. Lakin bir çoxları onları birbaşa Outlook-da açmağa ümid edirlər. Bu məqalə sizə VBA vasitəsilə necə əldə edəcəyinizi öyrədəcək.
"" bölməsindəki əlavələri almış olmalısınız..zip” fayl uzantısı. Daxili fayllara birində daxil olmaq üçün zip faylı açmaq üçün əvvəlcə onu açmalısınız. Bu halda, həmişəki kimi, əvvəlcə onu saxlamalısınız zip faylı yerli sürücüyə köçürün və sonra üzərinə sağ klikləyin və kontekst menyusundan "Hamısını çıxarın" seçin. Əslində, bir çox istifadəçi faylı birbaşa Outlook daxilində açmağı üstün tutur. Lakin, Outlook belə bir doğma xüsusiyyət təmin etmir. Xoşbəxtlikdən, VBA-dan istifadə edərək bunu asanlıqla həyata keçirmək üçün aşağıdakı addımları izləyə bilərsiniz.
Açın .Zip Birbaşa Outlook-da əlavələr
- İlk növbədə, Outlook proqramınızı işə salın.
- Sonra VBA redaktoruna daxil olmaq üçün Outlook pəncərəsində "Alt + F11" düyməsinə qısa yol basın.
- Sonrakı “Proqramlar üçün Microsoft Visual Basic” pəncərəsində istifadə olunmayan modulu açın.
- Sonradan aşağıdakı VBA kodlarını kopyalayıb bu modula yapışdırın.
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
- Bundan sonra, yeni VBA layihəsini həmişə olduğu kimi mesaj pəncərəsinin Tez Giriş Alətlər Panelinə əlavə edə bilərsiniz.
- Nəhayət, cəhd edə bilərsiniz.
- Əvvəlcə ilə mesaj açın zip faylı öz pəncərəsində.
- Sonra "Fəaliyyətlər" > "Mesajı redaktə et" üzərinə klikləyin.
- Sonra Tez Giriş Alətlər Panelində yeni makro düyməsini basın.
- Bir anda, zip Fayl aşağıdakı ekran görüntüsündə olduğu kimi arxivdən çıxarılacaq:
Narahatedici PST Problemlərindən qurtulun
Yeni Unicode formatında PST faylı 20 GB fayl ölçüsünü dəstəkləsə də, faylı mümkün qədər kiçik saxlamaq hələ də müdrikdir. Bunun səbəbi böyük bir PST faylının korrupsiyaya daha çox meylli olmasıdır. PST faylınız təhlükə altına düşdükdən sonra bunun üçün səy göstərməli olacaqsınız PST bərpa edin data. Bu ssenaridə, kimi yaxşı sübut edilmiş və nüfuzlu bir vasitəyə müraciət etməkdən başqa seçiminiz yoxdur DataNumen Outlook Repair.
Müəllif Giriş:
Shirley Zhang məlumatların bərpası üzrə mütəxəssisdir DataNumendaxil olmaqla məlumatların bərpası texnologiyaları üzrə dünya lideri olan , Inc sql təmiri və Outlook təmiri proqram məhsulları. Ətraflı məlumat üçün ziyarət edin www.datanumen.com