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.
VbaProjekt.OTM
speichern.