Jak automaticky používat konkrétní tiskárnu k tisku e-mailů aplikace Outlook

Nelze nakonfigurovat aplikaci Outlook tak, aby k tisku e-mailů používala jinou než výchozí tiskárnu. Ale v tomto článku vám ukážeme způsob, jak toho dosáhnout pomocí Outlook VBA.

Váš počítač musí mít nastavenu výchozí tiskárnu, která bude použita pro všechny programy v tomto počítači. V tomto případě, pokud chcete tisknout e-maily prostřednictvím jiné než výchozí tiskárny v aplikaci Outlook, musíte tiskárnu při každém tisku změnit. Je to docela problematické. Proto vám v následujících bodech sdílíme prostředky pro automatické použití konkrétní tiskárny pro e-maily, aniž byste ji museli pokaždé měnit.

Automaticky k tisku e-mailů použijte konkrétní tiskárnu

1. Na samém začátku spusťte aplikaci Outlook.
2. Poté v hlavním okně Outlooku stiskněte klávesy „Alt + F11“.
3. Dále v zobrazeném okně „Microsoft Visual Basic for Applications“ musíte nejprve povolit „Knihovnu objektů Microsoft Word“. Toho dosáhnete kliknutím na „Nástroje“ > „Odkazy“.
4. Poté musíte přistupovat k prázdnému modulu.
5. Následně zkopírujte a vložte následující kód VBA do tohoto 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. Poté můžete zavřít aktuální okno.
7. Poté přejděte do nabídky „Soubor“ a klikněte na „Možnosti“.
8. V okně „Možnosti aplikace Outlook“ přejděte na kartu „Panel nástrojů Rychlý přístup“ a přidejte nové makro na panel nástrojů Rychlý přístup jako obvykle.
9. Nakonec můžete tento projekt VBA vyzkoušet.

• Nejprve vyberte nebo otevřete e-mail, který chcete vytisknout.
• Poté klikněte na tlačítko makra na panelu nástrojů Rychlý přístup.
• E-mail bude vytištěn konkrétní tiskárnou najednou.

10. Od této chvíle můžete pro tisk e-mailů na konkrétní tiskárně použít toto makro.

Obnovte Outlook po nehodě

Abyste zabránili ztrátě dat z Outlooku, musíte vynaložit velké úsilí. Například byste měli pravidelně zálohovat soubor PST. Samozřejmě se doporučuje pořídit si externí nástroj pro opravu, jako například DataNumen Outlook Repair. To může opravit PST chyby a obnovit maximum dat aplikace Outlook.

Úvod autora:

Shirley Zhang je expertem na obnovu dat DataNumen, Inc., která je světovým lídrem v oblasti technologií pro obnovu dat, včetně obnovit sql a výhledové softwarové produkty pro opravy. Pro více informací navštivte www.datanumen.com