Erste Seite einer Email drucken

Erste Seite drucken

Das MailItem-Objekt aus Outlook kennt nur eine PrintOut-Funktion, mit der die ganze Email gedruckt wird. Es können keine Einstellungen vorgenommen werden, um z.B. nur eine bestimmte Seite zu drucken. Seit Outlook 2007 steht für Emails aber die sehr mächtige Bibliothek aus Word zur Verfügung, mit sehr einfach einzelne Seiten angesprochen werden können. Es ist zwar nicht möglich, eine Email direkt über Word auszudrucken, Sie können aber einfach den zu druckenden Inhalt in ein neues Word-Dokument kopieren und das dann ausdrucken.

Dieses Beispiel kopiert den kompletten Inhalt einer Email in ein neues Word-Dokument und druckt dann davon Seite 1 aus. Im Beispiel wird die erste Email, die im aktuellen Ordner ausgewählt ist, kopiert. Sie können die Funktion 'PrintFirstPage' aber auch aus einer Regel heraus aufrufen und so z.B. neue Emails, die bestimmte Kritieren erfüllen, automatisch drucken.

(Fügen Sie über Extras/Verweise einen Verweis auf die 'Microsoft Word x.0 Object Library' hinzu.)

  So fügen Sie Makros in Outlook ein

Public Sub TestPrintFirstPage()
  Dim Mail As Outlook.MailItem
  Set Mail = Application.ActiveExplorer.Selection(1)
  PrintFirstPage Mail
End Sub

Public Sub PrintFirstPage(Mail As Outlook.MailItem)
  Dim wdApp As Word.Application
  Dim wdDoc As Word.Document
  Dim olDoc As Word.Document
  
  Set wdApp = CreateObject("Word.Application")
  Set wdDoc = wdApp.Documents.Add(Visible:=True)
  
  Set olDoc = Mail.GetInspector.WordEditor
  olDoc.Range.copy
  wdDoc.Range.Paste
  
  wdDoc.PrintOut Range:=wdPrintFromTo, From:="1", To:="1"
  
  DoEvents
  wdDoc.Close False
  wdApp.Quit
End Sub

Markierten Text drucken

Dieses Beispiel druckt den in einer geöffneten Email markierten Text.

Public Sub PrintSelection()
  Dim wdApp As Word.Application
  Dim wdDoc As Word.Document
  Dim wdSelection As Word.Selection
  Dim wdWin As Word.Window
  Dim olDoc As Word.Document
  
  Set wdApp = CreateObject("Word.Application")
  Set wdDoc = wdApp.Documents.Add(Visible:=True)
  
  Set olDoc = Application.ActiveInspector.WordEditor
  Set wdWin = olDoc.Windows(1)
  Set wdSelection = wdWin.Selection
  wdSelection.Range.copy
  wdDoc.Range.Paste
  
  wdDoc.PrintOut
  
  DoEvents
  wdDoc.Close False
  wdApp.Quit
End Sub