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
|