Need to press enter or "OK" to move past pop-up message

[vikas0903]

Hi all,
I am really stuck here. I am trying to automate checking of card balance at this link:
https://www.dillards.com/webapp/wcs...5LX2w1Tho+hFGWhEb&ddkey=https:GiftCardProcess

Use user name : vikas_manit@rediffmail.com
password: Abc1234
[dummy account]

When I enter any invalid card number (say "1111111111"), it gives pop-up, where I need to press ENTER or click "Ok".

How can I automate this? Need VBA code to handle this kind of situation.

Thanks in advance for your help.

 

[Kemmuniemans]

Just use the sendkeys command in combination with the ontime command, right before you get the popup. And cancel right after if no pop-up was shown.

Place sub somewhere in your module and the Ontime just before you'd possibly get the pop-up Like this:
StartTime = Now + TimeValue("00:00:02")
Application.OnTime StartTime, "OKexecute"
Code where you get the pop-up.
'Now if it continues cause no pop-up was shown, do this to cancel (the pressing of enter):
Application.OnTime StartTime, "RunOnTime", , False

Sub OKexecute()
Application.SendKeys ("{ENTER}")
End Sub

 

[vikas0903]

I tried putting code but it did not press OK,
Following is the code that I used:
For Each htmlInput In htmlColl
If htmlInput.innerText = "Apply" Then
htmlInput.Click
'IEapp.Document.all.gcPopUp.value = ""
Sleep (4000)
StartTime = Now + TimeValue("00:00:03")
'Application.OnTime StartTime, "OKexecute"

Application.OnTime StartTime, "RunOnTime", False

Can you please any other idea?

 

[vikas0903]

Hi, My apologies.........your code worked like charm....I just had to increase time duration by 1 sec..
I spoke too soon..thanks a lot for your help..
I tried everything since afternoon but nothing seemed to work
thanks again