Dim HTMLDoc As HTMLDocument
Dim oBrowser As InternetExplorer
Dim oHTML_Element As IHTMLElement
Dim sURL As String
On Error GoTo Err_Clear
sURL = "url"
Set oBrowser = New InternetExplorer
oBrowser.Silent = True
oBrowser.timeout = 60
oBrowser.Navigate sURL
oBrowser.Visible = true
Do
' Wait till the Browser is loaded
Loop Until oBrowser.ReadyState = READYSTATE_COMPLETE
Set HTMLDoc = oBrowser.Document
HTMLDoc.all.email.Value = "enteremail"
HTMLDoc.all.passwd.Value = "*******"
For Each oHTML_Element In HTMLDoc.getElementsByTagName("input")
If oHTML_Element.type = "submit" Then oHTML_Element.Click: Exit For
Next
' oBrowser.Refresh ' Refresh If Needed
Err_Clear:
If Err <> 0 Then
Err.Clear
Resume Next
End If
Some people said they had success with it but others said they had problems with it. What did you get?One last bump....
Looking into this again.
I did find this other thread, but it appeared to die, and not have a good end result.
https://www.utteraccess.com/forum/index.php?showtopic=2041518&st=40
I see. Let me know if you run into any issues, but we probably should continue the discussion there. I'll keep an eye for your post there. Cheers!I don't have an account on Utteraccess.com. I'll create one, but not sure it will let me download anything without a few posts under my belt there.
Just to let you know it worked for me. Thanks for link.