"" ga qo'shimcha faylni olganingizda.zip"Fayl kengaytmasi, agar siz ularni arxivdan chiqarmoqchi bo'lsangiz, umuman olganda, ularni mahalliy diskda saqlashingiz va arxivdan chiqarishingiz kerak. Lekin ko'pchilik ularni to'g'ridan-to'g'ri Outlookda arxivdan chiqarishni umid qiladi. Ushbu maqola sizga uni VBA orqali qanday olishni o'rgatadi.
Siz ilgari ""dagi qo'shimchalarni olgan bo'lishingiz kerak..zip” fayl kengaytmasi. Ichki fayllarga birida kirish uchun zip faylni ochish uchun avval uni arxivdan chiqarishingiz kerak. Bu holda, odatdagidek, avval saqlashingiz kerak zip faylni mahalliy diskka o'tkazing va keyin uni sichqonchaning o'ng tugmasi bilan bosing va kontekst menyusidan "Hammasini ajratib olish" -ni tanlang. Aslida, ko'p foydalanuvchilar faylni to'g'ridan-to'g'ri Outlook ichida ochishni afzal ko'rishadi. Biroq, Outlook bunday mahalliy xususiyatni taqdim etmaydi. Yaxshiyamki, buni amalga oshirish uchun VBA dan foydalanish uchun quyidagi amallarni bajarishingiz mumkin.
Zipni oching .Zip Qo'shimchalar to'g'ridan-to'g'ri Outlook-da
- Birinchidan, Outlook ilovasini ishga tushiring.
- Keyin VBA muharririga kirish uchun Outlook oynasida "Alt + F11" tugmachalarini bosing.
- Keyingi "Ilovalar uchun Microsoft Visual Basic" oynasida ishlatilmaydigan modulni oching.
- Keyinchalik, ushbu modulga quyidagi VBA kodlarini nusxa ko'chiring va joylashtiring.
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
- Shundan so'ng siz odatdagidek yangi VBA loyihasini xabarlar oynasining Tez kirish asboblar paneliga qo'shishingiz mumkin.
- Nihoyat, siz sinab ko'rishingiz mumkin.
- Birinchidan, bilan xabarni oching zip faylni o'z oynasida.
- Keyin "Amallar" > "Xabarni tahrirlash" ni bosing.
- Keyin Tez kirish asboblar panelidagi yangi makros tugmasini bosing.
- Bir vaqtning o'zida, zip Fayl quyidagi skrinshotdagi kabi arxivdan chiqariladi:
Zerikarli PST muammolaridan xalos bo'ling
Yangi Unicode formatidagi PST fayli 20 Gb fayl hajmini qo'llab-quvvatlasa ham, faylni iloji boricha kichikroq saqlash oqilona. Buning sababi shundaki, katta PST fayli buzilishlarga ko'proq moyil bo'ladi. PST faylingiz buzilganidan keyin siz harakat qilishingiz kerak bo'ladi PSTni tiklash ma'lumotlar. Bunday stsenariyda sizda yaxshi tasdiqlangan va obro'li vositaga murojaat qilishdan boshqa tanlovingiz yo'q DataNumen Outlook Repair.
Muallif kirish:
Shirli Chjan ma'lumotlarni qayta tiklash bo'yicha mutaxassis DataNumenMa'lumotlarni qayta tiklash texnologiyalari bo'yicha jahon yetakchisi bo'lgan , Inc sql ta'mirlash va Outlook ta'mirlash dasturiy mahsulotlar. Qo'shimcha ma'lumot olish uchun tashrif buyuring www.datanumen.com