Lookeen
Lookeen

MS-Outlook-2000/2 Ausgehende Mail drucken

Versendete Nachrichten und VBA

Mit dem Regel-Assistenten kann ich eine Regel erstellen, die alle eingehenden Nachrichten automatisch druckt. Leider finde ich keinen Weg, um auch ausgehende Nachrichten zu drucken. Kann man das auch automatisieren?

Wie kann ich versendete Nachrichten automatisch drucken?

Im Outlook 2000/2002 kannst Du mit Visual Basic für Applikationen viele Ereignisse automatisieren. Verwende dieses Makro. Es überwacht den Ordner Gesendete Objekte auf Veränderungen. Alle Neuheiten werden sofort gedruckt.

Die Schritte im Detail.

  • Rufe mit Alt + F11 den Visual Basic-Editor auf.
  • Klicke im Projekt-Explorer auf das kleine Plussymbol vor Projekt1. Der Zweig Microsoft Outlook Objekte wird eingeblendet.
  • Nun ein Doppelklick auf DieseOutlookSitzung.
  • Füge den unten stehenden Code ein.
					
						Dim WithEvents SentMailItems As Outlook.Items

						Private Sub Application_Quit()
						Set SentMailItems = Nothing
						End Sub

						Private Sub Application_Startup()
						Set SentMailItems = Application.GetNamespace("MAPI").GetDefaultFolder(olFolderSentMail).Items
						End Sub

						Private Sub SentMailItems_ItemAdd(ByVal Item As Object)
						Item.PrintOut
						End Sub
					
				

Projekt speichern.

  • Speichere das Projekt per Datei VbaProjekt.OTM speichern.
  • Verlasse den VB-Editor mit Datei Schließen und zurück zu Microsoft Outlook
  • Starte Outlook neu.

Ab sofort wird jede Mail, die im Ordner Gesendete Objekte hinzukommt, gedruckt.

Tipp mit freundlicher Genehmigung von Jens Hansen, OutlookStore.de veröffentlicht.