Outlook Task တစ်ခုရှိ Attachments အားလုံးကို Windows Folder တစ်ခုသို့ စုစည်းနည်း

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

တစ်ခါတစ်ရံတွင် သင်သည် အခြားသူတစ်ဦးထံမှ ပေးအပ်သောတာဝန်ကို သင်ရရှိနိုင်ပါသည်။ ပြီးတော့ ဒီလုပ်ငန်းမှာ သူ့ရဲ့ခန္ဓာကိုယ်ထဲမှာ အရေးကြီးတဲ့ ပူးတွဲပါဖိုင်တွေ ပါဝင်နိုင်ပါတယ်။ ထိုသို့သောအလုပ်တစ်ခုအတွက် သင်သည် ဤပူးတွဲဖိုင်များကို Windows ဖိုင်တွဲတစ်ခုတွင် ထုတ်ယူပြီး သိမ်းဆည်းရန် လိုအပ်နိုင်သည်။ သို့တိုင်၊ အီးမေးလ်နှင့်မတူဘဲ၊ ၎င်းတို့ကို မူရင်းအတိုင်း အတွဲလိုက်ဖြင့် သိမ်းဆည်း၍မရပါ။ Outlook သည် သင့်အား တစ်ခုပြီးတစ်ခု သိမ်းဆည်းရန်သာ ခွင့်ပြုသည်။ တွယ်တာမှုတွေများလွန်းရင် အရမ်းပျင်းနေမယ်ဆိုတာ သိသာပါတယ်။ ထို့ကြောင့် ဤတာဝန်ကို အစုလိုက်အပြုံလိုက် ပြီးမြောက်စေမည့် နည်းလမ်းကို ဤနေရာတွင် မိတ်ဆက်ပေးပါမည်။

အလုပ်တစ်ခုတွင် ပူးတွဲပါဖိုင်အားလုံးကို Windows Folder တစ်ခုသို့ အသုတ်လိုက်သိမ်းဆည်းပါ။

1. အစပိုင်းတွင်၊ Outlook အက်ပ်ကို စတင်ပါ။
2. ထို့နောက် "" ကိုရည်ညွှန်းပြီး Outlook VBA တည်းဖြတ်သူကို အစပျိုးပါ။သင်၏ Outlook တွင် VBA ကုဒ်ကိုမည်သို့ဖွင့်မည်နည်း။"။
3. ထို့နောက်၊ အသုံးမပြုသော module တစ်ခုသို့ အောက်ပါကုဒ်ကို ကူးယူပါ။

Sub BatchSaveAttachmentsFromTask()
    Dim objTask As Outlook.TaskItem
    Dim objShell, objWindowsFolder As Object
    Dim strWindowsFolder As String
    Dim objAttachment As Outlook.Attachment
    Dim strFolder, strFilePath As String

    'Get the task
    Select Case Outlook.Application.ActiveWindow.Class
           Case olInspector
                Set objTask = ActiveInspector.CurrentItem
           Case olExplorer
                Set objTask = ActiveExplorer.Selection.Item(1)
    End Select

    'Select a Windows folder for saving extracted attachments
    Set objShell = CreateObject("Shell.Application")
    Set objWindowsFolder = objShell.BrowseForFolder(0, "Select a folder to save Tasks' attachments:", 0, "")

    If Not objWindowsFolder Is Nothing Then
       strWindowsFolder = objWindowsFolder.self.Path & "\"

       If objTask.Attachments.Count > 0 Then

          For Each objAttachment In objTask.Attachments
              strFilePath = strWindowsFolder & objAttachment.FileName
              objAttachment.SaveAsFile strFilePath
          Next
       End If

       Shell "Explorer.exe" & " " & strWindowsFolder, vbNormalFocus
    End If
End Sub

4. ထို့နောက် VBA တည်းဖြတ်သူမှ ထွက်ပါ။
5. ထို့နောက်၊ ဤ macro ကို Quick Access Toolbar သို့မဟုတ် ribbon သို့ ထည့်ပါ။
6. နောက်ဆုံးတွင်၊ သင်ကြိုးစားနိုင်သည်။

• ပထမဦးစွာ လုပ်ဆောင်စရာတစ်ခုကို ရွေးပါ သို့မဟုတ် ဖွင့်ပါ။
• ထို့နောက် အသစ်ထည့်ထားသော မက်ခရိုခလုတ်ကို နှိပ်ပါ။
• ပေါ်လာသော ဒိုင်ယာလော့ဘောက်စ်တွင်၊ သင့်လိုအပ်ချက်အရ Windows ဖိုင်တွဲတစ်ခုကို ရွေးချယ်ပါ။
• ထို့နောက် "OK" ကိုနှိပ်ပါ။
• ဖြည်ထားသော ပူးတွဲပါဖိုင်များကို သင်တွေ့နိုင်သည့်အတွက် တစ်ချိန်တည်းတွင်၊ Windows ဖိုင်တွဲကို ပြသမည်ဖြစ်သည်။

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

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

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

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