So drucken Sie die erste Seite wichtiger eingehender E-Mails in Ihrem Outlook automatisch

Jetzt teilen:

Einige Benutzer möchten, dass Outlook die wichtigen eingehenden E-Mails automatisch druckt. Wenn eine solche E-Mail zu lang ist, um kein Papier zu verschwenden, druckt Outlook nur die erste Seite. In diesem Artikel werden wir nun erläutern, wie dies programmgesteuert realisiert werden kann.

Das manuelle Drucken der ersten Seite einer E-Mail ist ziemlich einfach. Sie können einfach die Druckoptionen vor dem Drucken ändern. Wenn Sie jedoch hoffen, dass Outlook die Länge der E-Mail automatisch identifizieren und die erste Seite einer sehr langen E-Mail automatisch drucken kann, müssen Sie nach anderen Mitteln suchen, z. B. nach dem folgenden.

Drucken Sie automatisch die erste Seite wichtiger eingehender E-Mails in Ihrem Outlook

Drucken Sie automatisch die erste Seite wichtiger eingehender E-Mails

  1. Zunächst müssen Sie Ihre Outlook-Anwendung wie gewohnt starten.
  2. Dann müssen Sie im Outlook-Hauptfenster die Tasten „Alt + F11“ drücken.
  3. Anschließend greifen Sie erfolgreich auf den VBA-Editor zu.
  4. In diesem neuen Fenster sollten Sie ein leeres Modul öffnen, in das Sie den folgenden VBA-Code in dieses Modul kopieren sollten.
Sub PrintFirstPage_ImportantIncomingEmails(objMail As Outlook.MailItem)
    Dim objWordApp As Word.Application
    Dim objTempWordDocument As Word.Document
    Dim objMailDocument As Word.Document
    Dim lPageCount As Long
 
    objMail.Display
    Set objMailDocument = objMail.GetInspector.WordEditor
    objMailDocument.Range.Copy
    
    Set objWordApp = CreateObject("Word.Application")
    Set objTempWordDocument = objWordApp.Documents.Add
    objWordApp.Visible = True
    objTempWordDocument.Activate
 
    objTempWordDocument.Range.Paste
 
    lPageCount = objTempWordDocument.ComputeStatistics(wdStatisticPages)
 
    'If the email takes up more than one page
    If lPageCount > 1 Then
       'Only print the first page
       objTempWordDocument.PrintOut Range:=wdPrintFromTo, From:="1", To:="1"
    Else
       'Otherwise, print the whole email
       objMail.PrintOut
    End If
 
    objMail.Close olDiscard
    objMail.UnRead = True
 
    objTempWordDocument.Close False
    objWordApp.Quit
End Sub

VBA-Code - Drucken Sie automatisch die erste Seite wichtiger eingehender E-Mails

  1. Danach können Sie das aktuelle Fenster verlassen.
  2. Gehen Sie dann zum Menü "Datei" und klicken Sie auf die Schaltfläche "Regeln und Warnungen verwalten".
  3. Klicken Sie im Popup-Dialogfeld "Regeln und Warnungen" auf die Schaltfläche "Neue Regel".
  4. Wählen Sie als Nächstes im neuen Dialogfeld des "Regelassistenten" die Option "Regel auf empfangene Nachrichten anwenden" und klicken Sie auf "Weiter".
  5. Im zweiten Bildschirm des „Regel-Assistenten“ sollten Sie die Bedingungen festlegen, nämlich definieren, welche E-Mails für Sie wichtig sind, z. B. von bestimmten Absendern usw.
  6. Klicken Sie anschließend auf "Weiter", um zum nächsten Bildschirm zu gelangen, in dem Sie die Regelaktion festlegen müssen. Wählen Sie "Skript ausführen" und wählen Sie das zuvor hinzugefügte Makro.Wählen Sie die Regelaktion "Skript ausführen"
  7. Klicken Sie später auf mehrere "Weiter", bis der letzte Bildschirm "Regeleinrichtung beenden" angezeigt wird, in dem Sie einen Namen für diese Regel angeben und die Regeleinstellung erneut überprüfen können.
  8. Klicken Sie zuletzt auf "Fertig stellen", um diese neue Regel zu speichern.
  9. Seitdem druckt Outlook jedes Mal, wenn eine neue wichtige eingehende E-Mail in Ihr Postfach gelangt, die erste Seite automatisch, wenn sie zu lang ist.

Extrahieren Sie maximale Daten aus beschädigten PST-Dateien

Vielleicht haben Sie die Sicherheitslücke von Outlook erkannt. Unter diesen Umständen dürfen Sie nichts unversucht lassen, um Ihre Outlook-Daten zu schützen. Meistens werden Sie jedoch feststellen, dass Outlook-Daten einfach aufgrund eines plötzlichen Herunterfahrens beschädigt werden können. Sie müssen sich also auf Unerwartetes vorbereiten Outlook-Korruption, einschließlich regelmäßiger PST-Backups und eines leistungsstarken Fix-Tools wie DataNumen Outlook Repair.

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

Jetzt teilen:

Kommentare sind geschlossen.