Envío de SMS mediante interfaz DLL
Esta DLL se encarga de formar la trama de envío con la autenticación
de su cuenta y el o los mensajes que va a enviar.
Pulse aquí para descargar la DLL de Descom
Mensajes SMS, documentación y ejemplos de uso.
Localización de la DLL instalada con la aplicación:
C:\WINDOWS\system32\dcXMLSend.dll
LLAMADAS BÁSICAS DE LA DLL PARA REALIZAR ENVÍO
Creación del objeto e instancia:
Dim oDMEnvio As Object
Set oDMEnvio = Nothing
Set oDMEnvio = CreateObject("dcXMLSend.XMLSendClass");
Configurar datos de autenticación:
oDMEnvio.Usuario = nombre_de_usuario
oDMEnvio.Clave = contraseña_de_acceso
oDMEnvio.Remitente = "Remitente personalizado" *
* Puede personalizar sus envíos con un remitente personalizado
para cada SMS,
puede usar su número de móvil registrado en formato no internacional
(ej: 609111222) o una cadena de texto, en este caso deberá consultar
antes con plataformasms@descom.es
para configurar su remitente.
Configurar datos de envío:
oDMEnvio.EnviarTodo = True
Añadir mensajes a enviar:
oDMEnvio.XMLMensajes.Add Identificador, Destino,
texto
Donde:
Por cada mensaje a enviar se ha de llamar a esta función con los
datos de identificador,
Destino y texto.
Envío de mensajes a plataforma:
oDMEnvio.SendParam = "xml="
oDMEnvio.SendXML ,
Con esta función se establece la comunicación con nuestra
plataforma y se procede a realizar la autenticación y posterior envío
de mensajes.
LLAMADAS DE LA DLL PARA OBTENER LOS RESULTADOS DEL ENVÍO
Una vez enviados los mensajes estas funciones nos devolverán el resultado
de autenticación y envío.
Número de mensajes enviados:
oDMEnvio.XMLMensajes.Count
Resultado de la autenticación:
oDMEnvio.RXAutentificacion.Resultado
Si el resultado es 1 la autenticación es correcta, en caso contrario
en .Comentario está la causa
del fallo de la autenticación.
Comentario de la autenticación:
oDMEnvio.RXAutentificacion.Comentario
Saldo restante en la cuenta:
oDMEnvio.RXAutentificacion.saldo
Para los mensajes enviados tenemos un array de mensajes
oDMEnvio.XMLMensajes.Item(1.. oDMEnvio.XMLMensajes.Count)
Donde para cada mensaje tenemos:
oDMEnvio.XMLMensajes.Item(n).Resultado
si el resultado es 1 el envío del mensaje es correcto, en caso contrario
en .Comentario está la causa del fallo del envío.
oDMEnvio.XMLMensajes.Item(n).Destino
oDMEnvio.XMLMensajes.Item(n).mensaje
oDMEnvio.XMLMensajes.Item(n).comentario
|