ich habe ein Problem bei dem ich nicht mehr weiterweiss und euch um eure Hilfe ersuche, da ich bei der Recherche keine Lösung gefunden habe...
Ich starte mittels Makro ein ext. Programm und möchte es am Ende des Makros wieder automatisch stoppen. Habe bei der Shell-Hilfe nur Lösungen zum Starten beim Beenden leider nur über Windows-Applikationen...
Hat jemand von euch einen Tipp oder Idee??
Anbei der bisherige Code...
Vorab vielen Dank und LG
Andreas
Sub SomeProc()
Dim wnd As Long
Dim uClickYes As Long
Dim Res As Long
sAppName = "Express CLICKYES"
sAppPath = "C:\Programme\clickyes.exe"
'start an application
Shell sAppPath, vbMinimizedFocus
' Register a message to send
uClickYes = RegisterWindowMessage("CLICKYES_SUSPEND_RESUME")
' Find ClickYes Window by classname
wnd = FindWindow("EXCLICKYES_WND", 0&)
' Send the message to Resume ClickYes
Res = SendMessage(wnd, uClickYes, 1, 0)
Shell "C:\Programme\Outlook Express\msimn.exe"
ActiveWorkbook.SendMail Recipients:= _
"andreas.liker@chello.at", _
Subject:="test!", ReturnReceipt:=True
' ...
' Do some Actions
' ...
' Send the message to Suspend ClickYes
'Res = SendMessage(wnd, uClickYes, 0, 0)
End Sub