Sie können Outlook nicht so konfigurieren, dass zum Drucken von E-Mails ein bestimmter nicht standardmäßiger Drucker verwendet wird. In diesem Artikel zeigen wir Ihnen jedoch eine Methode, um dies mit Outlook VBA zu erreichen.
Ihr Computer muss einen Standarddrucker festgelegt haben, der auf alle Programme auf diesem Computer angewendet wird. In diesem Fall müssen Sie den Drucker jedes Mal beim Drucken wechseln, wenn Sie E-Mails über einen nicht standardmäßigen Drucker in Outlook drucken möchten. Es ist ziemlich mühsam. Aus diesem Grund geben wir Ihnen im Folgenden die Möglichkeit, einen bestimmten Drucker automatisch für E-Mails zu verwenden, ohne den Drucker jedes Mal wechseln zu müssen.
Automatische Verwendung eines bestimmten Druckers zum Drucken von E-Mails
- Gleich zu Beginn start Ihre Outlook-Anwendung.
- Drücken Sie dann im Outlook-Hauptfenster die Tasten „Alt + F11“.
- Als Nächstes müssen Sie im angezeigten Fenster "Microsoft Visual Basic für Applikationen" zunächst "Microsoft Word object Lib" aktivierenrary ”. Sie können auf "Extras"> "Referenz" klicken, um dies zu erreichen.
- Dann müssen Sie auf ein leeres Modul zugreifen.
- Kopieren Sie anschließend den folgenden VBA-Code und fügen Sie ihn in dieses Modul ein.
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
- Danach können Sie das aktuelle Fenster schließen.
- Gehen Sie dann zum Menü "Datei" und klicken Sie auf "Optionen".
- Wechseln Sie im Fenster "Outlook-Optionen" zur Registerkarte "Symbolleiste für den Schnellzugriff" und fügen Sie das neue Makro wie gewohnt zur Symbolleiste für den Schnellzugriff hinzu.
- Schließlich können Sie dieses VBA-Projekt ausprobieren.
- Wählen Sie zunächst eine E-Mail aus oder öffnen Sie sie, die Sie drucken möchten.
- Klicken Sie dann in der Symbolleiste für den Schnellzugriff auf die Makroschaltfläche.
- Die E-Mail wird sofort vom jeweiligen Drucker ausgedruckt.
- Um E-Mails mit einem bestimmten Drucker zu drucken, können Sie von nun an nur noch dieses Makro verwenden.
Stellen Sie Outlook nach einer Unfallkorruption wieder her
Um zu verhindern, dass Ihre Outlook-Daten l sindostSie müssen große Anstrengungen unternehmen. Beispielsweise sollten Sie Ihre PST-Datei regelmäßig sichern. Natürlich wird empfohlen, ein externes Reparaturwerkzeug wie z DataNumen Outlook Repair. Es kann PST beheben Fehler und stellen Sie die maximalen Outlook-Daten für Sie wieder her.
Einführung des Autors:
Shirley Zhang ist eine Datenrettungsexpertin in DataNumen, Inc., das weltweit führend bei Datenwiederherstellungstechnologien ist, einschließlich SQL wiederherstellen und Outlook-Reparatursoftwareprodukte. Für weitere Informationen besuchen Sie www.datanumen.com €XNUMX