WshShell.Popup does't timeout

[JAWChemist]

ISSUE
The popup message box (object.Popup) does not time out and close after 2 seconds in Outlook.
Outlook VbaProject.OTM has no other code except that listed below.
It works in Excel, Word, Access, PowerPoint and Publisher.

QUESTIONS
Can it be made to work?
Why does it work in other MS Office programs but not Outlook?
Has this issue been propagated to new versions of MS Office?

RESEARCH
The best explanation that might be related is Popup won't close automatically where mr_unreliable (aka jw) suggests to Steve Ginn that his app (dbWorks) has it own messaging timer. Since it is not expecting the notification, it ignores it and does not forward the time's up to wscript shell popup. I would expect Outlook to have a message loop of its own and the timeout not get passed along.

ENVIRONMENT
AMD Ryzen 5 2600
Window 10 10.0.19041 (64)
MS Office Professional 2007 (12.0.6785.5000) SP3 MSO

<code>
Sub MBT()
Dim MsgBoxTimedClose As Object, MsgBoxTimedCloseButton As Integer
Set MsgBoxTimedClose = CreateObject("WScript.Shell")
MsgBoxTimedCloseButton = MsgBoxTimedClose.PopUp("Close after 2 seconds", timeout, "MsgBoxTitle", 0)
End Sub
</code>

 

[Diane Poremsky]

Outlook via doesn’t have a timer function - you need to add a timer to the code. Vboffice.net has a timer sample.


Sent from my iPhone using Tapatalk

 

[JAWChemist]

Thank you for your quick response.
There may have been some confusion. The code was simplified and the variable "timeout" should have been 2.
This is a WshShell method that is used to timeout a msg box without user interaction as code execution stop until a button is clicked in a standard msg box.
This issue has been reported by others in the various office programs but I only had it with Outlook.
Some suggested solutions were:
1. create a vbs script with the intButton = object.Popup(strText,[nSecondsToWait],[strTitle],[nType]) method and run the vbs script from Outlook
2. create an Outlook form with at timer.
Being unfamiliar with Vboffice.net timer, I will review examples. At the moment, it is unclear to me how this would be made to interact with the msg box to have it close and the code continue after an interval was timed out.

 

[Diane Poremsky]

I was addressing this - "Why does it work in other MS Office programs but not Outlook?"

If its using VBA for the timer (which is in the other office apps), it won't work in Outlook as there is no timer function. This has not changed in newer versions - no timer in them either.