ActiveXperts MMS Toolkit
Manual
© 1999-2007 - ActiveXperts Software B.V.
http://www.activexperts.com
info@activexperts.com
Set objConnection = CreateObject ( "ActiveXperts.MM1Connection" ) ' Create a new instance of MM1Connection
Set objMessage = CreateObject ( "ActiveXperts.MMSMessage" ) ' Create a new instance of MMSMessage
Set objSlide = CreateObject ( "ActiveXperts.MMSSlide" ) ' Create a new instance of MMSSlide
Set objConstants = CreateObject ( "ActiveXperts.MMSConstants" ) ' Create a new instance of MMSConstants
' MMSlide: Add duration, attachments(s) and text(s)
objSlide.Clear()
objSlide.Duration = 10 ' Display this screen for 10 seconds
objSlide.AddAttachment "logo.gif" ' Add a multimedia attachment
objSlide.AddText "The ActiveXperts logo" ' Add a description
' MMSMessage: Set properties
objMessage.Clear() ' Clear the message object (good practise)
objMessage.Subject = "My Message" ' Subject of the message
objMessage.AddTo( "+4412345678" ) ' MMS recipient; phonenumbers and e-mail addresses allowed
' MMSMessage: Add slide
objMessage.AddSlide( objSlide ) ' Add slide to the message; you can add multiple slides
' MMS Connection: Set device
objConnection.Device = "Falcom SAMBA 75 GSM/GPRS Modem" ' Set GSM/GPRS modem
' MMS Connection: Load provider properties
objConnection.LoadProviderConfig( "C:\Program Files\ActiveXperts\MMS Toolkit\Mmsc\Mm1\United Kingdom\Vodafone.mm1" )
' MMS Connection: Connect
objConnection.Connect()
If ( objConnection.LastError <> 0 ) Then
WScript.Quit
End If
' MMS Connection: Send the MMSMessage, including one or more slides
objConnection.Send ( objMessage )
' MMS Connection: Disconnect
objConnection.Disconnect()
Imports AMmsCtrl ... Dim objConstants As MMSConstants ' Declaration objConstants = New MMSConstants() ' CreationIf you use a GPRS modem (or GPRS phone) to send MMS messages, create a new MM1Connection object in the following way:
Imports AMmsCtrl ... Dim objConnection As MM1Connection ' Declaration objConnection = New MM1Connection() ' CreationIf you use SMTP to send MMS messages, create a new MM4Connection object in the following way:
Imports AMmsCtrl ... Dim objConnection As MM4Connection ' Declaration objConnection = New MM4Connection() ' CreationIf you use HTTP/SOAP to send MMS messages, create a new MM7Connection object in the following way:
Imports AMmsCtrl ... Dim objConnection As MM7Connection ' Declaration objConnection = New MM7Connection() ' CreationCreate a new MMSMessage object in the following way:
Imports AMmsCtrl ... Dim objMessage As MMSMessage ' Declaration objMessage = New MMSMessage() ' CreationCreate a new MMSSlide object in the following way:
Imports AMmsCtrl ... Dim objSlide As MMSSlide ' Declaration objSlide = New MMSSlide() ' CreationAfter these declarations and creation of the object(s), you can use the objects in your Visual Basic .NET projects.
using AMmsCtrl; ... MMSConstants objConstants; // Declaration objConstants = new MMSConstants(); // CreationIf you use a GPRS modem (or GPRS phone) to send MMS messages, create a new MM1Connection object in the following way:
using AMmsCtrl; ... MM1Connection objMM1Connection; // Declaration objMM1Connection = new MM1Connection(); // CreationIf you use SMTP to send MMS messages, create a new MM4Connection object in the following way:
using AMmsCtrl; ... MM4Connection objMM4Connection; // Declaration objMM4Connection = new MM4Connection(); // CreationIf you use HTTP/SOAP to send MMS messages, create a new MM7Connection object in the following way:
using AMmsCtrl; ... MM7Connection objMM7Connection; // Declaration objMM7Connection = new MM7Connection(); // CreationCreate a new MMSMessage object in the following way:
using AMmsCtrl; ... MMSMessage objMessage; // Declaration objMessage = new MMSMessage(); // CreationCreate a new MMSlide object in the following way:
using AMmsCtrl; ... MMSSlide objSlide; // Declaration objSlide = new MMSSlide(); // Creation
Dim objConstants As AMmsCtrl.MMSConstants ' Declaration Set objConstants = CreateObject( "ActiveXperts.MMSConstants" ) ' CreationIf you use a GPRS modem (or GPRS phone) to send MMS messages, create a new MM1Connection object in the following way:
Dim objConnection As AMmsCtrl.MM1Connection ' Declaration Set objConnection = CreateObject( "ActiveXperts.MM1Connection" ) ' CreationIf you use SMTP to send MMS messages, create a new MM4Connection object in the following way:
Dim objConnection As AMmsCtrl.MM4Connection ' Declaration Set objConnection = CreateObject( "ActiveXperts.MM4Connection" ) ' CreationIf you use HTTP/SOAP to send MMS messages, create a new MM7Connection object in the following way:
Dim objConnection As AMmsCtrl.MM7Connection ' Declaration Set objConnection = CreateObject( "ActiveXperts.MM7Connection" ) ' CreationCreate a new MMSMessage object in the following way:
Dim objMessage As AMmsCtrl.MMSMessage ' Declaration Set objMessage = CreateObject( "ActiveXperts.MMSMessage" ) ' CreationCreate a new MMSlide object in the following way:
Dim objSlide As AMmsCtrl.MMSSlide ' Declaration Set objSlide = CreateObject( "ActiveXperts.MMSSlide" ) ' Creation
IConstants *pConstants; // Declaration CoCreateInstance(CLSID_MMSConstants, NULL, CLSCTX_INPROC_SERVER, IID_IMMSConstants, (void**) &pConstants); // CreationIf you use a GPRS modem (or GPRS phone) to send MMS messages, create a new MM1Connection object in the following way:
IMM1Connection *pConnection; // Declaration CoCreateInstance(CLSID_MM1Connection, NULL, CLSCTX_INPROC_SERVER, IID_IMM1Connection, (void**) &pConnection); // CreationIf you use SMTP to send MMS messages, create a new MM4Connection object in the following way:
IMM4Connection *pConnection; // Declaration CoCreateInstance(CLSID_MM4Connection, NULL, CLSCTX_INPROC_SERVER, IID_IMM4Connection, (void**) &pConnection); // CreationIf you use HTTP/SOAP to send MMS messages, create a new MM7Connection object in the following way:
IMM7Connection *pConnection; // Declaration CoCreateInstance(CLSID_MM7Connection, NULL, CLSCTX_INPROC_SERVER, IID_IMM7Connection, (void**) &pConnection); // CreationCreate a new MMSMessage object in the following way:
IMMSMessage *pMessage; // Declaration CoCreateInstance(CLSID_MMSMessage, NULL, CLSCTX_INPROC_SERVER, IID_IMMSMessage, (void**) &pMessage); // CreationCreate a new MMSlide object in the following way:
IMMSSlide *pSlide; // Declaration CoCreateInstance(CLSID_MMSSlide, NULL, CLSCTX_INPROC_SERVER, IID_IMMSSlide, (void**) &pSlide); // Creation
MmsConstants : TMMSConstants; ' Declaration of the wrapper class objConstants : IMMSConstants; ' Declaration of the interface class objConstants := MMSConstants.DefaultInterface; ' Creation new instance of the objectIf you use a GPRS modem (or GPRS phone) to send MMS messages, create a new MM1Connection object in the following way:
MM1Connection : TMM1Connection; ' Declaration of the wrapper class objMM1Connection : IMM1Connection; ' Declaration of the interface class objMM1Connection := MM1Connection.DefaultInterface; ' Creation new instance of the objectIf you use SMTP to send MMS messages, create a new MM4Connection object in the following way:
MM4Connection : TMM4Connection; ' Declaration of the wrapper class objMM4Connection : IMM4Connection; ' Declaration of the interface class objMM4Connection := MM4Connection.DefaultInterface; ' Creation new instance of the objectIf you use HTTP/SOAP to send MMS messages, create a new MM7Connection object in the following way:
MM7Connection : TMM7Connection; ' Declaration of the wrapper class objMM7Connection : IMM7Connection; ' Declaration of the interface class objMM7Connection := MM7Connection.DefaultInterface; ' Creation new instance of the objectCreate a new MMSMessage object in the following way:
MMSMessage : TMMSMessage; ' Declaration of the wrapper class objMessage : IMMSMessage; ' Declaration of the interface class objMessage := MMSMessage.DefaultInterface; ' Creation new instance of the objectCreate a new MMSlide object in the following way:
MMSSlide : TMMSSlide; ' Declaration of the wrapper class objSlide : IMMSSlide; ' Declaration of the interface class objSlide := MMSSlide.DefaultInterface; ' Creation new instance of the objectAfter these declarations and creation of the object(s), you can use the objects in your Visual Basic .NET projects.
<html>
<body>
Version:
<script language=vbscript runat=server>
Set objConstants = CreateObject( "ActiveXperts.MMSConstants" )
Set objMM1Connection = CreateObject( "ActiveXperts.MM1Connection" )
Set objMM4Connection = CreateObject( "ActiveXperts.MM4Connection" )
Set objMM7Connection = CreateObject( "ActiveXperts.MM7Connection" )
Set objMessage = CreateObject( "ActiveXperts.MMSMessage" )
Set objSlide = CreateObject( "ActiveXperts.MMSSlide" )
....
Response.Write objMM1Connection.Version
....
</script>
</body>
</html>
Set objConstants = CreateObject( "ActiveXperts.MMSConstants" ) WScript.Echo objConstants.asMMS_PRIORITY_LOW WScript.Echo objConstants.asMMS_PRIORITY_NORMAL WScript.Echo objConstants.asMMS_PRIORITY_HIGH ...
|
|
|
|
|
|
|
Set objSlide = CreateObject ( "ActiveXperts.MMSSlide" ) ' Create a new MMSSlide instance ' MMSlide: Add duration, attachments(s) and text(s) objSlide.Duration = 10 ' Display this screen for 10 seconds objSlide.AddAttachment "c:\my pictures\picture1.jpg" ' Add a new picture objSlide.AddAttachment "c:\my pictures\picture2.jpg" ' Add another picture objSlide.AddText "The ActiveXperts logo" ' Add description
Set objSlide = CreateObject ( "ActiveXperts.MMSSlide" ) ' Create a new MMSSlide instance Set objMessage = CreateObject ( "ActiveXperts.MMSMessage" ) ' Create a new MMSMessage instance ... objSlide.AddAttachment( ... ) ... objMessage.AddSlide( objSlide ) ' Add slide to the message; you can add multiple slides ' NOTE: MMS Messages are discussed in Chapter 7: MMSMessage object
' MMS Connection: Set properties
objConnection.Device = "Falcom SAMBA 75 GSM/GPRS Modem" ' Set GSM/GPRS modem
...
objConnection.Connect() ' Connect
If ( objConnection.LastError <> 0 ) Then
WScript.Quit
End If
objConnection.Send ( objMessage ) ' Send MMSMessage, including one or more slides
objConnection.Disconnect() ' Disconnect
|
|
Set objSlide = CreateObject ( "ActiveXperts.MMSSlide" ) ' Create a new MMSSlide instance
objSlide.Duration = 10 ' Display this screen for 10 seconds
...
Set objSlide = CreateObject ( "ActiveXperts.MMSSlide" ) ' Create a new MMSSlide instance
objSlide.AddAttachment( "C:\Temp\File1.jpg" ) ' Add an image file as attachment
WScript.Echo "LastError: " & objSlide.LastError ' Show the result of 'AddAttachment'
Set objSlide = CreateObject ( "ActiveXperts.MMSSlide" ) ' Create a new MMSSlide instance
objSlide.Duration = 5
objSlide.Clear() ' Clear properties
WScript.Echo objSlide.Duration ' Default duration (10) will be displayed
Set objSlide = CreateObject ( "ActiveXperts.MMSSlide" ) ' Create a new MMSSlide instance
objSlide.AddAttachment( "C:\Temp\File1.jpg" ) ' Add a multimedia file
WScript.Echo "LastError: " & objSlide.LastError ' Show the result of 'AddAttachment'
Set objSlide = CreateObject ( "ActiveXperts.MMSSlide" ) ' Create a new MMSSlide instance
objSlide.AddText( "Hello, world!" ) ' Add a text description
WScript.Echo "LastError: " & objSlide.LastError ' Show the result of 'AddText'
Set objSlide = CreateObject ( "ActiveXperts.MMSSlide" ) ' Create a new MMSSlide instance
objSlide.AddAttachment( "C:\Temp\File1.jpg" ) ' Add a multimedia file
WScript.Echo "LastError: " & objSlide.LastError & _ ' Show the result of 'AddText'
objSlide.GetErrorDescription( objSlide.LastError ) ' Show the verbose result of 'AddText'
Set objConnection = CreateObject ( "ActiveXperts.MM1Connection" )
Set objMessage = CreateObject ( "ActiveXperts.MMSMessage" )
Set objSlide = CreateObject ( "ActiveXperts.MMSSlide" )
Set objConstants = CreateObject ( "ActiveXperts.MMSConstants" )
' MMSlide: Add duration, attachments(s) and text(s)
objSlide.Clear()
objSlide.Duration = 10 ' Display this screen for 10 seconds
objSlide.AddAttachment( "logo.gif" ) ' Add a multimedia attachment
objSlide.AddText( "The ActiveXperts logo" ) ' Add a description
' MMSMessage: Set properties
objMessage.Clear() ' Clear the message object (good practise)
objMessage.Subject = "My Message" ' Subject of the message
objMessage.AddTo( "+4412345678" ) ' MMS recipient; phonenumbers and e-mail addresses allowed
' MMSMessage: Add slide
objMessage.AddSlide( objSlide ) ' Add slide to the message; you can add multiple slides
' MMS Connection: Set properties
NOTE: You can find settings for various providers all over the wold here: www.activexperts.com/mmstoolkit/mmsclist
objConnection.Device = "Falcom SAMBA 75 GSM/GPRS Modem" ' Set GSM/GPRS modem
objConnection.ProviderAPN = "MMS" ' Provider's Access Point Name
objConnection.ProviderAPNAccount = "" ' Provider login (not required for all providers)
objConnection.ProviderAPNPassword = "" ' Provider login (not required for all providers)
objConnection.ProviderWAPGateway = "10.250.255.183" ' Provider's WAPgateway address
objConnection.ProviderMMSC = "http://mms.orange.nl:8002/" ' Provider's MMS Server Provider Center address
' MMS Connection: Connect
objConnection.Connect()
If ( objConnection.LastError <> 0 ) Then
WScript.Quit
End If
' MMS Connection: Send the MMSMessage, including one or more slides
objConnection.Send ( objMessage )
' MMS Connection: Disconnect
objConnection.Disconnect()
|
|
Set objMMSMessage = CreateObject( "ActiveXperts.MMSMessage" ) ' Create MMSMessage instance
objMMSMessage.From = "+31625044454" ' Set sender address
Set objMMSMessage = CreateObject( "ActiveXperts.MMSMessage" ) ' Create MMSMessage instance
Set objMMSConstants = CreateObject( "ActiveXperts.MMSConstants" ) ' Create Constants instance
objMMSMessage.Class = objMMSConstants.asMMS_CLASS_INFORMATIONAL ' Set message class to 'informational'
Set objMMSMessage = CreateObject( "ActiveXperts.MMSMessage" ) ' Create MMSMessage instance
Set objMMSConstants = CreateObject( "ActiveXperts.MMSConstants" ) ' Create Constants instance
objMMSMessage.Priority = objMMSConstants.asMMS_PRIORITY_HIGH
Set objMMSMessage = CreateObject( "ActiveXperts.MMSMessage" ) ' Create MMSMessage instance
objMMSMessage.Subject = "My MMS message to you" ' Set subject
Set objMMSMessage = CreateObject( "ActiveXperts.MMSMessage" ) ' Create MMSMessage instance
...
objMMSMessage.AddSlide( ... )
WScript.Echo "LastError: " & objMMSMessage.LastError ' Show the result of 'AddSlide'
Set objMMSMessage = CreateObject( "ActiveXperts.MMSMessage" ) ' Create MMSMessage instance
objMMSMessage.From = "+314412345678"
...
objMMSMessage.Clear() ' Clear all properties
Set objMMSMessage = CreateObject( "ActiveXperts.MMSMessage" ) ' Create MMSMessage instance
objMMSMessage.AddTo( "+4412345678" ) ' Recipient in the UK, a mobile number
objMMSMessage.AddCc( "+4412345679" ) ' CC recipient in the UK, a mobile number
objMMSMessage.AddBcc( "info@activexperts.com" ) ' BCC recipient, an e-mail address
Set objConnection = CreateObject( "ActiveXperts.MM1Connection" )
Set objMMSMessage = CreateObject( "ActiveXperts.MMSMessage" ) ' Create MMSMessage instance
Set objSlide = CreateObject( "ActiveXperts.MMSSlide" )
...
objSlide.Duration = 10
objSlide.AddAttachment( "logo.gif" )
objSlide.AddText( "The ActiveXperts logo" )
objMMSMessage.AddSlide( objSlide ) ' Add slide to the message
...
objConnection.Connect ()
objConnection.Send( objMMSMessage )
...
Set objConstants = CreateObject ( "ActiveXperts.SMSConstants" )
Set objMMSMessage = CreateObject ( "ActiveXperts.MMSMessage" ) ' Create MMSMessage instance
Set objSlide = CreateObject ( "ActiveXperts.MMSSlide" )
...
objSlide.Duration = 10 'Display this screen for 10 seconds
objSlide.AddAttachment( "logo.gif" )
objSlide.AddText( "The ActiveXperts logo" )
...
objMMSMessage.AddSlide( objSlide ) ' Add the slide
objMMSMessage.SaveToFile( "C:\Temp\File.mms", objConstants.asMMS_MM1FILE_MSENDREQ ) ' Save message incl. slide(s)
...
Set objConnection = CreateObject( "ActiveXperts.MM1Connection" )
Set objMMSMessage = CreateObject( "ActiveXperts.MMSMessage" ) ' Create MMSMessage instance
...
objMessage.Clear ' Clear message, incl. all slides
objMMSMessage.LoadFromFile( "C:\Temp\File.mms" ) ' Load message incl. slides
...
objConnection.Send ( objMMSMessage )
Set objMMSMessage = CreateObject( "ActiveXperts.MMSMessage" ) ' Create MMSMessage instance
objMMSMessage.AddRecipient( "+31625044454" )
If objMMSMessage.LastError <> 0 Then
WScript.Echo "Error description: " & objobjMMSMessage.GetErrorDescription( objMMSMessage.LastError )
End If
Set objConnection = CreateObject ( "ActiveXperts.MM1Connection" ) ' Create a new instance of MM1Connection
Set objMessage = CreateObject ( "ActiveXperts.MMSMessage" ) ' Create a new instance of MMSMessage
Set objSlide = CreateObject ( "ActiveXperts.MMSSlide" ) ' Create a new instance of MMSSlide
Set objConstants = CreateObject ( "ActiveXperts.MMSConstants" ) ' Create a new instance of MMSConstants
' MMSlide: Add duration, attachments(s) and text(s)
objSlide.Clear()
objSlide.Duration = 10 ' Display this screen for 10 seconds
objSlide.AddAttachment( "logo.gif" ) ' Add a multimedia attachment
objSlide.AddText( "The ActiveXperts logo" ) ' Add a description
' MMSMessage: Set properties
objMessage.Clear() ' Clear the message object (good practise)
objMessage.Subject = "My Message" ' Subject of the message
objMessage.AddTo( "+4412345678" ) ' MMS recipient; phonenumbers and e-mail addresses allowed
' MMSMessage: Add slide
objMessage.AddSlide( objSlide ) ' Add slide to the message; you can add multiple slides
' MMS Connection: Set device
objConnection.Device = "Falcom SAMBA 75 GSM/GPRS Modem" ' Set GSM/GPRS modem
' MMS Connection: Set provider properties (see also www.activexperts.com/mmstoolkit/mmsclist
objConnection.ProviderAPN = "wap.vodafone.co.uk" ' Provider's Access Point Name
objConnection.ProviderAPNAccount = "" ' Provider login (not required for all providers)
objConnection.ProviderAPNPassword = "" ' Provider login (not required for all providers)
objConnection.ProviderWAPGateway = "212.183.137.12" ' Provider's WAPgateway address
objConnection.ProviderMMSC = "mms.vodafone.co.uk/servlets/mms" ' Provider's MMS Server Provider Center address
' MMS Connection: Connect
objConnection.Connect()
If ( objConnection.LastError <> 0 ) Then
WScript.Quit
End If
' MMS Connection: Send the MMSMessage, including one or more slides
objConnection.Send ( objMessage )
' MMS Connection: Disconnect
objConnection.Disconnect()
The above ProviderXYZ properties all depend on the MMS provider you are connecting to.
ActiveXperts has collected provider information for all major MMS providers all over the world.
These properties are stored in so called MM1 files; these MM1 files are shipped with the product, and are located in: <install-dir>\Mmsc\Mm1>.
You can use a function 'LoadProviderConfig' to load all provider-depend information directly into the ProviderXYZ properties.
Set objConnection = CreateObject ( "ActiveXperts.MM1Connection" ) ' Create a new instance of MM1Connection
Set objMessage = CreateObject ( "ActiveXperts.MMSMessage" ) ' Create a new instance of MMSMessage
Set objSlide = CreateObject ( "ActiveXperts.MMSSlide" ) ' Create a new instance of MMSSlide
Set objConstants = CreateObject ( "ActiveXperts.MMSConstants" ) ' Create a new instance of MMSConstants
' MMSlide: Add duration, attachments(s) and text(s)
objSlide.Clear()
objSlide.Duration = 10 ' Display this screen for 10 seconds
objSlide.AddAttachment( "logo.gif" ) ' Add a multimedia attachment
objSlide.AddText( "The ActiveXperts logo" ) ' Add a description
' MMSMessage: Set properties
objMessage.Clear() ' Clear the message object (good practise)
objMessage.Subject = "My Message" ' Subject of the message
objMessage.AddTo( "+4412345678" ) ' MMS recipient; phonenumbers and e-mail addresses allowed
' MMSMessage: Add slide
objMessage.AddSlide( objSlide ) ' Add slide to the message; you can add multiple slides
' MMS Connection: Set device
objConnection.Device = "Falcom SAMBA 75 GSM/GPRS Modem" ' Set GSM/GPRS modem
' MMS Connection: Load provider properties
objConnection.LoadProviderConfig( "C:\Program Files\ActiveXperts\MMS Toolkit\Mmsc\Mm1\United Kingdom\Vodafone.mm1" )
' MMS Connection: Connect
objConnection.Connect()
If ( objConnection.LastError <> 0 ) Then
WScript.Quit
End If
' MMS Connection: Send the MMSMessage, including one or more slides
objConnection.Send ( objMessage )
' MMS Connection: Disconnect
objConnection.Disconnect()
|
|
Set objConnection = CreateObject( "ActiveXperts.MM1Connection" ) ' Create a new instance of MM1Connection
WScript.Echo "Version: " & objConnection.Version ' Display version information
Set objConnection = CreateObject( "ActiveXperts.MM1Connection" ) ' Create a new instance of MM1Connection
WScript.Echo "ExpirationDate: " & objConnection.ExpirationDate ' Display expiration information
Set objConnection = CreateObject( "ActiveXperts.MM1Connection" ) ' Create a new instance of MM1Connection
objConnection.Device = "Falcom SAMBA 75 GSM/GPRS Modem" ' Use a Windows telephony device
Set objConnection = CreateObject( "ActiveXperts.MM1Connection" ) ' Create a new instance of MM1Connection
objConnection.ProviderAPN = "wap.vodafone.co.uk" ' Use 'wap.vodafone.co.uk ' as access point name
Set objConnection = CreateObject( "ActiveXperts.MM1Connection" ) ' Create a new instance of MM1Connection
objConnection.LoadProviderConfig( "C:\Program Files\ActiveXperts\MMS Toolkit\Mmsc\Mm1\United Kingdom\Vodafone.mm1" )
WScript.Echo objConnection.ProviderAPN ' Displays: 'wap.vodafone.co.uk'
Set objConnection = CreateObject( "ActiveXperts.MM1Connection" ) ' Create a new instance of MM1Connection
objConnection.ProviderLogin = "wap.vodafone.co.uk " ' APN login
objConnection.ProviderPassword = "wap.vodafone.co.uk " ' APN password
Set objConnection = CreateObject( "ActiveXperts.MM1Connection" ) ' Create a new instance of MM1Connection
objConnection.LoadProviderConfig( "C:\Program Files\ActiveXperts\MMS Toolkit\Mmsc\Mm1\Germany\T-Mobile.mm1" )
WScript.Echo objConnection.ProviderLogin ' Displays: 't-mobil'
WScript.Echo objConnection.ProviderPassword ' Displays: 'mms'
Set objConnection = CreateObject( "ActiveXperts.MM1Connection" ) ' Create a new instance of MM1Connection
objConnection.ProviderWAPGateway = "212.183.137.12" ' Use '212.183.137.12' as WAP Gateway address
Set objConnection = CreateObject( "ActiveXperts.MM1Connection" ) ' Create a new instance of MM1Connection
objConnection.LoadProviderConfig( "C:\Program Files\ActiveXperts\MMS Toolkit\Mmsc\Mm1\United Kingdom\Vodafone.mm1" )
WScript.Echo objConnection.ProviderWAPGateway ' Displays: '212.183.137.12'
Set objConnection = CreateObject( "ActiveXperts.MM1Connection" ) ' Create a new instance of MM1Connection
objConnection.ProviderMMSC = "mms.vodafone.co.uk/servlets/mms" ' Use '212.183.137.12' as WAP Gateway address
Set objConnection = CreateObject( "ActiveXperts.MM1Connection" ) ' Create a new instance of MM1Connection
objConnection.LoadProviderConfig( "C:\Program Files\ActiveXperts\MMS Toolkit\Mmsc\Mm1\United Kingdom\Vodafone.mm1" )
WScript.Echo objConnection.ProviderMMSC ' Displays: 'mms.vodafone.co.uk/servlets/mms'
Set objConnection = CreateObject ( "ActiveXperts.MM1Connection" )
Set objMessage = CreateObject ( "ActiveXperts.MMSMessage" )
Set objSlide = CreateObject ( "ActiveXperts.MMSSlide" )
objSlide.AddAttachment( "logo.gif" )
objMessage.AddTo( "+4412345678" )
objMessage.AddSlide( objSlide )
...
objConnection.Device = "Falcom SAMBA 75 GSM/GPRS Modem"
objConnection.LoadProviderConfig( "C:\Program Files\ActiveXperts\MMS Toolkit\Mmsc\Mm1\United Kingdom\Vodafone.mm1" )
...
objConnection.Connect()
objConnection.Send ( objMessage )
WScript.Echo objConnection.ProviderResponse ' Show provider's last response
...
objConnection.Disconnect()
Set objConnection = CreateObject ( "ActiveXperts.MM1Connection" )
...
objConnection.Device = "Falcom SAMBA 75 GSM/GPRS Modem"
objConnection.LoadProviderConfig( "C:\Program Files\ActiveXperts\MMS Toolkit\Mmsc\Mm1\United Kingdom\Vodafone.mm1" )
...
objConnection.Connect()
...
WScript.Echo objConnection.LastError ' Show provider's last response
...
objConnection.Disconnect()
Set objConnection = CreateObject ( "ActiveXperts.MM1Connection" )
...
objConnection.LogFile = "C:\MMSLog.txt"
...
objConnection.Connect()
...
Set objConnection = CreateObject ( "ActiveXperts.MM1Connection" )
...
objConnection.Device = "Falcom SAMBA 75 GSM/GPRS Modem"
objConnection.Clear() ' Clear properties
WScript.Echo objConnection.Device ' Empty string ("") will be displayed
Set objConnection = CreateObject( "ActiveXperts.MM1Connection" ) ' Create a new instance of MM1Connection
WScript.Echo "Total #Windows telephony devices: " & objConnection.GetDeviceCount() ' Display total number oftelephony devices
Set objConnection = CreateObject( "ActiveXperts.MM1Connection" ) ' Create a new instance of MM1Connection
n = objConnection.GetDeviceCount() ' Set n to total number of telephony devices
For i = 0 to n-1 ' Iterate over all installed telephony devices
WScript.Echo "Device " & i & ": " & objConnection.GetDevice( i ) ' Display device name
Next
Set objConnection = CreateObject( "ActiveXperts.MM1Connection" ) ' Create a new instance of MM1Connection
If( objConnection.GetDeviceCount() > 0 )
objConnection.Device = objConnection.GetDevice( 0 ) ' Use the first telephony device
End If
Set objConnection = CreateObject( "ActiveXperts.MM1Connection" ) ' Create a new instance of MM1Connection
objConnection.EnterPin( "1234" ) ' Enter pincode: 1234
....
objConnection.Connect()
Next
Set objConnection = CreateObject( "ActiveXperts.MM1Connection" ) ' Create a new instance of MM1Connection
...
objConnection.Device = "Falcom SAMBA 75 GSM/GPRS Modem"
objConnection.LoadProviderConfig( "C:\Program Files\ActiveXperts\MMS Toolkit\Mmsc\Mm1\United Kingdom\Vodafone.mm1" )
' Load an MM1 file
WScript.Echo "ProviderAPN: " & objConnection.ProviderAPN ' Display property assigned by LoadProviderConfig
WScript.Echo "ProviderAPNAccount: " & objConnection.ProviderAPNAccount ' Display property assigned by LoadProviderConfig
WScript.Echo "ProviderAPNPassword: " & objConnection.ProviderAPNPassword ' Display property assigned by LoadProviderConfig
WScript.Echo "ProviderWAPGateway: " & objConnection.ProviderWAPGateway ' Display property assigned by LoadProviderConfig
WScript.Echo "ProviderMMSC: " & objConnection.ProviderMMSC ' Display property assigned by LoadProviderConfig
....
objConnection.Connect() ' Connect now
Set objConnection = CreateObject( "ActiveXperts.MM1Connection" ) ' Create a new instance of MM1Connection
...
objConnection.ProviderAPN = "wap.o2.co.uk" ' Assign provider property
objConnection.ProviderAPNAccount = "" ' Assign provider property
objConnection.ProviderAPNPassword = "" ' Assign provider property
objConnection.ProviderWAPGateway = "193.113.200.195" ' Assign provider property
objConnection.ProviderMMSC = "mmsc.mms.o2.co.uk:8002" ' Assign provider property
objConnection.SaveProviderConfig( "C:\My Providers\O2.mm1" ' Save MM1 file
Set objConnection = CreateObject( "ActiveXperts.MM1Connection" ) ' Create a new instance of MM1Connection
...
objConnection.Device = "Falcom SAMBA 75 GSM/GPRS Modem"
objConnection.LoadProviderConfig( "C:\Program Files\ActiveXperts\MMS Toolkit\Mmsc\Mm1\United Kingdom\Vodafone.mm1" )
' Load an MM1 file
objConnection.Connect() ' Connect now
WScript.Echo "Connect, result: " & objConnection.LastError ' Display the result of the Connect call now
...
objConnection.Disconnect() ' Disconnect now
Set objConnection = CreateObject( "ActiveXperts.MM1Connection" ) ' Create a new instance of MM1Connection
...
objConnection.Device = "Falcom SAMBA 75 GSM/GPRS Modem"
objConnection.LoadProviderConfig( "C:\Program Files\ActiveXperts\MMS Toolkit\Mmsc\Mm1\United Kingdom\Vodafone.mm1" )
' Load an MM1 file
objConnection.Connect() ' Connect now
WScript.Echo "Connect, result: " & objConnection.LastError ' Display the result of the Connect call now
...
objConnection.Disconnect() ' Disconnect now
Set objConnection = CreateObject( "ActiveXperts.MM1Connection" ) ' Create a new instance of MM1Connection
Set objMessage = CreateObject( "ActiveXperts.MMSMessage" )
Set objSlide = CreateObject( "ActiveXperts.MMSSlide" )
...
objSlide.AddAttachment( "logo.gif" )
objMessage.AddTo( "+4412345678" )
objMessage.AddSlide( objSlide )
...
objConnection.Device = "Falcom SAMBA 75 GSM/GPRS Modem"
objConnection.LoadProviderConfig( "C:\Program Files\ActiveXperts\MMS Toolkit\Mmsc\Mm1\United Kingdom\Vodafone.mm1" )
' Load an MM1 file
objConnection.Connect() ' Connect now
...
objConnection.Send ( objMessage )
...
WScript.Echo "Send, result: " & objConnection.LastError ' Display the result of the Connect call now
...
objConnection.Disconnect() ' Disconnect now
Set objSlide = CreateObject ( "ActiveXperts.MMSSlide" ) ' Create a new MMSSlide instance
objSlide.AddAttachment( "C:\Temp\File1.jpg" ) ' Add a multimedia file
WScript.Echo "LastError: " & objSlide.LastError & _ ' Show the result of 'AddText'
objSlide.GetErrorDescription( objSlide.LastError ) ' Show the verbose result of 'AddText'
Set objConnection = CreateObject ( "ActiveXperts.MM4Connection" ) ' Create a new instance of MM4Connection
Set objMessage = CreateObject ( "ActiveXperts.MMSMessage" ) ' Create a new instance of MMSMessage
Set objSlide = CreateObject ( "ActiveXperts.MMSSlide" ) ' Create a new instance of MMSSlide
Set objConstants = CreateObject ( "ActiveXperts.MMSConstants" ) ' Create a new instance of MMSConstants
' MMSlide: Add duration, attachments(s) and text(s)
objSlide.Clear()
objSlide.Duration = 10 ' Display this screen for 10 seconds
objSlide.AddAttachment( "logo.gif" ) ' Add a multimedia attachment
objSlide.AddText( "The ActiveXperts logo" ) ' Add a description
' MMSMessage: Set properties
objMessage.Clear() ' Clear the message object (good practise)
objMessage.Subject = "My Message" ' Subject of the message
objMessage.AddTo( "+4412345678" ) ' MMS recipient; phonenumbers and e-mail addresses allowed
' MMSMessage: Add slide
objMessage.AddSlide( objSlide ) ' Add slide to the message; you can add multiple slides
' MMS Connection: Set provider settings
objConnection.ProviderHost = "mmsc.o2.uk" ' Provider's hostname
objConnection.ProviderPort = 25 ' Provider's TCP port
objConnection.ProviderAccount = "MM4" ' Provider login (not required for all providers)
objConnection.ProviderPassword = "secret" ' Provider password (not required for all providers)
' MMS Connection: Send the MMSMessage, including one or more slides
objConnection.Send ( objMessage )
The above ProviderXYZ properties all depend on the MMS provider you are connecting to.
ActiveXperts has collected provider information for all major MMS providers all over the world.
These properties are stored in so called MM4 files; these MM4 files are shipped with the product, and are located in: <install-dir>\Mmsc\mm4>.
You can use a function 'LoadProviderConfig' to load all provider-depend information directly into the ProviderXYZ properties.
Set objConnection = CreateObject ( "ActiveXperts.MM4Connection" ) ' Create a new instance of MM4Connection
Set objMessage = CreateObject ( "ActiveXperts.MMSMessage" ) ' Create a new instance of MMSMessage
Set objSlide = CreateObject ( "ActiveXperts.MMSSlide" ) ' Create a new instance of MMSSlide
Set objConstants = CreateObject ( "ActiveXperts.MMSConstants" ) ' Create a new instance of MMSConstants
' MMSlide: Add duration, attachments(s) and text(s)
objSlide.Clear()
objSlide.Duration = 10 ' Display this screen for 10 seconds
objSlide.AddAttachment( "logo.gif" ) ' Add a multimedia attachment
objSlide.AddText( "The ActiveXperts logo" ) ' Add a description
' MMSMessage: Set properties
objMessage.Clear() ' Clear the message object (good practise)
objMessage.Subject = "My Message" ' Subject of the message
objMessage.AddTo( "+4412345678" ) ' MMS recipient; phonenumbers and e-mail addresses allowed
' MMSMessage: Add slide
objMessage.AddSlide( objSlide ) ' Add slide to the message; you can add multiple slides
' MMS Connection: Load provider properties
objConnection.LoadProviderConfig( "C:\Program Files\ActiveXperts\MMS Toolkit\Mmsc\mm4\United Kingdom\Vodafone.mm4" )
' MMS Connection: Send the MMSMessage, including one or more slides
objConnection.Send ( objMessage )
|
|
Set objConnection = CreateObject( "ActiveXperts.MM4Connection" ) ' Create a new instance of MM4Connection
WScript.Echo "Version: " & objConnection.Version ' Display version information
Set objConnection = CreateObject( "ActiveXperts.MM4Connection" ) ' Create a new instance of MM4Connection
WScript.Echo "ExpirationDate: " & objConnection.ExpirationDate ' Display expiration information
Set objConnection = CreateObject( "ActiveXperts.MM4Connection" ) ' Create a new instance of MM4Connection
objConnection.ProviderHost = "mmsc.activexperts.com" ' Set the providers hostname
objConnection.ProviderPort = 8025 ' Set the providers TCP port
Set objConnection = CreateObject( "ActiveXperts.MM4Connection" ) ' Create a new instance of MM4Connection
objConnection.ProviderHost = "mmsc.activexperts.com" ' Set the providers hostname
objConnection.ProviderPort = 8025 ' Set the providers TCP port
Set objConnection = CreateObject( "ActiveXperts.MM4Connection" ) ' Create a new instance of MM4Connection
objConnection.ProviderLogin = "MM4 " ' login
objConnection.ProviderPassword = "secret " ' password
Set objConnection = CreateObject( "ActiveXperts.MM4Connection" ) ' Create a new instance of MM4Connection
objConnection.LoadProviderConfig( "C:\Program Files\ActiveXperts\MMS Toolkit\Mmsc\Mm4\Germany\T-Mobile.mm4"
WScript.Echo objConnection.ProviderLogin ' Displays: 't-mobil'
WScript.Echo objConnection.ProviderPassword ' Displays: 'mms'
Set objConnection = CreateObject( "ActiveXperts.MM4Connection" ) ' Create a new instance of MM4Connection
objConnection.ProviderHost = "mmsc.activexperts.com" ' Set the providers hostname
objConnection.ProviderPort = 8025 ' Set the providers TCP port
objConnection.ProviderDomain = "activexperts.com" ' Set the providers domainname
Set objConnection = CreateObject( "ActiveXperts.MM4Connection" ) ' Create a new MM4Connection instance
Set objConstants = CreateObject( "ActiveXperts.MMSConstants" ) ' Create a new MMSConstants instance
...
objConnection.ProviderHost = "mmsc.activexperts.com" ' Set the providers hostname
objConnection.ProviderPort = 8025 ' Set the providers TCP port
objConnection.ProviderMM4Variation = objConstants.asMMS_MM4FORMAT_MM4 ' Use the 3GPP MM4 Protocol
...
objConnection.Send ( objMessage )
Set objConnection = CreateObject( "ActiveXperts.MM4Connection" ) ' Create a new MM4Connection instance
Set objConstants = CreateObject( "ActiveXperts.MMSConstants" ) ' Create a new MMSConstants instance
...
objConnection.ProviderHost = "mmsc.activexperts.com" ' Set the providers hostname
objConnection.ProviderPort = 8025 ' Set the providers TCP port
objConnection.ProviderMM4Version = objConstants.asMMS_VERSION_5_2_0 ' MM4 Version
...
objConnection.Send ( objMessage )
Set objConnection = CreateObject ( "ActiveXperts.MM4Connection" )
Set objMessage = CreateObject ( "ActiveXperts.MMSMessage" )
Set objSlide = CreateObject ( "ActiveXperts.MMSSlide" )
objSlide.AddAttachment( "logo.gif" )
objMessage.AddTo( "+4412345678" )
objMessage.AddSlide( objSlide )
...
objConnection.LoadProviderConfig ( "C:\Program Files\ActiveXperts\MMS Toolkit\Mmsc\MM4\MyProvider.MM4" )
...
objConnection.Send ( objMessage )
WScript.Echo objConnection.ProviderResponse ' Show provider's last response
Set objConnection = CreateObject ( "ActiveXperts.MM4Connection" )
...
objConnection.LoadProviderConfig ( "C:\Program Files\ActiveXperts\MMS Toolkit\Mmsc\MM4\MyProvider.MM4" )
...
objConnection.Send ( objMessage )
WScript.Echo objConnection.LastError ' Show provider's last response
Set objConnection = CreateObject ( "ActiveXperts.MM4Connection" )
...
objConnection.LogFile = "C:\MM4Log.txt"
...
objConnection.Send ( objMessage )
...
Set objConnection = CreateObject ( "ActiveXperts.MM4Connection" )
...
objConnection.ProviderAccount = "MM4"
objConnection.Clear() ' Clear properties
WScript.Echo objConnection.ProviderAccount ' Empty string ("") will be displayed
Set objConnection = CreateObject( "ActiveXperts.MM4Connection" ) ' Create a new instance of MM1Connection
...
objConnection.LoadProviderConfig( "C:\Program Files\ActiveXperts\MMS Toolkit\Mmsc\mm4\MyProvider.mm4" )
' Load an MM4 file
WScript.Echo "ProviderHost: " & objConnection.ProviderHost ' Display property assigned by LoadProviderConfig
WScript.Echo "ProviderPort: " & objConnection.ProviderPort ' Display property assigned by LoadProviderConfig
WScript.Echo "ProviderAccount: " & objConnection.ProviderAccount ' Display property assigned by LoadProviderConfig
WScript.Echo "ProviderPassword: " & objConnection.ProviderPassword ' Display property assigned by LoadProviderConfig
....
objConnection.Send ( objMessage ) ' Send now
Set objConnection = CreateObject( "ActiveXperts.MM4Connection" ) ' Create a new instance of MM4Connection
...
objConnection.ProviderHost = "mmsc.o2.co.uk" ' Assign provider property
objConnection.ProviderPort = 8025 ' Assign provider property
objConnection.ProviderAccount = "o2" ' Assign provider property
objConnection.ProviderPassword = "o2" ' Assign provider property
objConnection.SaveProviderConfig( "C:\My Providers\O2.mm4" ' Save MM4 file
Set objConnection = CreateObject( "ActiveXperts.MM4Connection" ) ' Create a new instance of MM4Connection
Set objMessage = CreateObject( "ActiveXperts.MMSMessage" )
...
objMessage.LoadFromFile ( "C:\MyMessages\MyMMS.mms" )
...
objConnection.LoadProviderConfig( "C:\Program Files\ActiveXperts\MMS Toolkit\Mmsc\Mm4\United Kingdom\Vodafone.mm4" )
... ' Load an MM4 file
objConnection.Send ( objMessage ) ' Send the message
WScript.Echo "Connect, result: " & objConnection.LastError ' Display the result of the Send call now
Set objSlide = CreateObject ( "ActiveXperts.MMSSlide" ) ' Create a new MMSSlide instance
objSlide.AddAttachment( "C:\Temp\File1.jpg" ) ' Add a multimedia file
WScript.Echo "LastError: " & objSlide.LastError & _ ' Show the result of 'AddText'
objSlide.GetErrorDescription( objSlide.LastError ) ' Show the verbose result of 'AddText'
Set objConnection = CreateObject ( "ActiveXperts.MM7Connection" ) ' Create a new instance of MM7Connection
Set objMessage = CreateObject ( "ActiveXperts.MMSMessage" ) ' Create a new instance of MMSMessage
Set objSlide = CreateObject ( "ActiveXperts.MMSSlide" ) ' Create a new instance of MMSSlide
Set objConstants = CreateObject ( "ActiveXperts.MMSConstants" ) ' Create a new instance of MMSConstants
' MMSlide: Add duration, attachments(s) and text(s)
objSlide.Clear()
objSlide.Duration = 10 ' Display this screen for 10 seconds
objSlide.AddAttachment( "logo.gif" ) ' Add a multimedia attachment
objSlide.AddText( "The ActiveXperts logo" ) ' Add a description
' MMSMessage: Set properties
objMessage.Clear() ' Clear the message object (good practise)
objMessage.Subject = "My Message" ' Subject of the message
objMessage.AddTo( "+4412345678" ) ' MMS recipient; phonenumbers and e-mail addresses allowed
' MMSMessage: Add slide
objMessage.AddSlide( objSlide ) ' Add slide to the message; you can add multiple slides
' MMS Connection: Set provider settings
objConnection.ProviderURL = "http://mmsc.o2.uk/mm7" ' Provider's URL
objConnection.ProviderAccount = "mm7" ' Provider login (not required for all providers)
objConnection.ProviderPassword = "secret" ' Provider password (not required for all providers)
' MMS Connection: Send the MMSMessage, including one or more slides
objConnection.Send ( objMessage )
The above ProviderXYZ properties all depend on the MMS provider you are connecting to.
ActiveXperts has collected provider information for all major MMS providers all over the world.
These properties are stored in so called MM7 files; these MM7 files are shipped with the product, and are located in: <install-dir>\Mmsc\Mm7>.
You can use a function 'LoadProviderConfig' to load all provider-depend information directly into the ProviderXYZ properties.
Set objConnection = CreateObject ( "ActiveXperts.MM7Connection" ) ' Create a new instance of MM7Connection
Set objMessage = CreateObject ( "ActiveXperts.MMSMessage" ) ' Create a new instance of MMSMessage
Set objSlide = CreateObject ( "ActiveXperts.MMSSlide" ) ' Create a new instance of MMSSlide
Set objConstants = CreateObject ( "ActiveXperts.MMSConstants" ) ' Create a new instance of MMSConstants
' MMSlide: Add duration, attachments(s) and text(s)
objSlide.Clear()
objSlide.Duration = 10 ' Display this screen for 10 seconds
objSlide.AddAttachment( "logo.gif" ) ' Add a multimedia attachment
objSlide.AddText( "The ActiveXperts logo" ) ' Add a description
' MMSMessage: Set properties
objMessage.Clear() ' Clear the message object (good practise)
objMessage.Subject = "My Message" ' Subject of the message
objMessage.AddTo( "+4412345678" ) ' MMS recipient; phonenumbers and e-mail addresses allowed
' MMSMessage: Add slide
objMessage.AddSlide( objSlide ) ' Add slide to the message; you can add multiple slides
' MMS Connection: Load provider properties
objConnection.LoadProviderConfig( "C:\Program Files\ActiveXperts\MMS Toolkit\Mmsc\Mm7\United Kingdom\Vodafone.mm7" )
' MMS Connection: Send the MMSMessage, including one or more slides
objConnection.Send ( objMessage )
|
|
Set objConnection = CreateObject( "ActiveXperts.MM7Connection" ) ' Create a new instance of MM7Connection
WScript.Echo "Version: " & objConnection.Version ' Display version information
Set objConnection = CreateObject( "ActiveXperts.MM7Connection" ) ' Create a new instance of MM7Connection
WScript.Echo "ExpirationDate: " & objConnection.ExpirationDate ' Display expiration information
Set objConnection = CreateObject( "ActiveXperts.MM7Connection" ) ' Create a new instance of MM7Connection
objConnection.ProviderURL = "http://mmsc.activexperts.com:8081/mm7" ' Set the providers URL
Set objConnection = CreateObject( "ActiveXperts.MM7Connection" ) ' Create a new instance of MM7Connection
objConnection.ProviderLogin = "mm7 " ' login
objConnection.ProviderPassword = "secret " ' password
Set objConnection = CreateObject( "ActiveXperts.MM7Connection" ) ' Create a new instance of MM7Connection
objConnection.LoadProviderConfig( "C:\Program Files\ActiveXperts\MMS Toolkit\Mmsc\Mm1\Germany\T-Mobile.mm7"
WScript.Echo objConnection.ProviderLogin ' Displays: 't-mobil'
WScript.Echo objConnection.ProviderPassword ' Displays: 'mms'
Set objConnection = CreateObject( "ActiveXperts.MM7Connection" ) ' Create a new MM7Connection instance
objConnection.ProviderHost = "mmsc.activexperts-labs.com/mm7" ' URL of the HTTP-POST provider
objConnection.ProviderUseSSL = True ' Use SSL, i.e. https:// instead of http://
...
objConnection.Send ( objMessage ) ' Submit the MMS message using SSL
Set objConnection = CreateObject( "ActiveXperts.MM7Connection" ) ' Create a new MM7Connection instance
objConnection.ProviderURL = "http://mmsc.activexperts.com:8081/mm7" ' URL of the provider
objConnection.ProxyServer = "proxy01.intranet.dom" ' Access through a proxy
objConnection.ProxyAccount = "mjackson" ' Proxy authentication required
objConnection.ProxyPassword = "mjackson1" ' Proxy authentication required
...
objConnection.Send ( objMessage )
Set objConnection = CreateObject( "ActiveXperts.MM7Connection" ) ' Create a new MM7Connection instance
Set objConstants = CreateObject( "ActiveXperts.MMSConstants" ) ' Create a new MMSConstants instance
...
objConnection.ProviderURL = "http://mmsc.activexperts.com:8081/mm7" ' URL of the provider
objConnection.ProviderMM7Variation = objConstants.asMMS_MM7VARIATION_3GPP ' Use the 3GPP MM7 Protocol
...
objConnection.Send ( objMessage )
Set objConnection = CreateObject( "ActiveXperts.MM7Connection" ) ' Create a new MM7Connection instance
Set objConstants = CreateObject( "ActiveXperts.MMSConstants" ) ' Create a new MMSConstants instance
...
objConnection.ProviderURL = "http://mmsc.activexperts.com:8081/mm7" ' URL of the provider
objConnection.ProviderMM7Version = objConstants.asMMS_VERSION_5_2_0 ' MM7 Version
...
objConnection.Send ( objMessage )
Set objConnection = CreateObject( "ActiveXperts.MM7Connection" ) ' Create a new MM7Connection instance
Set objConstants = CreateObject( "ActiveXperts.MMSConstants" ) ' Create a new MMSConstants instance
...
objConnection.ProviderURL = "http://mmsc.activexperts.com:8081/mm7" ' URL of the provider
objConnection.ProviderMM7Schema = objConstants.asMMS_SCHEMA_REL5_MM7_1_1 ' MM7 XML Schema
...
objConnection.Send ( objMessage )
Set objConnection = CreateObject( "ActiveXperts.MM7Connection" ) ' Create a new MM7Connection instance
objConnection.ProviderURL = "http://mmsc.activexperts.com:8081/mm7" ' URL of the provider
objConnection.ProviderServiceCode = "ActiveXperts" ' Servicecode
...
objConnection.Send ( objMessage )
Set objConnection = CreateObject( "ActiveXperts.MM7Connection" ) ' Create a new MM7Connection instance
objConnection.ProviderURL = "http://mmsc.activexperts.com:8081/mm7" ' URL of the provider
objConnection.ProviderVASID = "00186662" ' VASID
...
objConnection.Send ( objMessage )
Set objConnection = CreateObject( "ActiveXperts.MM7Connection" ) ' Create a new MM7Connection instance
objConnection.ProviderURL = "http://mmsc.activexperts.com:8081/mm7" ' URL of the provider
objConnection.ProviderVASPID = "MMS" ' VASPID
...
objConnection.Send ( objMessage )
Set objConnection = CreateObject ( "ActiveXperts.MM7Connection" )
Set objMessage = CreateObject ( "ActiveXperts.MMSMessage" )
Set objSlide = CreateObject ( "ActiveXperts.MMSSlide" )
objSlide.AddAttachment( "logo.gif" )
objMessage.AddTo( "+4412345678" )
objMessage.AddSlide( objSlide )
...
objConnection.LoadProviderConfig ( "C:\Program Files\ActiveXperts\MMS Toolkit\Mmsc\Mm7\MyProvider.mm7" )
...
objConnection.Send ( objMessage )
WScript.Echo objConnection.ProviderResponse ' Show provider's last response
Set objConnection = CreateObject ( "ActiveXperts.MM7Connection" )
Set objMessage = CreateObject ( "ActiveXperts.MMSMessage" )
Set objSlide = CreateObject ( "ActiveXperts.MMSSlide" )
objSlide.AddAttachment( "logo.gif" )
objMessage.AddTo( "+4412345678" )
objMessage.AddSlide( objSlide )
...
objConnection.LoadProviderConfig ( "C:\Program Files\ActiveXperts\MMS Toolkit\Mmsc\Mm7\MyProvider.mm7" )
...
objConnection.Send ( objMessage )
WScript.Echo objConnection.MessageID ' Message ID of the last message
Set objConnection = CreateObject ( "ActiveXperts.MM7Connection" )
...
objConnection.LoadProviderConfig ( "C:\Program Files\ActiveXperts\MMS Toolkit\Mmsc\Mm7\MyProvider.mm7" )
...
objConnection.Send ( objMessage )
WScript.Echo objConnection.LastError ' Show provider's last response
Set objConnection = CreateObject ( "ActiveXperts.MM7Connection" )
...
objConnection.LogFile = "C:\MMSLog.txt"
...
objConnection.Send ( objMessage )
...
Set objConnection = CreateObject ( "ActiveXperts.MM7Connection" )
...
objConnection.ProviderAccount = "mm7"
objConnection.Clear() ' Clear properties
WScript.Echo objConnection.ProviderAccount ' Empty string ("") will be displayed
Set objConnection = CreateObject( "ActiveXperts.MM7Connection" ) ' Create a new instance of MM1Connection
...
objConnection.LoadProviderConfig( "C:\Program Files\ActiveXperts\MMS Toolkit\Mmsc\Mm7\MyProvider.mm7" )
' Load an MM7 file
WScript.Echo "ProviderURL: " & objConnection.ProviderURL ' Display property assigned by LoadProviderConfig
WScript.Echo "ProviderAccount: " & objConnection.ProviderAccount ' Display property assigned by LoadProviderConfig
WScript.Echo "ProviderPassword: " & objConnection.ProviderPassword ' Display property assigned by LoadProviderConfig
WScript.Echo "ProviderUseSSL: " & objConnection.ProviderUseSSL ' Display property assigned by LoadProviderConfig
....
objConnection.Send ( objMessage ) ' Send now
Set objConnection = CreateObject( "ActiveXperts.MM7Connection" ) ' Create a new instance of MM7Connection
...
objConnection.Provider = "http://mmsc.o2.co.uk/mm7" ' Assign provider property
objConnection.ProviderAccount = "o2" ' Assign provider property
objConnection.ProviderPassword = "o2" ' Assign provider property
objConnection.SaveProviderConfig( "C:\My Providers\O2.mm7" ' Save MM7 file
Set objConnection = CreateObject( "ActiveXperts.MM7Connection" ) ' Create a new instance of MM1Connection
Set objMessage = CreateObject( "ActiveXperts.MMSMessage" )
...
objMessage.LoadFromFile ( "C:\MyMessages\MyMMS.mms" )
...
objConnection.LoadProviderConfig( "C:\Program Files\ActiveXperts\MMS Toolkit\Mmsc\Mm1\United Kingdom\Vodafone.mm7" )
... ' Load an MM7 file
objConnection.Send ( objMessage ) ' Send the message
WScript.Echo "Connect, result: " & objConnection.LastError ' Display the result of the Send call now
Set objSlide = CreateObject ( "ActiveXperts.MMSSlide" ) ' Create a new MMSSlide instance
objSlide.AddAttachment( "C:\Temp\File1.jpg" ) ' Add a multimedia file
WScript.Echo "LastError: " & objSlide.LastError & _ ' Show the result of 'AddText'
objSlide.GetErrorDescription( objSlide.LastError ) ' Show the verbose result of 'AddText'
| Website: | http://www.activexperts.com/support | |
| Email: | support@activexperts.com | |
Set objConnection = CreateObject("ActiveXperts.MM1Connection")
objConnection.Activate "<your registrationkey>"
If you prefer, you can also use the Activate function of the MM1Connection
or MM7Connection objects.Key: HKEY_LOCAL_MACHINE\Software\ActiveXperts\MMS Toolkit\RegistrationKey Type: REG_SZ Value: XXXXX-XXXXX-XXXXXwhere 'XXXXX-XXXXX-XXXXX' is the registration code issued to you.
PLEASE READ THIS SOFTWARE LICENSE AGREEMENT CAREFULLY BEFORE
DOWNLOADING OR USING THE SOFTWARE. BY CLICKING ON THE
"ACCEPT" BUTTON, OPENING THE PACKAGE, DOWNLOADING THE PRODUCT,
OR USING THE EQUIPMENT THAT CONTAINS THIS PRODUCT, YOU ARE
CONSENTING TO BE BOUND BY THIS AGREEMENT. IF YOU DO NOT AGREE
TO ALL OF THE TERMS OF THIS AGREEMENT, CLICK THE "DO NOT
ACCEPT" BUTTON AND THE INSTALLATION PROCESS WILL NOT CONTINUE,
RETURN THE PRODUCT TO THE PLACE OF PURCHASE FOR A FULL REFUND,
OR DO NOT DOWNLOAD THE PRODUCT.
GENERAL
In this Software License Agreement:
(i) "ActiveXperts" means ActiveXperts Software B.V.
(ii) "Customer" means the individual(s), organization or business entity
buying a license of the Software from ActiveXperts or its Distributors
or its Resellers.
(iii) "Software" means computer programs (and their storage medium)
supplied by ActiveXperts and known collectively as "MMS Toolkit"
in which ActiveXperts has property rights and any user manuals,
operating instructions, brochures and all other documentation relating
to the said computer programs (the expression "Software" to include all
or any part or any combination of Software).
1. LICENSE GRANT
ActiveXperts grants Customer the following rights provided that you
comply with all terms and conditions of this License Agreement:
(a) Installation and use. Customer may install, use, access, display and
run one copy of the Software on a single computer, such as a
workstation, terminal or other device ("Workstation Computer"). A
"License Pack" allows you to install, use, access, display and run
additional copies of the Software up to the number of "Licensed Copies"
specified above.
(b) Reservation of Rights. ActiveXperts reserves all rights not
expressly granted to you in this License Agreement.
2. UPGRADES AND SUPPLEMENTS
To use a product identified as an upgrade, you must first be licensed
for the Software as eligible for the upgrade. After upgrading, Customer
may no longer use the product that formed the basis for Customer's
upgrade eligibility.
This License Agreement applies to updates or supplements to the original
Software provided by ActiveXperts, unless we provide other terms along
with the update or supplement.
3. LIMITATION ON REVERSE ENGINEERING,DECOMPILATION, AND DISASSEMBLY
Customer may not reverse engineer, decompile, or disassemble the
Software, except and only to the extent that it is expressly permitted
by applicable law notwithstanding this limitation.
4. TERMINATION
Without prejudice to any other rights, ActiveXperts may cancel this
License Agreement if Customer does not abide by the terms and conditions
of this License Agreement, in which case you must destroy all copies of
the Software and all of its component parts.
5. NOT FOR RESALE SOFTWARE
Software identified as "Not for Resale" or "NFR," may not be resold,
transferred or used for any purpose other than demonstration, test or
evaluation.
6. LIMITED WARRANTY
ActiveXperts warrants that for a period of ninety (90) days from the
date of shipment from ActiveXperts: (i) the media on which the Software
is furnished will be free of defects in materials and workmanship under
normal use; and (ii) the Software substantially conforms to its
published specifications. Except for the foregoing, the Software is
provided AS IS. This limited warranty extends only to Customer as the
original licensee. Customer's exclusive remedy and the entire liability
of ActiveXperts and its suppliers under this limited warranty will be,
at ActiveXperts or its service center's option, repair, replacement, or
refund of the Software if reported (or, upon request, returned) to the
party supplying the Software to Customer. In no event does ActiveXperts
warrant that the Software is error free or that Customer will be able to
operate the Software without problems or interruptions.
This warranty does not apply if the software (a) has been altered,
except by ActiveXperts, (b) has not been installed, operated, repaired,
or maintained in accordance with instructions supplied by ActiveXperts,
(c) has been subjected to abnormal physical or electrical stress,
misuse, negligence, or accident, or (d) is used in ultrahazardous
activities.
7. LIMITATION OF LIABILITY AND REMEDIES.
Notwithstanding any damages that you might incur for any reason
whatsoever (including, without limitation, all damages referenced above
and all direct or general damages), the entire liability of ActiveXperts
and any of its suppliers under any provision of this License Agreement
and your exclusive remedy for all of the foregoing (except for any
remedy of repair or replacement elected by ActiveXperts with respect to
any breach of the Limited Warranty) shall be limited to the greater of
the amount actually paid by you for the Software or U.S.$5.00. The
foregoing limitations, exclusions and disclaimers (including Sections 4,
5 and 6 above) shall apply to the maximum extent permitted by applicable
law, even if any remedy fails its essential purpose.
8. ENTIRE AGREEMENT
This License Agreement (including any addendum or amendment to this
License Agreements which is included with the Software) are the entire
agreement between you and ActiveXperts relating to the Software and the
support services (if any) and they supersede all prior or
contemporaneous oral or written communications, proposals and
representations with respect to the Software or any other subject matter
covered by this License Agreement. To the extent the terms of any
ActiveXperts policies or programs for support services conflict with the
terms of this License Agreement, the terms of this License Agreement
shall control.
This Agreement shall be construed in accordance with the laws of The
Netherlands and the Dutch courts shall have sole jurisdiction in any
dispute relating to these conditions. If any part of these conditions
shall be or become invalid or unenforceable in any way and to any extent
by any existing or future rule of law, order, statute or regulation
applicable thereto, then the same shall to the extent of such invalidity
or enforceability be deemed to have been deleted from the conditions
which shall remain in full force and effect as regards all other
provisions.
9. Copyright
The Software is protected by copyright and other intellectual property
laws and treaties. ActiveXperts or its suppliers own the title,
copyright, and other intellectual property rights in the Software. The
Software is licensed, not sold.