OLKeeper | |
Der OLKeeper verhindert zuverlässig, dass Sie Microsoft Outlook unbeabsichtigt schlieÃen und so etwa wichtige Emails verpassen würden. |
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.)
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
Reporter | |
Mit dem Reporter erstellen Sie Berichte für Ihre Outlook Daten. Mit wenigen Klicks werden Werte aus Aufgaben, Terminen und dem Journal summiert. |
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
SAM | |
Legen Sie fest, mit welcher "Identität" Ihre Emails beim Empfänger erscheinen sollen. Mit SAM bestimmen Sie den Absender und Speicherort für Emails anhand von Regeln. |