Outlook 2007 nur 1 Seite drucken

Hallo,

ich habe das gleiche Problem wie Angie. Es geht mir mittlerweile schon sehr auf die Nerven, dass es dazu wohl auch kein Update geht. Leider schreibt Angie nicht, ob sie das Problem beheben konnte. Außerdem scheint der Link nur für das Problem \“wird der E-mail-Nachrichtenkopf nicht gedruckt\“ zu gelten und es wird ausdrücklich gesagt, dass das Problem nicht bei Outlook 2007 besteht. Bei unserem Anliegen besteht aber gerade in Outlook 2007 das Problem!!!
Von Microsoft wird als Lösungsvorschlag gegeben: E-Mail in Word kopieren und dann drucken oder in PDF umwandeln!!! Das kann es ja wohl auch nicht sein!
Es gibt sicherlich eine Möglichkeit dies in VBA zu programmieren und ein extra Button dafür zu konfigurieren. Habe so etwas auch schon in anderen Foren gelesen. Leider habe ich keinerlei Ahnung von VBA und weiß nicht wie ich so etwas anfangen soll.

Kann mir da jemand ne Anleitung geben, wie man so etwas in VBA programmiert und da anfängt?
So etwas habe ich gefunden, brauche aber mehr Erläuterung dazu:

Sub PrintFirstPage()

\’===============================================================================
\‘ Druckt die erste Seite der geöffneten Mail auf dem festeingestellten Drucker
\‘ \“PRINTER_NAME\“ aus. Getestet mit Outlook 2003
\’===============================================================================
\‘ Erstellt: 2006-03-26
\‘ Autor: Peter Marchert
\‘ Firma: EDV-Service Marchert
\‘ Internet: http://www.marchert.de
\‘ zur kostenlosen Verwendung – Benutzung auf eigene Gefahr
\‘——————————————————————————-

\‘ Bitte den Namen des Druckers angeben, auf dem ausgedruckt werden soll.
\‘ Die Anfangsbuchstaben genügen, sofern nicht mehrere gleichnamige Drucker
\‘ installiert sind, Groß- Kleinschreibung ist egal.
\‘ Beispiel: Druckername = \“Oki 5400 (PCL)\“ => \“oki\“.
Const PRINTER_NAME As String = \“oki\“

\‘——————————————————————————-
\‘ Format auf HTML umstellen?
\‘——————————————————————————-
If ActiveInspector.CurrentItem.BodyFormat <> olFormatHTML Then
SendKeys \“%bb\“
SendKeys \“%th\“
Sleep 1000
End If

\‘——————————————————————————-
\‘ Druckermenü aufrufen (Datei, Drucken)
\‘——————————————————————————-
SendKeys \“%dd\“: Sleep 1000

\‘——————————————————————————-
\‘ Drucker auswählen
\‘——————————————————————————-
SendKeys PRINTER_NAME

\‘——————————————————————————-
\‘ 1. Seite auswählen
\‘——————————————————————————-
SendKeys \“%s\“

\‘——————————————————————————-
\‘ Ausdrucken
\‘——————————————————————————-
SendKeys \“{ENTER}\“

\‘——————————————————————————-
\‘ Druckmenü wieder schliessen
\‘——————————————————————————-
SendKeys \“{ESC}\“

\‘——————————————————————————-
\‘ Mail ohne zu speichern schliessen
\‘——————————————————————————-
ActiveInspector.CurrentItem.Close olDiscard

End Sub

Vielen Dank im Voraus.

Anke

Hallo!
Leider konnte ich das Problem noch immer nicht lösen! 🙁
Habe auch keine grosse Lust weiter nach der Lösung zu suchen!
Habe mich halt damit abgefunden und ärgere mich jedes Mal wieder darüber! 😡
Grüsse
Angie

http://www.outlook-stuff.com/content/view/32/25/lang,de/
=> hier steht, wie eine seiner Lösungen angewendet wird!
Eine Anerkennung dem Autoren gegenüber wäre ihm übrigens nett