Nachfolgendes Bastelergebnis tut in meinem Outlook 2007, was die Überschrift sagt, nämlich eine fertig verfasste E-Mail abschicken und anschließend aus dem Ordner Gesendete Objekte heraus mit einem bestimmten Drucker (der auf den Anfangsbuchstaben "k" hört) ausdrucken (genauer gesagt: es wird die zuletzt gesendete Nachricht gedruckt).

Die besseren Zeilen in dem Machwerk stammen aus einem Skript von Rüdiger Wilke (natürlich), die schlechteren lassen sich bestimmt verbessern (feel free)...


Sub Main
Dim myNamespace As Outlook.NameSpace
Dim myExp As Outlook.Explorer

SendKeys "%s",1
Wait .2
SendKeys "{F9}",1

Set myNamespace = Application.GetNamespace("MAPI")
Set myExp = Application.ActiveExplorer
Set myExp.CurrentFolder = myNamespace.GetDefaultFolder(olFolderSentMail)

Wait .5
SendKeys "^{Home}",1
SendKeys "^p",1
SendKeys "%N",1
SendKeys "k",1
SendKeys "{Enter}",1

Set myExp = Nothing
Set myNamespace = Nothing

'Beste Grüße, Marius Raabe
End Sub

Prof. Marius - Gratulation noch mal an dieser Stelle dazu -,

das ist kaum noch zu verbessern, zumindest nicht mit verhältnismaßigem Aufwand. Das Komplizierte, da ohne Objekt-Zugriff nicht zu bewerkstelligen (der Wechsel des Ordners) ist ja schon erledigt, den Rest kann man dann genau so gut mit SendKeys machen, wie ausgeführt. Auch wenn man es noch vertiefen könnte, würde ich es so lassen.

Gruß, Rüdiger