Hoe u automatisch een specifieke printer gebruikt om Outlook-e-mails af te drukken

U kunt Outlook niet configureren om een ​​specifieke niet-standaardprinter te gebruiken om e-mails af te drukken. Maar in dit artikel laten we u een methode zien om dit te bereiken met Outlook VBA.

Uw computer moet een printer als standaardprinter hebben ingesteld, die wordt toegepast op alle programma's op deze computer. Als u in dit geval e-mails wilt afdrukken via een niet-standaardprinter in Outlook, moet u de printer elke keer tijdens het afdrukken wijzigen. Het is behoorlijk lastig. Daarom zullen we u in het volgende een manier geven om automatisch een specifieke printer voor e-mails te gebruiken zonder dat u telkens van printer hoeft te wisselen.

Automatisch een specifieke printer gebruiken om e-mails af te drukken

1. Start allereerst de Outlook-applicatie.
2. Druk vervolgens in het hoofdvenster van Outlook op de toetsen "Alt + F11".
3. Vervolgens moet u in het venster "Microsoft Visual Basic for Applications" dat wordt weergegeven, eerst de "Microsoft Word-objectbibliotheek" inschakelen. U kunt dit doen door op "Extra" > "Verwijzingen" te klikken.
4. Vervolgens moet u toegang krijgen tot een lege module.
5. Kopieer en plak vervolgens de volgende VBA-code in deze module.

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. Daarna kunt u het huidige venster sluiten.
7. Ga vervolgens naar het menu "Bestand" en klik op "Opties".
8. Ga in het venster "Outlook-opties" naar het tabblad "Snelle toegangswerkbalk" en voeg de nieuwe macro zoals gewoonlijk toe aan de werkbalk Snelle toegang.
9. Uiteindelijk kunt u dit VBA-project proberen.

• Selecteer of open eerst een e-mail die u wilt afdrukken.
• Klik vervolgens op de macroknop in de werkbalk Snelle toegang.
• De e-mail wordt in één keer door de specifieke printer afgedrukt.

10. Vanaf nu kunt u deze macro gebruiken om e-mails per specifieke printer af te drukken.

Herstel Outlook na ongevalcorruptie

Om te voorkomen dat uw Outlook-gegevens verloren gaan, moet u grote inspanningen leveren. U moet bijvoorbeeld regelmatig een back-up maken van uw PST-bestand. Het is natuurlijk ook aan te raden om een ​​extern reparatieprogramma te gebruiken, zoals DataNumen Outlook Repair. Het kan repareer PST fouten en herstel maximale Outlook-gegevens voor u.

Auteur Introductie:

Shirley Zhang is een expert op het gebied van gegevensherstel in DataNumen, Inc., de wereldleider in technologieën voor gegevensherstel, waaronder herstel sql en Outlook-reparatiesoftwareproducten. Voor meer informatie bezoek www.datanumen.com