Shortcut Menu

Skip

Main Navigation

Choose your language

You are here:

ActiveXperts.com > SMS and MMS Toolkit > Objects > MmsProtocolMm7

ActiveXperts SMS and MMS Toolkit Add SMS and MMS capabilities to any Windows or .NET application

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