Sending SMS by VBA Code

[I]Sub SendSMS()

Const cURL = "http:\\www.160by2.com"
Const cUsername = "XXXXX" 'REPLACE XXXX WITH YOUR USER NAME
Const cPassword = "YYYYY" 'REPLACE YYYY WITH YOUR PASSWORD

Dim IE As InternetExplorer
Dim doc As HTMLDocument
Dim LoginForm As HTMLFormElement
Dim UserNameInputBox As HTMLInputElement
Dim PasswordInputBox As HTMLInputElement
Dim SignInButton As HTMLInputButtonElement
Dim HTMLelement As IHTMLElement

Set IE = New InternetExplorer

IE.Visible = True
IE.navigate cURL

'Wait for initial page to load

Do While IE.readyState <> READYSTATE_COMPLETE Or IE.Busy: DoEvents: Loop

Set doc = IE.document

'Get the only form on the page

Set LoginForm = doc.forms(0)

'Get the User Name textbox and populate it

Set UserNameInputBox = LoginForm.elements("username")
UserNameInputBox.Value = cUsername

'Get the password textbox and populate it

Set PasswordInputBox = LoginForm.elements("password")
PasswordInputBox.Value = cPassword

'Get the form input button and click it

Set SignInButton = LoginForm.elements("button")
SignInButton.Click

'Wait for the new page to load

Do While IE.readyState <> READYSTATE_COMPLETE Or IE.Busy: DoEvents: Loop


'Login succeeded here.

End Sub
[/I]