Shell.Application query

[sms2luv]

I watched a video on YouTube.

For using Windows Shell Application.

The code starts with

Sub ABC ()
For each WD in Createobject("shell.application ")
....
Next WD
End sub

I tried the same, but get error that the variable is not defined.
Please help.

 

[p45cal]

Remove Option Explicit from the top of the module.

 

[sms2luv]

Hi all
Issue is resolved thanks

 

[sms2luv]

It created issues again.
Before FOR, I declared it as an object variable and that took care of the issue.

Sub Findmyie()

Dim wd As Object

Dim htmldoc As MSHTML.HTMLDocument


Dim htmlinput As MSHTML.IHTMLElement

'loop through each window

For Each wd In CreateObject("Shell.Application").Windows

 'test it

 If wd = "Internet Explorer" Then

 If InStr(UCase(wd.document.Title), "ENTRY") <> 0 Then

 Exit For

 End If

 End If

Next wd

I have a small issue here, I have some names listed which I need to click to get more options.
However there is no I'd, so how can I click it.
Below is the code

<input class="button" onclick='openEval("127965|468512|2293|0|1|1|0|1|792|DE79521|2","0","https://example/ex/exchange.asmx/s/GetUserPhoto?email=a@abc.comM&amp;size=HR48x48")' type="button" value="Evaluate">

In the code DE79521 is emp I'd
Email address is also mentioned.
How can I find it to click it.

 

[sms2luv]

In short, I want to use control F in IE to find names of emp, so that I can click