ဘယ်လို Un လုပ်မလဲ။rar .RAR VBA မှတဆင့် Outlook တွင် တိုက်ရိုက် ပူးတွဲပါဖိုင်များ

Outlook ဖြေရှင်းချက် စက်တင်ဘာလ 29, 2025

ယေဘုယျအားဖြင့် unrar "။rar” အီးမေးလ်တွင် ပူးတွဲပါဖိုင်များကို သင် ဦးစွာ သိမ်းဆည်းသင့်ပြီး အတွင်းဖိုင်များကို ထုတ်ယူရန် သီးခြားကိရိယာကို အသုံးပြုသင့်သည်။ ဤဆောင်းပါးသည် သင့်အား ဖျက်ရန်နည်းလမ်းကို ပေးလိမ့်မည်။rar Outlook တွင်တိုက်ရိုက်။

Outlook သည် “ကို အစမ်းကြည့်ရှုရန် ခွင့်မပြုပါ။RAR” ပူးတွဲပါရှိသည်။ ဒါ့အပြင် သင် unable လုပ်လို့မရပါဘူး။rar "။RAR"Outlook အတွင်းရှိ ပူးတွဲပါဖိုင်များ။ ထို့ကြောင့်၊ အကယ်၍ သင်သည် ထိုကဲ့သို့သော ပူးတွဲပါဖိုင်ကို ကြည့်ရှုလိုပါက၊ သင်သည် ၎င်းကို local drive တွင် ဦးစွာသိမ်းဆည်းပြီး Win ကဲ့သို့သော အထူး utility မှတစ်ဆင့် ၎င်းမှ အတွင်းဖိုင်များကို ထုတ်ယူသင့်သည်။RAR. ဤပြဿနာကိုအာရုံစိုက်ပါ၊ ဤနေရာတွင်ကျွန်ုပ်တို့သည်သင့်အားဖယ်ရှားရန်ခွင့်ပြုသည့်နည်းလမ်းတစ်ခုကမ်းလှမ်းပါမည်။rar "။RAR" Outlook တွင်သာ ပူးတွဲပါဖိုင်များ။ အသေးစိတ်အဆင့်များနှင့် VBA ကုဒ်များရယူရန် ယခုဆက်လက်ဖတ်ရှုပါ။

Unrar .RAR Outlook တွင် တိုက်ရိုက် ပူးတွဲပါဖိုင်များ

ပထမဦးစွာ၊ ဤနည်းလမ်းသည် တိကျသောကိရိယာတစ်ခုအပေါ် အားကိုးသောကြောင့် - WinRARသင့် PC တွင် ၎င်းကို ဦးစွာ ထည့်သွင်းပြီး ၎င်းကို တပ်ဆင်သည့်နေရာတွင် သေချာအောင်လုပ်သင့်သည်။
ထို့နောက် သင်၏ Outlook အပလီကေးရှင်းကို ပုံမှန်အတိုင်း ဖွင့်နိုင်သည်။
ထို့နောက် ပင်မ Outlook ဝင်းဒိုးရှိ “Alt + F11” ခလုတ်များကို နှိပ်ပါ။
ထို့နောက် Outlook VBA တည်းဖြတ်မှုတွင် ဗလာ module တစ်ခုကိုဖွင့်ပါ။
ထို့နောက် အောက်ပါ VBA ကုဒ်ကို ဤ module ထဲသို့ ကူးယူပါ။

Public objFileSystem As Object
Public strTempFolder As String
Public strTargetFolderPath As String
Public objAttachment As Outlook.Attachment

