You are here:

ActiveXperts.com > SMS and MMS Toolkit > Objects > MmsProtocolMm4
ActiveXperts SMS and MMS ToolkitAdd SMS and MMS capabilities to any Windows or .NET application

Quicklinks

SMS and MMS Toolkit - MmsProtocolMm4 object

Overview

The MmsProtocolMm4 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 MM4 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 SMTP-compliant MMS provider

Set objMm4Protocol = CreateObject("ActiveXperts.MmsProtocolMm4")
Set objMmsMessage  = CreateObject("ActiveXperts.MmsMessage")    
Set objMmsSlide    = CreateObject("ActiveXperts.MmsSlide")    
Set objConstants   = CreateObject("ActiveXperts.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" )                ' MMS recipient; phonenumbers & e-mail allowed
    
' MmsMessage: Add slide
objMmsMessage.AddSlide( objMmsSlide )                      ' Add(multiple) slide to message
   
' MMS Connection: Set provider settings
objMm4Protocol.ProviderHost = "mmsc.o2.uk"                 ' Provider's hostname
objMm4Protocol.ProviderPort = 25                           ' Provider's TCP port
objMm4Protocol.ProviderAccount = "MM4"                     ' Provider login  (optional)
objMm4Protocol.ProviderPassword = "secret"                 ' Provider password (optional)
    
' MMS Connection: Send the MmsMessage, including one or more slides
objMm4Protocol.Send ( objMmsMessage )

VB .NET sample: Send an MMS message through an SMTP-compliant MMS provider

Imports AMmsCtrl

Module Module1
   
  Sub Main()

    Dim objMm4Protocol As MmsProtocolMm4 = New MmsProtocolMm4 ' 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
    objMm4Protocol.ProviderHost = "mmsc.o2.uk"             ' Provider's hostname
    objMm4Protocol.ProviderPort = 25                       ' Provider's TCP port
    objMm4Protocol.ProviderAccount = "MM4"                 ' Provider login (optional)
    objMm4Protocol.ProviderPassword = "secret"             ' Provider password (optional)

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

    Console.WriteLine("Send, result: " & objMm4Protocol.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.