Ինչպես ավտոմատ օգտագործել հատուկ տպիչ Outlook-ի էլ. նամակները տպելու համար

Դուք չեք կարող կարգավորել Outlook-ը, որպեսզի օգտագործի հատուկ ոչ լռելյայն տպիչ՝ նամակներ տպելու համար: Բայց այս հոդվածում մենք ձեզ ցույց կտանք Outlook VBA-ով դրան հասնելու մեթոդ:

Ձեր համակարգիչը պետք է ունենա տպիչ որպես լռելյայն, որը կկիրառվի այս համակարգչի բոլոր ծրագրերի վրա: Այս դեպքում, եթե ցանկանում եք նամակներ տպել Outlook-ում ոչ լռելյայն տպիչի միջոցով, տպելիս ամեն անգամ պետք է փոխեք տպիչը: Դա բավականին անհանգիստ է։ Հետևաբար, ստորև մենք ձեզ կկիսվենք էլեկտրոնային նամակների համար հատուկ տպիչ ավտոմատ օգտագործելու միջոցով՝ առանց ամեն անգամ տպիչը փոխելու անհրաժեշտության:

Նամակներ տպելու համար ավտոմատ օգտագործեք հատուկ տպիչ

1. Սկզբում գործարկեք ձեր Outlook ծրագիրը։
2. Դրանից հետո Outlook- ի հիմնական պատուհանում սեղմեք «Alt + F11» ստեղնաշարի կոճակները:
3. Հաջորդը, «Microsoft Visual Basic for Applications» պատուհանում, որը երևում է, նախ պետք է միացնեք «Microsoft Word օբյեկտների գրադարանը»։ Կարող եք սեղմել «Գործիքներ» > «Հղում»՝ դա անելու համար։
4. Այնուհետև դուք պետք է մուտք գործեք դատարկ մոդուլ:
5. Դրանից հետո պատճենեք և տեղադրեք հետևյալ VBA կոդը այս մոդուլում:

Sub PrintEmail()
    Dim objItem As Object
    Dim objMail As Outlook.MailItem
    Dim objWordApp As Word.Application
    Dim strTempFolder As String
    Dim strMailDocument As String
    Dim objMailDocument As Word.Document
    Dim strPrinter As String

    Select Case Application.ActiveWindow.Class
           Case olInspector
                Set objItem = ActiveInspector.CurrentItem
           Case olExplorer
                Set objItem = ActiveExplorer.Selection.Item(1)
    End Select
 
    If TypeOf objItem Is MailItem Then
       Set objMail = objItem
 
       Set objWordApp = CreateObject("Word.Application")
       strTempFolder = CStr(Environ("USERPROFILE")) & "\AppData\Local\Temp"
       strMailDocument = strTempFolder & "\" & Format(Now, "yyyymmddssnn") & ".doc"
       objMail.SaveAs strMailDocument, olDoc
 
       Set objMailDocument = objWordApp.Documents.Open(strMailDocument)
       objWordApp.Visible = True
       objMailDocument.Activate
 
       strPrinter = objWordApp.ActivePrinter
       'Change to the name of specific printer
       objWordApp.ActivePrinter = "Specific Printer"
       objWordApp.PrintOut Range:=wdPrintAllDocument, Item:=wdPrintDocumentContent
       objWordApp.ActivePrinter = strPrinter
 
       objMailDocument.Close False
       objWordApp.Quit
       Kill strMailDocument
    End If
End Sub

6. Դրանից հետո կարող եք փակել ընթացիկ պատուհանը:
7. Դրանից հետո անցեք «Ֆայլ» ընտրացանկին և կտտացրեք «Ընտրանքներ» կետին:
8. «Outlook Options» պատուհանում անցեք «Արագ մուտքի Գործիքադարակի» ներդիրին և սովորականի պես ավելացրեք նոր մակրո Արագ մուտքի Գործիքադարակի մեջ:
9. Ի վերջո, դուք կարող եք փորձել այս VBA նախագիծը:

• Նախ ընտրեք կամ բացեք նամակ, որը ցանկանում եք տպել:
• Դրանից հետո կտտացրեք մակրո կոճակին Արագ մուտքի գործիքագոտում:
• Նամակը միանգամից կտպվի կոնկրետ տպիչի կողմից:

10. Այսուհետ էլ-նամակները կոնկրետ տպիչով տպելու համար կարող եք պարզապես օգտագործել այս մակրոները:

Վերականգնել Outlook հետո վթարի կոռուպցիայի

Ձեր Outlook տվյալների կորուստը կանխելու համար դուք պետք է մեծ ջանքեր գործադրեք: Օրինակ, դուք պետք է պարբերաբար պահուստավորեք ձեր PST ֆայլը: Իհարկե, խորհուրդ է տրվում ձեռք բերել արտաքին վերականգնման գործիք, ինչպիսին է DataNumen Outlook Repair. Դա կարող է շտկել PST- ն սխալներ և վերականգնեք Outlook-ի առավելագույն տվյալները ձեզ համար:

Հեղինակի ներածություն.

Shirley Zhang- ը տվյալների վերականգման փորձագետ է DataNumen, Inc., որը տվյալների վերականգման տեխնոլոգիաների համաշխարհային առաջատարն է, այդ թվում վերականգնել sql և հեռանկարների նորոգման ծրագրակազմի արտադրանքները: Լրացուցիչ տեղեկությունների համար այցելեք www.datanumen.com