Dim DMSMS As Object
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.",, "Envío Correcto")
                        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 -