Ako automaticky použiť konkrétnu tlačiareň na tlač e-mailov programu Outlook

Outlook nemôžete nakonfigurovať tak, aby používal na tlač e-mailov konkrétnu tlačiareň, ktorá nie je predvolená. V tomto článku vám však ukážeme spôsob, ako to dosiahnuť pomocou programu Outlook VBA.

Váš počítač musí mať nastavenú tlačiareň ako predvolenú, ktorá sa použije pre všetky programy v tomto počítači. V tomto prípade, ak chcete tlačiť e-maily prostredníctvom inej ako predvolenej tlačiarne v programe Outlook, musíte tlačiareň zmeniť pri každej tlači. Je to dosť problematické. Preto vám v nasledujúcom texte prezradíme spôsob automatického používania konkrétnej tlačiarne pre e-maily bez potreby zakaždým meniť tlačiareň.

Automaticky Na tlač e-mailov použite konkrétnu tlačiareň

1. Na samom začiatku spustite aplikáciu Outlook.
2. Potom v hlavnom okne programu Outlook stlačte klávesové skratky „Alt + F11“.
3. Ďalej v zobrazenom okne „Microsoft Visual Basic for Applications“ musíte najprv povoliť „Knižnicu objektov programu Microsoft Word“. Kliknite na „Nástroje“ > „Odkazy“.
4. Potom musíte získať prístup k prázdnemu modulu.
5. Následne skopírujte a prilepte nasledujúci kód VBA do tohto modulu.

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. Potom môžete zavrieť aktuálne okno.
7. Potom choďte do ponuky „Súbor“ a kliknite na „Možnosti“.
8. V okne „Možnosti programu Outlook“ prejdite na kartu „Panel s nástrojmi Rýchly prístup“ a pridajte nové makro na panel s nástrojmi Rýchly prístup ako zvyčajne.
9. Nakoniec môžete vyskúšať tento projekt VBA.

• Najprv vyberte alebo otvorte e-mail, ktorý chcete vytlačiť.
• Potom kliknite na tlačidlo makra na paneli s nástrojmi Rýchly prístup.
• E-mail vytlačí konkrétna tlačiareň naraz.

10. Odteraz na tlač e-mailov na konkrétnej tlačiarni stačí použiť toto makro.

Obnovte Outlook po havárii

Aby ste zabránili strate údajov z programu Outlook, musíte vynaložiť veľké úsilie. Napríklad by ste mali pravidelne zálohovať súbor PST. Samozrejme, odporúča sa zaobstarať si externý nástroj na opravu, ako napríklad DataNumen Outlook Repair, Môže opraviť PST chyby a obnoviť maximum údajov programu Outlook za vás.

Úvod autora:

Shirley Zhang je expertkou na obnovu dát v DataNumen, Inc., ktorá je svetovým lídrom v oblasti technológií obnovy dát, vrátane obnoviť sql a výhľadové softvérové ​​produkty na opravu. Pre viac informácií navštívte www.datanumen. S