On 1/1/2020, Auron Software B.V. acquired ActiveXperts SMS Component and will continue developing, selling and supporting the product under it's own brand name Auron SMS Component. Maintenance contracts will be continued directly by Auron Software as of 1/1/2020.


SMS and MMS Toolkit - SmsProtocolDialup object

Overview

The SmsProtocolDialup object enables you to send SMS messages using a normal Hayes compatible modem (1200 bps or higher). The modem connects to an SMSC dial-in Service Provider to deliver the SMS message. You can use the Dialup object to send SMS messages; receiving messages is not supported by the nature of SMSC Service Providers. The SmsProtocolDialup object can only send messages one-by-one.

There are many SMSC dial-in service providers around the world.

The SmsProtocolDialup object is part of the ActiveXperts SMS and MMS Toolkit component. Overview of all SMS and MMS Toolkit objects:

Sample code

VBScript sample: Send a simple SMS message via Dial-up provider

Set objDialupProtocol = CreateObject ( "ActiveXperts.SmsProtcolDialUp" )
Set objSmsMessage = CreateObject ( "ActiveXperts.SmsMessage" )
Set objConstants = CreateObject ( "ActiveXperts.SmsConstants" )

objDialupProtocol.Device = "Standard 1200 bps Modem"                 
objDialupProtocol.DeviceSpeed = 1200 ' Depends on provider
objDialupProtocol.DeviceSettings = objConstants.asDEVICESETTINGS_8N1 ' Depends on provider
objDialupProtocol.ProviderDialString = "+31653141414" ' Provider's dial-in number
objDialupProtocol.ProviderType = objConstants.asPROVIDERTYPE_UCP ' UCP or TAP

objSmsMessage.Recipient = "0624896641" ' Recipient's mobile number
objSmsMessage.Data = "Hello, world!" ' SMS message text
objSmsMessage.Sender = "0625044454" ' Set your own mobile number here

objDialupProtocol.Send( objSmsMessage ) ' Send                
WScript.Echo "Result: " & objDialupProtocol.LastError
WScript.Echo "Last Response: " & objDialupProtocol.ProviderResponse

VB .NET sample: Send a simple SMS message via Dial-up provider

Imports AXmsCtrl

Module Module1
 Sub Main()

   Dim objDialupProtocol As SmsProtocolDialup  
   Dim objSmsMessage As SmsMessage                           
   Dim objConstants As SmsConstants

   objDialupProtocol = New SmsProtcolDialup () ' Create instance of COM Object
   objConstants = New SmsConstants () ' Create instance of COM Object

   objDialupProtocol.Device = "COM1" ' Device Settings
   objDialupProtocol.DeviceSpeed = 9600
   objDialupProtocol.DeviceSettings = 0
   objDialupProtocol.ProviderType = objConstants.asPROVIDERTYPE_UCP ' Provider Settings
   objDialupProtocol.ProviderDialString = "0653141414"
   objDialupProtocol.ProviderPassword = ""

   objSmsMessage.Recipient = "0624896641" ' Recipient's mobile number
   objSmsMessage.Data = "Hello, world!" ' SMS message text
   objSmsMessage.Sender = "0625044454" ' Set your  mobile number here

   objDialupProtocol.Send( objSmsMessage ) ' Send

   Console.WriteLine("Send, result: {0} ( {1} )", 
            objDialupProtocol.LastError.ToString, 
            objDialupProtocol.GetErrorDescription(objDialupProtocol.LastError))
   Console.WriteLine("Last Response: " & objDialupProtocol.ProviderResponse )" 

 End Sub
End Module

More samples

Samples are available for: Visual Basic, Visual C/C++, VB .NET, VC# .NET, ASP, ASP .NET, Borland C++ Builder, Boland Delphi, ColdFusion, Java, Javascript, PHP, HTML and more.

On ftp.activexperts-labs.com, you can find many SMS and MMS Toolkit samples. Samples are also part of the SMS and MMS Toolkit installation.