Abrir Hotmail ingresando email y clave con vba.

Hola:

Mi objetivo es ejecutar la macro y que se abra mi cuenta hotmail sin poner manualmente el email y clave personales.

Pero tengo 2 atranques:

1) El 2º párrafo (On resume Next...hasta Loop) impide que la macro corra hasta el final, por tanto la ejecuto con F8 y me salto esa parte para comprobar que ingresa los campos "email" y "clave". Quizás haya que modificarlo pero no sé cómo.

2º Cuando llega al final no sé como hacer clic -con VBA- en el botón de Iniciar sesión (he añadido 4 posibles líneas que he encontrado por internet en el penúltimo párrafo del código).

Agradezco cualquier sugerencia que subsane esos dos fallos y pueda abrir Hotmail automáticamente.

---------------------------------------------------------------------------------------------------

Sub IE_Autiomatizacion_2()
Dim IE, objCollection, Q%
Set IE = CreateObject("Internet explorer.Application")
IE.Navigate "https://login.live.com/login.srf?wa=wsignin1.0&rpsnv=11&ct=1382469992&rver=6.1.6206.0&wp=MBI&wreply=http:%2F%2Fmail.live.com%2Fdefault.aspx%3Fmkt%3Des&lc=2058&id=64855&mkt=es-US&cbcxt=mai&snsc=1"

On Error Resume Next
Do
Err.Clear: DoEvents
Set objCollection = IE.Document.getElementsByTagName("input")
Q = objCollection.Length
Loop While Q <> 3

On Error GoTo 0

IE.Visible = True

objCollection(0).Value = "TU EMAIL"
objCollection(1).Value = "TU CONTRASEÑA"

'Las siguientes 4 posibilidades es para si sirviera alguna:

IE.Document.getElementsByTagName("input")(0).Click
'IE.Document.all("nombreboton").Click
IE.Navigate ("javascript:loginEnter();")
IE.Document.forms(0).Submit

IE.Quit
Set objCollection = Nothing
Set IE = Nothing
End Sub