On 1/1/2020, Auron Software B.V. acquired ActiveXperts SMS Component and will continue developing, selling and supporting the product under it's own brand name Auron SMS Component. Maintenance contracts will be continued directly by Auron Software as of 1/1/2020.


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:

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.