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:

SmsProtocolGsm - Send and receive SMS messages using a GSM modem or a modem-capable GSM phone.
SmsProtocolSmpp - Send and receive SMS messages via an SMPP provider.
SmsProtocolHttp - Send (bulk) SMS messages through an SMS/HTTP compliant SMS provider over the internet/VPN.
SmsProtocolDialup - Send SMS messages using a normal Hayes compatible modem (1200 bps or higher).
MmsProtocolMM1 - Send and receive MMS messages via a GPRS modem through WAP (wireless application protocol).
MmsProtocolMM4 - Send MMS messages via an SMTP server. The protocol is based on SMTP, messages are MIME encoded.
MmsProtocolMM7 - Send and receive MMS messages via SOAP/XML using HTTP as the transport protocol.
PagerProtocolSnpp - Send pager messages via an SNPP provider through the internet/VPN.

Sample code

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


    Set objMm7Protocol = CreateObject("ActiveXperts.MmsProtocolMm7") ' Create a new instance of MmsProtocolMm7
    Set objMmsMessage  = CreateObject("ActiveXperts.MmsMessage")     ' Create a new instance of MmsMessage
    Set objMmsSlide    = CreateObject("ActiveXperts.MmsSlide")       ' Create a new instance of MmsSlide
    Set objConstants   = CreateObject("ActiveXperts.MmsConstants")   ' Create a new 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 and e-mail addresses allowed
    
    ' 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    (not required for all providers)
    objMm7Protocol.ProviderWebPassword = "secret"                    ' Provider password (not required for all providers)
    
    ' 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.AddTo("+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.ProviderAccount = "MM7"                        ' Provider login    (not required for all providers)
       objMm7Protocol.ProviderPassword = "secret"                    ' Provider password (not required for all providers)

       ' 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.