Log In To Email Account Using VBA

[Excel Fox]

Option Explicit
'Reference libraries to be added
'1. Microsoft HTML Object Library (mshtml.tlb)
'2. Microsoft Internet Controls (ieframe.dll)

Const strWaitTime As String = "00:00:00"
Const strURL = "http://www.gmail.com/"
Const strLoginID As String = "loginID"
Const strPWD As String = "password"
Dim strURLMain As String
Sub GmailLogin()
'ASSUMPTION: THE HOST SYSTEM HAS INTERNET EXPLORER VERSION 5 OR GREATER INSTALLED
Dim IE As InternetExplorer
Dim htmlUserNameTextBox As HTMLTextElement
Dim htmlUserPswdTextBox As HTMLTextElement
strURLMain = strURL

ErrH:
Err.Clear: On Error GoTo -1: On Error GoTo 0: On Error GoTo ErrH
If Not IE Is Nothing Then
IE.Quit
Set IE = Nothing
End If

'Start the internet explorer
Set IE = New InternetExplorer
IE.Visible = True
'Wait for a while (not necessary, but just in case we want to slow down the frequency of hit to the server) [Ditto wherever used]
Application.Wait Now() + TimeValue(strWaitTime)
'Navigate to the main URL
IE.Navigate strURLMain
'Hold your horses (so to say) till the page is ready :) [Ditto wherever used]
IESTATUS IE
'Pass credentials and click the login / submit button
Set htmlUserNameTextBox = IE.document.all("Email")
Set htmlUserPswdTextBox = IE.document.all("Passwd")
htmlUserNameTextBox.Value = strLoginID
htmlUserPswdTextBox.Value = strPWD
IE.document.all("signIn").Click
IESTATUS IE
ErH:
MsgBox Err.Description, vbCritical + vbOKOnly, "Unexpected Error"
IE.Quit

End Sub
Private Sub IESTATUS(ByVal IE As InternetExplorer)
Do While IE.Busy = True: Loop
Do Until IE.readystate = 4: Loop

End Sub




https://www.youtube.com/channel/UCnxwq2aGJRbjOo_MO54oaHA (https://www.youtube.com/channel/UCnxwq2aGJRbjOo_MO54oaHA)

[KingTamo]

Option Explicit
'Reference libraries to be added
'1. Microsoft HTML Object Library (mshtml.tlb)
'2. Microsoft Internet Controls (ieframe.dll)

Const strWaitTime As String = "00:00:00"
Const strURL = "http://www.gmail.com/"
Const strLoginID As String = "loginID"
Const strPWD As String = "password"
Dim strURLMain As String
Sub GmailLogin()
'ASSUMPTION: THE HOST SYSTEM HAS INTERNET EXPLORER VERSION 5 OR GREATER INSTALLED
Dim IE As InternetExplorer
Dim htmlUserNameTextBox As HTMLTextElement
Dim htmlUserPswdTextBox As HTMLTextElement
strURLMain = strURL

ErrH:
Err.Clear: On Error GoTo -1: On Error GoTo 0: On Error GoTo ErrH
If Not IE Is Nothing Then
IE.Quit
Set IE = Nothing
End If

'Start the internet explorer
Set IE = New InternetExplorer
IE.Visible = True
'Wait for a while (not necessary, but just in case we want to slow down the frequency of hit to the server) [Ditto wherever used]
Application.Wait Now() + TimeValue(strWaitTime)
'Navigate to the main URL
IE.Navigate strURLMain
'Hold your horses (so to say) till the page is ready :) [Ditto wherever used]
IESTATUS IE
'Pass credentials and click the login / submit button
Set htmlUserNameTextBox = IE.document.all("Email")
Set htmlUserPswdTextBox = IE.document.all("Passwd")
htmlUserNameTextBox.Value = strLoginID
htmlUserPswdTextBox.Value = strPWD
IE.document.all("signIn").Click
IESTATUS IE
ErH:
MsgBox Err.Description, vbCritical + vbOKOnly, "Unexpected Error"
IE.Quit

End Sub
Private Sub IESTATUS(ByVal IE As InternetExplorer)
Do While IE.Busy = True: Loop
Do Until IE.readystate = 4: Loop

End Sub


I have encountered this bug
User-defined type not defined

at this line

Private Sub IESTATUS(ByVal IE As InternetExplorer


https://www.youtube.com/channel/UCnxwq2aGJRbjOo_MO54oaHA (https://www.youtube.com/channel/UCnxwq2aGJRbjOo_MO54oaHA)