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
|