MsgBox soll nach 10sec. verschwinden
09.08.2004 09:38:27
Klaus
hat jemand eine Idee wie ich einen Hinweis in Form einer MsgBox
nach wenigen Sekunden verschwinden lassen kann?
Mit folgendem Code frage ich alle 60 sec. eMail's ab:
Public Const gsMacro As String = "Import.Import"
Public gdNextTime As Double
Sub StartEmail()
Dim iIntervall As Integer
iIntervall = 60
gdNextTime = Now + TimeSerial(0, 0, iIntervall)
Application.OnTime earliesttime:=gdNextTime, _
procedure:=gsMacro, schedule:=True
End Sub
Sub StopEmail()
On Error Resume Next
Application.OnTime earliesttime:=gdNextTime, _
procedure:=gsMacro, schedule:=False
Dim WsShell
Dim intText As Integer
Set WsShell = CreateObject("WScript.Shell")
intText = WsShell.popup("Automatik ist ausgeschaltet.", _
3, "Popup " & Application.UserName & " von KK")
End Sub
Da aber hin und wieder weitere Codes laufen, muss die Zeitsteuerung
unterbrochen werden. Das Popupfenster soll dann auf jedenfall erscheinen
aber nach 3-4 Sekunden automatisch verschwinden, damit der restliche
Code weiterlaufen kann.
Besten Dank und Grüsse
Klaus