Sub ZeitMsgbox()
Dim WsShell, Rück%
Set WsShell = CreateObject("WScript.Shell")
Rück = WsShell.Popup("Dieser Text verschwindet selbst !!!", 5 _
, "Überschrift ...")
' Die 5 in der letzten Zeile gibt die Dauer der Öffnung an.
' Rück ist -1 wenn keine Taste gedrückt wurde
' Rück ist 1 wenn OK gedrückt wurde
End Sub

Hallo,

beigefügter Code funktioniert in VBA-Excel. In VBA-Outlook bleibt das Fenster stehen und verschwindet nicht wieder. Kann mir das jemand erklären? Wie muss es geändert werden, damit es auch in VBA-Outlook funktioniert?

VG