“.zip"" dosya uzantısına sahip dosyaları açmak istiyorsanız, genellikle bunları yerel sürücünüze kaydedip açmanız gerekir. Ancak birçok kişi bunları doğrudan Outlook'ta açmayı umuyor. Bu makale, bunu VBA aracılığıyla nasıl yapacağınızı öğretecektir.
Ekli dosyaları mutlaka almış olmalısınız, bunlar ".zip" Dosya uzantısı. Dahili dosyalara bir arada erişmek için zip Dosyayı açmak için öncelikle sıkıştırılmış dosyayı açmanız gerekiyor. Bu durumda, her zamanki gibi, önce kaydetmeniz gerekiyor. zip Dosyayı yerel sürücüye çıkarın, ardından sağ tıklayın ve bağlam menüsünden "Tümünü Çıkart"ı seçin. Gerçekte, birçok kullanıcı dosyayı doğrudan Outlook içinde açmayı tercih eder. Ancak Outlook böyle bir yerleşik özellik sağlamaz. Neyse ki, VBA'yı kullanarak bunu kolayca gerçekleştirmek için aşağıdaki adımları izleyebilirsiniz.
Aç .Zip Ekler Doğrudan Outlook'ta
- İlk etapta, Outlook uygulamanızı başlatın.
- Ardından, VBA düzenleyicisine erişmek için Outlook penceresindeki “Alt + F11” tuş kısayoluna basın.
- Sonraki "Microsoft Visual Basic for Applications" penceresinde, kullanılmayan bir modülü açın.
- Ardından, aşağıdaki VBA kodlarını kopyalayıp bu modüle yapıştı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 projesini her zamanki gibi mesaj penceresinin Hızlı Erişim Araç Çubuğuna ekleyebilirsiniz.
- Son olarak, bir deneyebilirsiniz.
- İlk olarak, ile bir mesaj açın zip kendi penceresinde dosya.
- Ardından "Eylemler" > "Mesajı Düzenle"yi tıklayın.
- Ardından, Hızlı Erişim Araç Çubuğundaki yeni makro düğmesine tıklayın.
- bir anda, zip Dosya aşağıdaki ekran görüntüsündeki gibi açılacaktır:
Can Sıkıcı PST Sorunlarından Kurtulun
Yeni Unicode biçimindeki PST dosyası 20 GB dosya boyutunu desteklese de, dosyayı olabildiğince küçük tutmak akıllıca olacaktır. Bunun nedeni, büyük bir PST dosyasının bozulmaya çok daha yatkın olmasıdır. PST dosyanız tehlikeye girdiğinde, bunu yapmak için çaba sarf etmeniz gerekecek. PST'yi kurtar veri. Bu senaryoda, kanıtlanmış ve saygın bir araca tekrar dönmekten başka seçeneğiniz yok. DataNumen Outlook Repair.
Yazar Tanıtımı:
Shirley Zhang, bir veri kurtarma uzmanıdır. DataNumendahil olmak üzere veri kurtarma teknolojilerinde dünya lideri olan , Inc. sql onarımı ve görünüm onarım yazılım ürünleri. Daha fazla bilgi için ziyaret edin www.datanumen.com