အကယ်၍ သင်သည် ရွေးချယ်ထားသော အီးမေးလ်အများအပြားတွင် ပူးတွဲပါဖိုင်အားလုံးကို ပရင့်ထုတ်လိုပါက၊ ဤဆောင်းပါးတွင် ဖော်ပြထားသည့် နည်းလမ်းကို အသုံးပြုနိုင်သည်။ ၎င်းသည် အချိန်တိုအတွင်း အောင်မြင်ရန် VBA ကုဒ်အပိုင်းကို အသုံးပြုနေသည်။
သင်တွေ့မြင်ရသည့်အတိုင်း ပူးတွဲပါဖိုင်တစ်ခုအား သင်ရွေးချယ်သောအခါတွင်၊ “Attachments” ribbon တွင် တိုက်ရိုက် “အမြန်ပုံနှိပ်ခြင်း” အင်္ဂါရပ် ရှိပါသည်။ သို့သော်၊ ပူးတွဲပါဖိုင်တစ်ခုထက်ပိုသော သင်ရွေးချယ်သောအခါ၊ ရွေးချယ်ထားသောအီးမေးလ်များစွာတွင် ပူးတွဲပါဖိုင်အားလုံးကို ပရင့်ထုတ်ရန် ဖော်ပြခြင်းမပြုဘဲ "အမြန်ပုံနှိပ်ခြင်း" ခလုတ်ကို ပိတ်သွားပါမည်။ ထို့ကြောင့်၊ သင်သည် မေးလ်များစွာတွင် ပူးတွဲပါဖိုင်အားလုံးကို တစ်ပြိုင်နက်တည်း ပုံနှိပ်ထုတ်ဝေလိုပါက၊ ပြင်ပအဖွဲ့အစည်းကိရိယာများ သို့မဟုတ် VBA ကဲ့သို့သော အခြားနည်းလမ်းများကို သင်ရှာဖွေရပါမည်။ ဤလိုအပ်ချက်ကို အာရုံစိုက်ထားပြီး၊ ဤနေရာတွင် ကျွန်ုပ်တို့သည် ကလစ်တစ်ချက်နှိပ်ရုံဖြင့် ၎င်းကိုရရန် ကူညီပေးနိုင်သည့် VBA ကုဒ်အပိုင်းအစတစ်ခုကို သင့်အား ပြသပါမည်။
အီးမေးလ်များစွာတွင် ပူးတွဲပါဖိုင်အားလုံးကို အတွဲလိုက် ပရင့်ထုတ်ပါ။
- အစပိုင်းတွင် သင်၏ Outlook အက်ပ်ကို စတင်ပါ။
- ထို့နောက် ပင်မဝင်းဒိုးတွင် VBA တည်းဖြတ်ခြင်းကို ဝင်ရောက်ရန် “Alt + F11” သော့ခလုတ်များကို နှိပ်ပါ။
- နောက်ဆက်တွဲ “Microsoft Visual Basic for Applications” ဝင်းဒိုးတွင် ဗလာ module တစ်ခုကို ဖွင့်ပါ။
- ထို့နောက် အောက်ပါ VBA ကုဒ်များကို ထိုသို့သော module တစ်ခုသို့ ကူးယူပါ။
Sub BatchPrintAllAttachmentsinMultipleEmails()
Dim objFileSystem As Object
Dim strTempFolder As String
Dim objSelection As Outlook.Selection
Dim objItem As Object
Dim objMail As Outlook.MailItem
Dim objAttachments As Outlook.attachments
Dim objAttachment As Outlook.Attachment
Dim objShell As Object
Dim objTempFolder As Object
Dim objTempFolderItem As Object
Dim strFilePath As String
Set objFileSystem = CreateObject("Scripting.FileSystemObject")
strTempFolder = objFileSystem.GetSpecialFolder(2).Path & "\Temp for Attachments " & Format(Now, "YYYY-MM-DD_hh-mm-ss")
'Create a new temp folder
MkDir (strTempFolder)
Set objSelection = Outlook.Application.ActiveExplorer.Selection
For Each objItem In objSelection
If TypeOf objItem Is MailItem Then
Set objMail = objItem
Set objAttachments = objMail.attachments
'Save all the attachments in the temp folder
For Each objAttachment In objAttachments
strFilePath = strTempFolder & "\" & objAttachment.FileName
objAttachment.SaveAsFile (strFilePath)
'Print all the files in the temp folder
Set objShell = CreateObject("Shell.Application")
Set objTempFolder = objShell.NameSpace(0)
Set objTempFolderItem = objTempFolder.ParseName(strFilePath)
objTempFolderItem.InvokeVerbEx ("print")
Next objAttachment
End If
Next
End Sub
- နောက်ပိုင်းတွင်၊ သင်သည် Quick Access Toolbar သို့ မက်ခရိုအသစ်ကို ထည့်နိုင်သည်။
- ၎င်းနောက်၊ သင်သည်သင်၏ Outlook မက်ခရိုလုံခြုံရေးအဆင့်ကိုနိမ့်အောင်သတ်မှတ်ထားသင့်သည်။
- နောက်ဆုံးမှာ သင်ကြိုးစားနိုင်မှာပါ။
- ပထမဦးစွာ၊ မေးလ်စာရင်းတွင်၊ သင်ရိုက်ထုတ်လိုသော ပူးတွဲပါဖိုင်များကို အီးမေးလ်များစွာကို ရွေးပါ။
- ထို့နောက် Quick Access Toolbar ရှိ မက်ခရိုခလုတ်အသစ်ကို နှိပ်ပါ။
- ထို့နောက် ရွေးချယ်ထားသောအီးမေးလ်များတွင် ပူးတွဲပါဖိုင်အားလုံးကို ပုံနှိပ်ထုတ်ပါမည်။
Macros တွင် ဝှက်ထားသော ဗိုင်းရပ်စ်များကို သတိထားပါ။
သင်၏ Outlook မက်ခရိုလုံခြုံရေးအဆင့်ကို နိမ့်နိမ့်အဖြစ် သတ်မှတ်ပြီးပါက၊ အန္တရာယ်ရှိသော မက်ခရိုများတွင် ဖြစ်နိုင်ချေရှိသော ဗိုင်းရပ်စ်များကို ပိတ်ဆို့ရန် အားထုတ်မှုများစွာကို သုံးစွဲရမည်ဖြစ်သည်။ ဗိုင်းရပ်စ်များသည် သင်၏ Outlook ဒေတာကို တစ်ကြိမ်တည်း ဖျက်ဆီးနိုင်သောကြောင့် ဖြစ်သည်။ သင်၏ Outlook ဒေတာ ယိုယွင်းသွားသည်နှင့် သင် အကောင်းဆုံး ကြိုးစားသွားပါမည်။ Outlook ကိုပြန်လည်ရယူပါ။ အစွမ်းထက်သောတူးလ်တစ်ခုသို့ ထပ်တလဲလဲပြုလုပ်ခြင်းကဲ့သို့သော နည်းလမ်းပေါင်းစုံဖြင့် ဒေတာ DataNumen Outlook Repair.
စာရေးသူနိဒါန်း:
Shirley Zhang သည် ဒေတာပြန်လည်ရယူရေးဆိုင်ရာ ကျွမ်းကျင်သူဖြစ်သည်။ DataNumen, Inc. အပါအဝင် ဒေတာပြန်လည်ရယူရေးနည်းပညာများတွင် ကမ္ဘာ့ခေါင်းဆောင်ဖြစ်သည်။ ပျက်ယွင်းနေသော sql နှင့် outlook ပြုပြင်ရေး software ထုတ်ကုန်များ။ ပိုမိုသိရှိလိုပါကသွားရောက်ကြည့်ရှု www ။datanumen.com