Kung gusto mong i-print ang lahat ng mga attachment sa maramihang napiling mga email nang maramihan, maaari mong gamitin ang paraang ipinakilala sa artikulong ito. Ito ay gumagamit ng isang piraso ng VBA code upang makamit ito sa mabilis na panahon.
Tulad ng nakikita mo, kapag pumili ka ng isang attachment, mayroong isang direktang tampok na "Mabilis na Pag-print" na magagamit sa laso ng "Mga Attachment". Gayunpaman, kapag pumili ka ng higit sa isang attachment, ang "Mabilis na Pag-print" na buton ay hindi papaganahin, hindi banggitin upang i-print ang lahat ng mga attachment sa maraming napiling mga email. Samakatuwid, sa kondisyon na gusto mong i-batch print ang lahat ng mga attachment sa ilang mga mail nang sabay-sabay, kailangan mong maghanap ng iba pang mga paraan, tulad ng anumang mga tool ng third party o VBA. Nakatuon sa pangangailangang ito, dito ilalantad namin sa iyo ang isang piraso ng VBA code, na makakatulong sa iyong makuha ito sa pamamagitan lamang ng isang pag-click.
Batch Print Lahat ng Attachment sa Maramihang Email
- Sa simula pa lamang, ilunsad ang iyong aplikasyon sa Outlook.
- Pagkatapos sa pangunahing window, pindutin ang "Alt + F11" key buttons upang ma-access ang VBA editor.
- Sa kasunod na window ng "Microsoft Visual Basic for Applications", buksan ang isang walang laman na module.
- Susunod na kopyahin ang mga sumusunod na VBA code sa naturang 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
- Kasunod nito, maaari mong idagdag ang bagong macro sa Quick Access Toolbar.
- Pagkatapos noon, dapat mong itakda ang iyong Outlook macro security level sa mababa.
- Sa paglaon maaari kang magkaroon ng isang pagsubok.
- Una, sa listahan ng mail, pumili ng ilang email na ang mga attachment ay gusto mong i-print.
- Pagkatapos mag-click sa bagong pindutan ng macro sa Quick Access Toolbar.
- Susunod, ang lahat ng mga attachment sa mga napiling email ay ipi-print out.
Mag-ingat sa Mga Virus na Nakatago sa Macros
Kung na-configure mo ang iyong Outlook macro security level sa mababa, kailangan mong gumastos ng maraming pagsisikap sa pagharang sa mga potensyal na virus sa mga nakakahamak na macro. Ito ay dahil maaaring sirain ng mga virus ang iyong data sa Outlook nang sabay-sabay. Kapag sira na ang iyong data sa Outlook, susubukan mo ang iyong makakaya bawiin ang Outlook data sa lahat ng paraan, tulad ng pag-uulit sa isang makapangyarihang tool tulad ng DataNumen Outlook Repair.
Panimula ng May-akda:
Si Shirley Zhang ay isang dalubhasa sa pagbawi ng data sa DataNumen, Inc., na pinuno ng mundo sa mga teknolohiya sa pagbawi ng data, kasama ang tiwaling sql at pananaw sa pag-aayos ng mga produktong software. Para sa karagdagang impormasyon pagbisita www.datanumen. Sa