SMS and MMS Toolkit - MmsProtocolMm7 object

Overview

The MmsProtocolMm7 object provides functionality to connect to an MMS provider over an HTTP/SOAP connection and deliver an MMS message.

To be able to connect to an MMSC provider, you need a subscription to an MM7 compliant MMS provider.

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

Sample code

VBScript sample: Send an MMS message through an XML/SOAP compliant MMS provider

Set objMm7Protocol = CreateObject("ActiveXperts.MmsProtocolMm7") ' Create instance of MmsProtocolMm7
Set objMmsMessage = CreateObject("ActiveXperts.MmsMessage") ' Create instance of MmsMessage
Set objMmsSlide = CreateObject("ActiveXperts.MmsSlide") ' Create instance of MmsSlide
Set objConstants = CreateObject("ActiveXperts.MmsConstants") ' Create instance of MmsConstants
   
' MmsSlide: Add duration, attachments(s) and text(s)
objMmsSlide.Clear()
objMmsSlide.Duration = 10 ' Display this screen for 10 seconds
objMmsSlide.AddAttachment( "logo.gif" ) ' Add a multimedia attachment
objMmsSlide.AddText( "The ActiveXperts logo" ) ' Add a description
  
' MmsMessage: Set properties
objMmsMessage.Clear() ' Clear the message object (good practise)
objMmsMessage.Subject = "My Message" ' Subject of the message
objMmsMessage.AddRecipient( "+4412345678",objConstants.asMMS_RECIPIENT_TO) ' MMS recipient ( phonenumbers or e-mail)
    
' MmsMessage: Add slide
objMmsMessage.AddSlide( objMmsSlide ) ' Add slide to the message; you can add multiple slides
   
' MMS Connection: Set provider settings
objMm7Protocol.ProviderURL = "http://mmsc.o2.uk/mm7" ' Provider's URL
objMm7Protocol.ProviderWebAccount = "mm7" ' Provider login (optional)
objMm7Protocol.ProviderWebPassword = "secret" ' Provider password (optional)
    
' MMS Connection: Send the MmsMessage, including one or more slides
objMm7Protocol.Send ( objMmsMessage )

VB .NET sample: Send an MMS message through an XML/SOAP compliant MMS provider

Imports AMmsCtrl

   Module Module1
   
     Sub Main()

       Dim objMm7Protocol As MmsProtocolMm7 = New MmsProtocolMm7 ' Create instance of COM Object
       Dim objMmsMessage As MmsMessage = New MmsMessage ' Create instance of COM Object
       Dim objMmsSlide As MmsSlide = New MmsSlide ' Create instance of COM Object
       Dim objConstants As MmsConstants = New MmsConstants ' Create instance of COM Object

 ' MMSlide: Add duration, attachments(s) and text(s)
       objMmsSlide.Clear()
       objMmsSlide.Duration = 10 ' Display this screen for 10 seconds
       objMmsSlide.AddAttachment("logo.gif") ' Add a multimedia attachment
       objMmsSlide.AddText("The ActiveXperts logo") ' Add a description

 ' MmsMessage: Set properties
       objMmsMessage.Clear() ' Clear the message object (good practise)
       objMmsMessage.Subject = "My Message" ' Subject of the message
       objMmsMessage.AddRecipient("+4412345678") ' MMS recipient; phonenumber/ e-mail allowed

 ' MmsMessage: Add slide
       objMmsMessage.AddSlide(objMmsSlide) ' Add slide; multiple slides allowed

 ' MMS Connection: Set provider settings
       objMm7Protocol.ProviderHost = "mmsc.o2.uk" ' Provider's hostname
       objMm7Protocol.ProviderPort = 25 ' Provider's TCP port
       objMm7Protocol.ProviderWebAccount = "MM7" ' Provider login (optional)
       objMm7Protocol.ProviderWebPassword = "secret" ' Provider password (optional)

 ' MMS Connection: Send the MmsMessage, including one or more slides
       objMm7Protocol.Send(objMmsMessage)

       Console.WriteLine("Send, result: " & objMm7Protocol.LastError.ToString () )
     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.