ဇစ်ဖြည်နည်း .Zip VBA မှတဆင့် Outlook တွင် တိုက်ရိုက် ပူးတွဲပါဖိုင်များ

" တွင် ပူးတွဲပါဖိုင်တစ်ခု ရရှိသောအခါ.zip” ဖိုင် extension ကို unzip လုပ်ချင်ရင် ယေဘုယျအားဖြင့် local drive ထဲမှာ save လုပ်ပြီး unzip လုပ်သင့်ပါတယ်။ ဒါပေမယ့် Outlook မှာ တိုက်ရိုက် unzip လုပ်ဖို့ လူအများက မျှော်လင့်ကြပါတယ်။ ဒီဆောင်းပါးက VBA ကနေတစ်ဆင့် ဘယ်လိုရယူရမလဲဆိုတာ သင်ကြားပေးပါလိမ့်မယ်။

"" တွင်ပါရှိသော ပူးတွဲပါဖိုင်များကို သင်လက်ခံရရှိဖူးရမည်။.zip" ဖိုင်တိုးချဲ့မှု။ Internal Files တွေကို တစ်နေရာတည်းမှာ ဝင်ရောက်ကြည့်ရှုနိုင်ဖို့ zip ဖိုင်ကို ဦးစွာ unzip လုပ်ရပါမယ်။ ဒီကိစ္စမှာတော့ ပုံမှန်အတိုင်း အရင်ဆုံး save လုပ်ရပါမယ်။ zip ဖိုင်ကို local drive ထဲထည့်ပြီးရင် right click နှိပ်ပြီး context menu ကနေ “Extract All” ကို ရွေးပါ။ အမှန်တကယ်တော့ အသုံးပြုသူအများစုက Outlook ထဲမှာ ဖိုင်ကို တိုက်ရိုက် unzip လုပ်ဖို့ ပိုနှစ်သက်ကြပါတယ်။ ဒါပေမယ့် Outlook မှာ ဒီလို native feature မပါပါဘူး။ ကံကောင်းထောက်မစွာပဲ၊ VBA ကို အသုံးပြုပြီး အလွယ်တကူ လုပ်ဆောင်နိုင်ဖို့ နောက်ပိုင်းမှာ အဆင့်တွေကို လိုက်နာနိုင်ပါတယ်။

ဇစ်ဖြည်ပါ .Zip Outlook တွင် တိုက်ရိုက် ပူးတွဲပါဖိုင်များ

1. ပထမဆုံးအနေနဲ့ သင့် Outlook အက်ပ်ကို စတင်လိုက်ပါ။
2. ထို့နောက် VBA တည်းဖြတ်သို့ဝင်ရောက်ရန် Outlook ဝင်းဒိုးရှိ “Alt + F11” ခလုတ်ဖြတ်လမ်းကို နှိပ်ပါ။
3. ထို့နောက် “Microsoft Visual Basic for Applications” ဝင်းဒိုးတွင်၊ အသုံးမပြုသော module တစ်ခုကိုဖွင့်ပါ။
4. ထို့နောက်တွင်၊ အောက်ပါ VBA ကုဒ်များကို ဤ module ထဲသို့ ကူးယူပြီး ကူးထည့်ပါ။

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

5. ၎င်းနောက်၊ သင်သည် ပုံမှန်အတိုင်း မက်ဆေ့ချ်ဝင်းဒိုး၏ Quick Access Toolbar သို့ VBA ပရောဂျက်အသစ်ကို ထည့်နိုင်သည်။
6. နောက်ဆုံးအနေနဲ့ စမ်းကြည့်လို့ရပါတယ်။

• ပထမဦးစွာ မက်ဆေ့ခ်ျကို ဖွင့်ပါ။ zip ၎င်း၏ကိုယ်ပိုင်ဝင်းဒိုးတွင်ဖိုင်။
• ထို့နောက် "Actions" > "Edit Message" ကိုနှိပ်ပါ။
• ထို့နောက် Quick Access Toolbar ရှိ မက်ခရိုခလုတ်အသစ်ကို နှိပ်ပါ။
• တစ်ချိန်တည်းမှာ၊ zip ဖိုင်ကို unzip လုပ်ပါလိမ့်မယ်၊ အောက်က screenshot အတိုင်းပါပဲ။

စိတ်အနှောင့်အယှက်ဖြစ်စေသော PST ပြဿနာများကို ဖယ်ရှားလိုက်ပါ။

ယူနီကုဒ်ဖော်မတ်အသစ်ရှိ PST ဖိုင်သည် 20 GB ဖိုင်အရွယ်အစားကို ပံ့ပိုးပေးသော်လည်း ဖိုင်ကို တတ်နိုင်သမျှ သေးငယ်အောင်ထားရန်မှာ ပညာရှိနေဆဲဖြစ်သည်။ ကြီးမားသော PST ဖိုင်သည် အကျင့်ပျက်ခြစားမှု ပိုများသောကြောင့် ဖြစ်သည်။ သင်၏ PST ဖိုင်ကို အခိုးခံရသည်နှင့်တစ်ပြိုင်နက်၊ သင်ကြိုးစားအားထုတ်ရလိမ့်မည်။ PST ပြန်လည်ရယူပါ။ ဒေတာ။ ထိုအခြေအနေမျိုးတွင်၊ ကောင်းစွာသက်သေပြပြီး ဂုဏ်သိက္ခာရှိသော ကိရိယာတစ်ခုသို့ ထပ်တလဲလဲလုပ်ရန်မှတပါး ရွေးချယ်စရာမရှိပါ။ DataNumen Outlook Repair.

စာရေးသူနိဒါန်း:

Shirley Zhang သည် ဒေတာပြန်လည်ရယူရေးဆိုင်ရာ ကျွမ်းကျင်သူဖြစ်သည်။ DataNumen, Inc. အပါအဝင် ဒေတာပြန်လည်ရယူရေးနည်းပညာများတွင် ကမ္ဘာ့ခေါင်းဆောင်ဖြစ်သည်။ sql ပြုပြင်ခြင်း။ နှင့် outlook ပြုပြင်ရေး software ထုတ်ကုန်များ။ ပိုမိုသိရှိလိုပါကသွားရောက်ကြည့်ရှု www ။datanumen.com