Mail-Ausdruck über Makro - Gesamtseitenzahl falsch

[Niniju-san]

Hallo liebe Office-Experten, 

Ich fange mal mit dem Klassiker an, dass ich natürlich schon gesucht habe, jedoch keine Lösung gefunden habe. Ich hoffe, dass mir jetzt nicht der erste direkt da was anderes serviert.

ich stehe vor folgendem Problem:

Ich habe mir für Outlook ein Makro aus den Weiten des Internets geholt, mit dessen Hilfe ich gesendete E-Mails mit einer kurzen Abfrage Drucken kann. Klappt von Seiten des Makros auch wunderbar. Nur der Ausdruck enthält dann bei der Seitenangabe in der Fußzeile "1 von 0", "2 von 0" u.s.w. Sprich der Wert für Gesamtzahl der Seiten wird nicht "erzeugt" oder "mitgegeben". Über den manuellen Weg ist die Angabe dagegen korekt.
Gibt es da irgendwo eine Einstellung die angepasst werden muss oder müsste da noch etwas ins Makro? Outlook und VBA scheint ja im Gegensatz zu Word und Excel auch nicht ganz so intensiv behandelt zu werden.

Das Makro lautet übrigens:

Code:

Public WithEvents myOlItemSend As Outlook.Items

Public Sub Application_startup()

Set myOlItemSend = Application.GetNamespace("MAPI").GetDefaultFolder(olFolderSentMail).Items

End Sub

Private Sub myOlItemSend_ItemAdd(ByVal Item As Object)

If MsgBox("Soll die E-Mail gedruckt werden?", vbYesNo, "Drucken?") = vbYes Then
    Item.PrintOut
End If

End Sub