Help not getting value from cell E20

[josros60]

Hi,

I have the code below to log in to website automatically by getting username, password from cells in a spreadsheet, problem having is that when click and goes to website
filled in the password in the box from cell F20 but not in the Login box that should get it from cell E20 (The line in red is not working ), please help what I am doing wrong.

here is the code:

Sub mt()Dim HTMLDoc As HTMLDocument
Dim MyBrowser As InternetExplorer
Dim WS As Worksheet


Dim MyHTML_Element As IHTMLElement
Dim MyURL As String
On Error GoTo Err_Clear
MyURL = "https://onlinebillmanager.globysonline.com/cv/scripts/B3B0/eng/log.asp?gru=204948601"
Set MyBrowser = New InternetExplorer
MyBrowser.Silent = True
MyBrowser.navigate MyURL
MyBrowser.Visible = True
Do
Loop Until MyBrowser.readyState = READYSTATE_COMPLETE
Set HTMLDoc = MyBrowser.document
[COLOR=#ff0000]HTMLDoc.all.login.Value = Worksheets("Sheet1").Range("E20")[/COLOR] 'Enter your email id here
HTMLDoc.all.Password1.Value = Worksheets("Sheet1").Range("F20") 'Enter your password here
For Each MyHTML_Element In HTMLDoc.getElementsByTagName(“input”)
If MyHTML_Element.Type = “loging” Then MyHTML_Element.Click: Exit For
Next
Err_Clear:
If Err <> 0 Then
Err.Clear
Resume Next
End If
End Sub

 

[mole999]

maybe add these bits

Dim EmailID as string
EmailId = Worksheets("Sheet1").Range("E20")
HTMLDoc.all.login = EmailId

 

[josros60]

thank you so much, it worked.

question after log in I have to click view current invoice to see the invoice listing, how can add a line in same code so when log in also go to current invoice, the source in the current invoice button is:

<a id="btnViewCurrentBill" href="javascript:__doPostBack('btnViewCurrentBill','')">View Current Bill</a>

 

[josros60]

sorry have to post it again.

thank you so much, it worked.

question after log in I have to click view current invoice to see the invoice listing, how can add a line in same code so when log in also go to current invoice, the source in the current invoice button is:

<a id="btnViewCurrentBill" href="javascript:__doPostBack('btnViewCurrentBill','')">View Current Bill</a>