per VBA erste Seite von Emails drucken

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

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)

Hallo René,
ist auf jeden Fall eine feine Lösung.
Ich hab jetzt nochmal im Outlook die Verweise angeschaut, ursprünglich ist bei mir wirklich kein Forms drin. Nur, wenn ich, wie Du schriebst, ein Userform einfüge, ist es "plötzlich" da. Ich hab das auch noch auf einem zweiten Rechner angeschaut, ist genau so.
Ich hab noch eine andere Variante mit Late Binding ausprobiert, da geht es auch. Aber wenn sich der Schlüssel z.B. versionsbedingt oder systemseitig oder warum auch immer ändert, passt es nicht. Wobei

Dim Clipboard      As Object
'Late Binding auf Microsoft Forms 2.0 Object Library 
Set Clipboard = GetObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")

 Hoffe, geholfen zu haben. Grüße, André aus G in T  (xls 97-2013)

Beliebteste Forumthreads (12 Monate)

per VBA erste Seite von Emails drucken

17
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

per VBA erste Seite von Emails drucken

17 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

17
Beiträge zum Forumthread

Beiträge zu diesem Forumthread