Եթե ցանկանում եք տպել բոլոր կցորդները մի քանի ընտրված էլ-նամակներում զանգվածաբար, կարող եք օգտագործել այս հոդվածում ներկայացված մեթոդը: Այն օգտագործում է VBA կոդի մի կտոր՝ արագ ժամանակին հասնելու համար:
Ինչպես տեսնում եք, երբ ընտրում եք մեկ հավելված, «Կցորդներ» ժապավենում առկա է ուղղակի «Արագ տպագրություն» գործառույթը: Այնուամենայնիվ, երբ ընտրում եք մեկից ավելի կցորդ, «Արագ տպում» կոճակը կանջատվի, էլ չեմ խոսում բոլոր կցորդները շատ ընտրված նամակներում տպելու մասին: Հետևաբար, պայմանով, որ դուք ցանկանում եք խմբաքանակով տպել բոլոր կցորդները մի քանի նամակներով, դուք պետք է փնտրեք այլ ուղիներ, օրինակ՝ երրորդ կողմի ցանկացած գործիք կամ VBA: Այս անհրաժեշտության վրա կենտրոնացած՝ այստեղ մենք ձեզ կներկայացնենք VBA կոդի մի հատված, որը կարող է օգնել ձեզ ստանալ այն պարզապես մեկ սեղմումով:
Փաթեթային տպել բոլոր կցորդները բազմաթիվ էլ
- Հենց սկզբից գործարկեք ձեր Outlook հավելվածը:
- Այնուհետև հիմնական պատուհանում սեղմեք «Alt + F11» կոճակները՝ VBA խմբագրիչին մուտք գործելու համար:
- Հաջորդ «Microsoft Visual Basic հավելվածների համար» պատուհանում բացեք դատարկ մոդուլը:
- Հաջորդը պատճենեք հետևյալ VBA կոդերը նման մոդուլի մեջ:
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
- Այնուհետև կարող եք նոր մակրո ավելացնել Արագ մուտքի Գործիքադարակի մեջ:
- Դրանից հետո դուք պետք է սահմանեք ձեր Outlook մակրո անվտանգության մակարդակը ցածր:
- Ի վերջո կարող եք փորձել:
- Նախ, փոստային ցուցակում ընտրեք մի քանի նամակներ, որոնց հավելվածները ցանկանում եք տպել:
- Դրանից հետո կտտացրեք Արագ մատչելիության Գործիքադարակի նոր մակրո կոճակին:
- Հաջորդը, ընտրված նամակների բոլոր հավելվածները կտպվեն:
Զգուշացեք մակրոներում թաքնված վիրուսներից
Եթե դուք կարգավորել եք ձեր Outlook մակրո անվտանգության մակարդակը ցածր մակարդակի վրա, դուք պետք է շատ ջանք գործադրեք՝ արգելափակելու պոտենցիալ վիրուսները վնասակար մակրոներում: Դա պայմանավորված է նրանով, որ վիրուսները կարող են միանգամից ոչնչացնել ձեր Outlook-ի տվյալները: Երբ ձեր Outlook-ի տվյալները կոռումպացված լինեն, դուք կփորձեք ամեն ինչ անել վերականգնել Outlook- ը տվյալներ բոլոր միջոցներով, օրինակ՝ կրկնվող այնպիսի հզոր գործիքի, ինչպիսին է DataNumen Outlook Repair.
Հեղինակի ներածություն.
Shirley Zhang- ը տվյալների վերականգման փորձագետ է DataNumen, Inc., որը տվյալների վերականգման տեխնոլոգիաների համաշխարհային առաջատարն է, այդ թվում կոռումպացված sql և հեռանկարների նորոգման ծրագրակազմի արտադրանքները: Լրացուցիչ տեղեկությունների համար այցելեք www.datanumen.com