CGIForum

SMS-it support forum

Welcome to the SMS-it support forum.
Before entering a query/request please search the forum to see if someone else has asked the question before.
Please feel also free to respond to queries from other users if you have experienced the same type of problem and found a solution to it.
Our support team will monitor this forum and endeavour to provide answers to the queries posted.
Please make sure to post your query to the right forum as there is a separate forum for each application provided by MAW Software.

Show messages for:

Back to the forum

On Thursday , the 06.16.2005, MAW Support wrote at 15:33:41 :

>Using sms-it with Sql-Server

Hi

>>>
is it possible to use sms-it with my sql-server database through my own custom application
<<<

Sure!
You could use a VBS script to loop through your DB and send a SMS to the numbers stored there.
Here is a small sample... UNTESTED, JUST FOR REFERENCE :-(

Rds
TL

'***
Option Explicit
Const adOpenDynamic = 2
Const adLockPessimistic = 2
Const adUseClient = 3
Const adModeWrite = 2
Const WindowStyle = 1
Const WaitOnReturn = true
Dim sCommand
Dim oSh
Dim Conn, RS

On Error Resume Next

Set Conn = CreateObject("ADODB.Connection")
Set RS = CreateObject("ADODB.Recordset")
Conn.Provider = "MSDASQL"
Conn.Mode = adModeWrite
Conn.Open "Driver=MySQL; Server=localhost; Database=Users;", "MyUser", "nopwd"
' For the new ODBC 3.51 driver!
' Conn.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};DATABASE=DBName;SERVER=localhost;"
Conn.CursorLocation = adUseClient
RS.CursorLocation = adUseClient
RS.Open "Select * from TPhoneNumbers", Conn, adOpenDynamic, adLockPessimistic
sCommand = RS.Fields("MobileNumber")

sCommand = "C:\SMS-it\Sms-it.exe SMST [SMS:" & "] Hello"

Set oSh = CreateObject("WScript.Shell")
oSh.Run sCommand, WindowStyle, WaitOnReturn
Set oSh = Nothing

RS.Close
Conn.Close
Set RS = Nothing
Set Conn = Nothing
'***