Code:
Option Explicit
Private Sub Cancel_Click()
Unload Me
End Sub
Private Sub Submit_Click()
Excel.Application.Cursor = xlWait
Launchyahooo Me.TextBox1.Value, Me.TextBox2.Value
Unload Me
Excel.Application.Cursor = xlDefault
End Sub
Private Sub Launchyahoo(username As String, password As String)
Const strURL_c As String = "http://mail.yahoo.com"
Dim objIE As SHDocVw.InternetExplorer
Dim ieDoc As MSHTML.HTMLDocument
Dim tbxPwdFld As MSHTML.HTMLInputElement
Dim tbxUsrFld As MSHTML.HTMLInputElement
Dim btnSubmit As MSHTML.HTMLInputElement
On Error GoTo Err_Hnd
'Create Internet Explorer Object
Set objIE = New SHDocVw.WebBrowser
'Navigate the URL
objIE.Navigate strURL_c
'Wait for page to load
Do Until objIE.ReadyState = READYSTATE_COMPLETE: Loop
'Get document object
Set ieDoc = objIE.Document
'Get username/password fields and submit button.
Set tbxPwdFld = ieDoc.all.Item("Passwd")
Set tbxUsrFld = ieDoc.all.Item("Email")
Set btnSubmit = ieDoc.all.Item("signIn")
'Fill Fields
tbxUsrFld.Value = username
tbxPwdFld.Value = password
'Click submit
btnSubmit.Click
'Wait for transistion page to load
Do Until objIE.ReadyState = READYSTATE_COMPLETE: Loop
'Wait for main page to load
Do Until objIE.ReadyState = READYSTATE_COMPLETE: Loop
Err_Hnd: '(Fail gracefully)
objIE.Visible = True
End Sub