Sub UnRARAttachment()
    Dim objMail As Outlook.MailItem
    Dim objShell As Object
    Dim strTempFolder As String
    Dim strRARFile As String
 
    Set objMail = Outlook.Application.ActiveInspector.CurrentItem
 
    Set objFileSystem = CreateObject("Scripting.FileSystemObject")
    strTempFolder = objFileSystem.GetSpecialFolder(2).Path
    strTargetFolderPath = strTempFolder & "\Temp " & Format(Now, "YYYY-MM-DD-hh-mm-ss")
    MkDir (strTargetFolderPath)
 
    Set objShell = CreateObject("Wscript.Shell")
 
    If objMail.attachments.Count > 0 Then
       For Each objAttachment In objMail.attachments
           If LCase(Right(objAttachment.FileName, 4)) = ".rar" Then
 
              strRARFile = strTempFolder & "\" & objAttachment.FileName
              objAttachment.SaveAsFile (strRARFile)
 
              'Change "C:\Program Files\WinRAR\WinRAR.exe" to the location where your WinRAR is installed
              objShell.Run Chr(34) & "C:\Program Files\WinRAR\WinRAR.exe" & Chr(34) & " e " & Chr(34) & strRARFile & Chr(34) & " " & Chr(34) & strTargetFolderPath & Chr(34)
           End If
       Next
    End If
 
End Sub

Sub AttachExtractedFiles()
    Dim strFolderPath As String
    Dim strFile As String
 
    'Attach the extracted files to the current email
    strFolderPath = strTargetFolderPath & "\"
    strFile = Dir(strFolderPath)
 
    Set objMail = Outlook.Application.ActiveInspector.CurrentItem
 
    While Len(strFile) > 0
          objMail.attachments.Add strFolderPath & strFile
          strFile = Dir
    Wend
 
    'Delete the .RAR attachments
    For Each objAttachment In objMail.attachments
        If LCase(Right(objAttachment.FileName, 4)) = ".rar" Then
           objAttachment.Delete
        End If
    Next
End Sub

၎င်းနောက်၊ သင်သည်သင်၏ Outlook တွင် macro ကိုခွင့်ပြုကြောင်းသေချာရန်လိုအပ်သည်။
နောက်ဆုံးတော့ သင်ကြိုးစားကြည့်နိုင်ပါတယ်။

ပထမဦးစွာ၊ ပါ ၀ င်သောအီးမေးလ်ကိုဖွင့်ပါ။RAR ပူးတွဲဖိုင်များ။
ထို့နောက် မက်ခရိုခလုတ်အသစ်သို့ ပြန်သွားပါ။
“UnRARAttachments” လုပ်ရိုးလုပ်စဉ်အခွဲများနှင့် F5 ကိုနှိပ်ပါ။
ထို့နောက် အောက်ဖော်ပြပါ “AttachExtractedFiles” အခွဲသို့ ကလစ်နှိပ်ပြီး F5 ခလုတ်ကို နှိပ်ပါ။
၎င်းနောက်၊ သင်သည် မေးလ်ဝင်းဒိုးသို့ ပြန်လှည့်နိုင်သည်။ အဲဒါကို မင်းမြင်လိမ့်မယ်။RAR ပူးတွဲပါဖိုင်များကို ချုံ့လိုက်ပါပြီ။ ထုတ်ယူထားသောဖိုင်များအားလုံးကို ပူးတွဲပြီးပါပြီ။

Unzip .Zip Outlook ရှိ ပူးတွဲပါဖိုင်များ

ချုံ့လိုက်သလိုပါပဲ။RAR ပူးတွဲပါဖိုင်များ၊ Outlook တွင် “ကိုချုံ့ရန် မူလအင်္ဂါရပ်များ မရှိပါ။zip” ပူးတွဲပါရှိသည်။ ထို့ကြောင့် သင် တိုက်ရိုက်မလုပ်နိုင်လျှင် unzip "။Zip" မူရင်းအတိုင်း Outlook တွင် ပူးတွဲပါရှိသော ဖိုင်များကို ဖြောင့်တန်းစွာ ပြုလုပ်ပါ။ ကံကောင်းထောက်မစွာ၊ ဤလုပ်ဆောင်ချက်ကိုအောင်မြင်ရန် Outlook VBA ကို သင်ဆက်လက်အသုံးပြုနိုင်သေးသည်။ အသေးစိတ်အချက်အလက်များအတွက်၊ ကျွန်ုပ်၏ယခင်ဆောင်းပါးကိုကြည့်ရှုနိုင်သည် - "ဘယ်လို Un လုပ်မလဲ။zip ကZip VBA မှတဆင့် Outlook တွင် တိုက်ရိုက် ပူးတွဲပါဖိုင်များ"။

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

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

မှတ်ချက်များကိုပိတ်ထားကြသည်။