Dim DMSMS As Object
Set DMSMS = CreateObject ("dcXMLSend.XMLSendClass")

DMSMS.Usuario = “nombre_de_usuario”
DMSMS.Clave = “contraseña_de_acceso”
DMSMS.Remitente = "Remitente personalizado"

DMSMS.XMLMensajes.MensajesSMS.Add "1", "0034xxxxxxxxx", "SMS pruebas", ""
DMSMS.XMLMensajes.MensajesWAP.Add "4", "0034xxxxxxxxx", "Melodia", "http://www.mipagina.com/cancion.mp3", ""

DMSMS.SendXML "", ""

If DMSMS.RXAutentificacion.Resultado="1" Then
            Dim MSG As Object
            For Each MSG In DMSMS.XMLMensajes.MensajesSMS
                        If MSG.Resultado Then
                                   MsgBox "OK: Mensaje (" & MSG.Key & ") enviado."
                        Else
                                   MsgBox "ERROR: Mensaje (" & MSG.Key & "): " & MSG.Comentario, , "Envío Fallido "
                        End If
            Next
Else
           MsgBox DMSMS.RXAutentificacion.Comentario, , "Error de Acceso "
End If

 


 

- sms recibidos - descom mensajes sms - hosting - consultoria - desarrollo - backup -