Sådan bruges automatisk en bestemt printer til at udskrive Outlook-e-mails

Outlook-løsninger September 29, 2025

Du kan ikke konfigurere Outlook til at bruge en bestemt ikke-standardprinter til at udskrive e-mails. Men i denne artikel vil vi vise dig en metode til at opnå det med Outlook VBA.

Din computer skal have indstillet en printer som standardprinter, som anvendes på alle programmer på denne computer. I dette tilfælde, hvis du vil udskrive e-mails via en ikke-standardprinter i Outlook, skal du ændre printeren hver gang du udskriver. Det er ret besværligt. Derfor vil vi i det følgende dele dig et middel til automatisk at bruge en bestemt printer til e-mails uden behov for at skifte printer hver gang.

Brug automatisk en bestemt printer til at udskrive Outlook-e-mails

Brug automatisk en bestemt printer til at udskrive e-mails

  1. Start din Outlook-applikation helt fra starten.
  2. Tryk derefter på "Alt + F11" -tasten i hovedvinduet i Outlook.
  3. Dernæst skal du aktivere "Microsoft Word-objektbibliotek" i vinduet "Microsoft Visual Basic for Applications", der vises. Du kan klikke på 'Værktøjer' > "Reference" for at opnå dette.
  4. Derefter skal du få adgang til et tomt modul.
  5. Kopier og indsæt derefter følgende VBA-kode i dette modul.
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

VBA-kode - Brug automatisk en bestemt printer til at udskrive Outlook-e-mails

  1. Derefter kan du lukke det aktuelle vindue.
  2. Gå derefter til menuen "File" og klik på "Options".
  3. I vinduet "Outlook-indstillinger" skal du skifte til "Quick Access Toolbar" -fanen og tilføje den nye makro til Quick Access Toolbar som normalt.
  4. Til sidst kan du prøve dette VBA-projekt.
  • Vælg eller åbn først en e-mail, som du vil udskrive.
  • Klik derefter på makroknappen i værktøjslinjen Hurtig adgang.
  • E-mailen udskrives straks af den specifikke printer.
  1. Fra nu af kan du bare bruge denne makro til at udskrive e-mails efter en bestemt printer.

Gendan Outlook efter ulykkeskorruption

For at forhindre tab af dine Outlook-data, skal du gøre en stor indsats. For eksempel bør du sikkerhedskopiere din PST-fil regelmæssigt. Det anbefales selvfølgelig at få fat i et eksternt reparationsværktøj, f.eks. DataNumen Outlook Repair. Det kan rette PST fejl og gendanne maksimale Outlook-data for dig.

Forfatter Introduktion:

Shirley Zhang er ekspert i datagendannelse i DataNumen, Inc., som er verdens førende inden for datagendannelsesteknologier, herunder gendanne sql og Outlook-reparationssoftwareprodukter. For mere information besøg www.datanumen.com

Kommentarer er lukket.