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