AW: per VBA erste Seite von Emails drucken
25.05.2013 17:51:29
Emails
Hallo,
also, wenn ich mir den Beitrag durchlese, finde ich dort und verlinkt nach anderswo VBA-Codes.
Kompliziert ist das im ersten Ansatz auch nicht. Der code läuft letztendlich und auf 2010 angepasst auf eine codezeile hinaus:
SendKeys "%(D)(U)(D)%(S)( )(1)%(C)", True
Kompliziert wird es erst dadurch, dass der code unter 2010 nicht korrekt läuft. Ursache ist wohl. dass er z.B. über den Ribbon der Entwicklertools aufgerufen wird und schon der kleinste Ruckler an der Maus beim loslassen dan Ablauf stört. Vorteilhaft bei den SendKeys ist aus meiner Erfahrung die Ausführung des codes in einem gesonderten Makro nach kurzer Zeit mit Application.Ontime. Das gibt es allerdings in Outlook nicht.
Ich habe hier mal was mit API's zusammengeschustert, siehe dazu die Seite http://www.cpearson.com/excel/OnTime.aspx
. Voraussetzung ist natürlich das HTML-Format der Nachricht. Als Textnachricht gibt's die Seitenauswahl beim Drucken nicht.
Option Explicit
Public Declare Function SetTimer Lib "user32" ( _
ByVal HWnd As Long, _
ByVal nIDEvent As Long, _
ByVal uElapse As Long, _
ByVal lpTimerFunc As Long) As Long
Public Declare Function KillTimer Lib "user32" ( _
ByVal HWnd As Long, _
ByVal nIDEvent As Long) As Long
Public TimerID As Long
Public TimerSeconds As Single
Sub StartTimer()
TimerSeconds = 1
TimerID = SetTimer(0&, 0&, TimerSeconds * 1000&, AddressOf TimerProc)
End Sub
Sub EndTimer()
On Error Resume Next
KillTimer 0&, TimerID
End Sub
Sub TimerProc(ByVal HWnd As Long, ByVal uMsg As Long, _
ByVal nIDEvent As Long, ByVal dwTimer As Long)
SendKeys "%(D)(U)(D)%(S)( )(1)%(C)", True
EndTimer
End Sub
Hoffe, geholfen zu haben. Grüße, André aus G in T (xls 97-2013)