Rappel gratuit et immédiat Rappel gratuit et immédiat
04.13.41.50.70 (appel gratuit depuis un fixe)

Code source API SMS VBA

Objet Principal


Public Class configFile

    Public user_login As String = "************@********"
    Public api_key As String = "****************"
    Public sms_text As String = "test text"
    Public sms_recipients() As String = {"+33600000000"}
    Public sms_type As String = SMS_TYPE_QUALITE_STANDARD
    Public sms_mode As String = 1

    Public sms_sender As String = "Octopush"

End Class

Objet Principal


Imports System.Xml

Module campagne

    Sub Main()

        Dim config As configFile = New configFile()
        Dim sms As SMS = New SMS()

        sms.set_user_login(config.user_login)
        sms.set_api_key(config.api_key)
        sms.set_sms_mode(config.sms_mode)
        sms.set_sms_text(config.sms_text)
        sms.set_sms_recipients(config.sms_recipients)
        sms.set_sms_type(config.sms_type)
        sms.set_sms_sender(config.sms_sender)

        Dim xml As String = sms.send(config.DOMAIN, config.PATH_SMS, config.PORT)

        Dim xmlDoc As New XmlDocument
        Dim productNodes As XmlNodeList

        xmlDoc.LoadXml(xml)

    End Sub

End Module

Objet Principal

Cliquez ici pour télécharger notre archive contenant l'ensemble des fichiers sources.