Screenshot.Export
16.04.2009 12:53:15
Horst
Folgendes Problem: Von einer MsgBox soll ein Screenshot produziert werden Untenstehende Prozedur (Application.Run ...) gibt eine MsgBox aus, von der automatisiert ein Screenshot per Outlook 03 versendet werden soll. Irgendwie krieg' ich das mit dem Screenshot nicht ganz auf die Reihe. Vielleicht hat jemand eine Idee.
Sub Screenshot()
Dim olApp As Object
Dim WsShell
Application.Run "Mappe1!Makro1"
Set olApp = CreateObject("Outlook.Application")
With olApp.CreateItem(0)
.To = "empfänger@server.de"
.CC = ""
.BCC = ""
.Subject = "test"
.htmlBody = "
Test"
.display
End With
Set WsShell = CreateObject("WScript.Shell")
WsShell.AppActivate olApp
WsShell.SendKeys ("%+^{PRTSC}")
WsShell.SendKeys ("^v")
Set WsShell = Nothing
Set olApp = Nothing
End Sub