Procedure to send group SMS

[Sachin2k6]

Hi all,

I'm working on a management program for a small company. As one of it's feature i need a procedure which send a prewritten SMS to it's employees using a web service like fullonsms.com (10 employees at a time.).

Is it possible by VBA code? If yes ,Can any one give me the source code??

Thanks in advance

 

[Sachin2k6]

Here in india leading mobile operator is : -

Airtel(Bharti Group),Bearer : -Airtelgprs.com

However i want the solution using web service of sending SMS, for example fullonsms.com .

 

[Kyle123]

Then ideally you'll need to find a webservice to do this - fullonsms is a website and as far as I can see doesn't offer a webservice

 

[Sachin2k6]

Then ideally you'll need to find a webservice to do this - fullonsms is a website and as far as I can see doesn't offer a webservice

You are right fullonsms is a website providing free SMS facility. I want to send SMS through this website.

 

[Kyle123]

It would be much easier if you found a website offering a webservice

 

[Sachin2k6]

Can you suggest any one?

 

[Kyle123]

Not for India, I suggest you have a scout around

 

[Sachin2k6]

I have prewritten SMS Text in cell A1 and the No. of 10 employees in column B (B1:B10).

Now how to put these values in the appropriates fields of the site 'fullonsms.com' and then trigger the send button by VBA Code. Assuming i have logged in on the site.

 

[Sachin2k6]

After a long search in forum, with the help of found codes i write the following code and login successfully on the site 160by2.com

Sub Test()


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

But to proceed further and access the send sms page i can't get the elements of the next page.

How this code can be extended to access send sms page and send an sms to a particular number????

 

[Sachin2k6]

----------------

 

[Sachin2k6]

any one-----------