Code:
Dim HTMLDoc As HTMLDocument
Dim oBrowser As InternetExplorer
Sub Website_Login_Test()
Application.ScreenUpdating = False
Dim oHTML_Element As IHTMLElement
Dim sURL As String
Dim evt As Object
On Error GoTo Err_Clear
sURL = "[URL="http://www. this is where my"]wwww. this is where my [/URL]page is.jsp"
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.q.Value = "search text"
'HTMLDoc.all.Password.Value = "examplepassword""
Call loopFiles
Call changeFilter
Call clickStart
Call noofMessages
Call loopFiles
Call changeFilter2
Call clickStart
Call noofMessages2
Call changeFilter3
Call clickStart
Call noofMessages3
Call changeFilter4
Call clickStart
Call noofMessages4