Internet Explorer 'da Otomatik Form Doldurma

Sub HotmailLogin()
    Dim IEApp
    Set IEApp = CreateObject("InternetExplorer.Application")
    IEApp.Visible = True
    IEApp.Navigate "www.hotmail.com"
    While IEApp.Busy
    Wend
    IEApp.Document.Forms("f1").All("login").Value = "cucar@hotmail.com"
    IEApp.Document.Forms("f1").All("passwd").Value = "password"
    IEApp.Document.Forms("f1").All("si").Click
    IEApp.Visible = True
End Sub