• English
    • French
    • Spanish
Contact : +33(0)4.13.41.50.70
  • English
    • French
    • Spanish

VBA SMS API source code

Configuration file

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

Main File

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

Main purpose

Click here Download our archive containing all source files.

En ces temps exceptionnels, nos systèmes fonctionnent normalement et sont 100% opérationnels. #KeepSafe
+