Discussion :

[philben]

bonjour,

j'ai ajouté à la classe initiale des API Orange (voir ici) la possibilité d'envoyer des SMS. Il semble que désormais les possesseurs de téléphones des autres opérateurs téléphoniques peuvent les recevoir (non vérifié).

Pour passer le message dans l'URL il doit être codé type URI en UTF-8 pour que les accents soient conservés en particulier.

J'ai donc écrit une première fonction pour passer en UTF 8 qui marchait bien mais relativement lente par rapport à la fonction suivante dérivée du source en java suivant : http://www.w3.org/International/URLUTF8Encoder.java

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
 
Private Function URIEncodeUTF8(ByVal sTxt As String) As String
   Dim sUTF8 As String, lCode As Long, i As Integer, abyTxt() As Byte
   abyTxt = StrConv(sTxt, vbUnicode)
   For i = 0 To UBound(abyTxt) Step 4
      lCode = abyTxt(i) + abyTxt(i + 1) * &H10 + abyTxt(i + 2) * &H100 + abyTxt(i + 3) * &H1000
      If lCode < &H80 Then   'de 0 à 127
         sUTF8 = sUTF8 & Format(Hex(lCode), "%@@")
      ElseIf lCode < &H800 Then   'de 128 à 2047
         sUTF8 = sUTF8 & Format(Hex(&HC0 Or (lCode \ &H40)) & _
                                Hex(&H80 Or (lCode And &H3F)), "%@@%@@")
      ElseIf lCode < &H10000 Then   'de 2048 à 65535
         sUTF8 = sUTF8 & Format(Hex(&HE0 Or (lCode \ &H1000)) & _
                                Hex(&H80 Or ((lCode \ &H40) And &H3F)) & _
                                Hex(&H80 Or (lCode And &H3F)), "%@@%@@%@@")
      Else   '>= 65536
         sUTF8 = sUTF8 & Format(Hex(&HF0 Or (lCode \ &H40000)) & _
                                Hex(&H80 Or ((lCode \ &H1000) And &H3F)) & _
                                Hex(&H80 Or ((lCode \ &H40) And &H3F)) & _
                                Hex(&H80 Or (lCode And &H3F)), "%@@%@@%@@%@@")
      End If
   Next i
   'Remplace les éventuels espaces par 0
   sUTF8 = Replace(sUTF8, " ", "0")
   URIEncodeUTF8 = sUTF8
End Function

La base de données jointe possède une interface pour l'envoi des SMS.
http://pbserv.free.fr/dev/APIOrange-SMS.zip

Philippe

[fr_marx]

Je confirme pour les autres opérateurs : l'envoi de SMS est possible vers Orange, SFr et Bouygues.

[Lasafa]

Bonjour,

Comme je le disais hier dans un autre post, l'envoi de SMS vers Bouygues avec l'API Orange ne fonctionne pas.
Je viens de tester à nouveau et le SMS n'arrive pas bien que le code retour soit 200 c'est à dire "OK".
Vers Orange pas de problème.

C'est sans doute possible mais sous certaines conditions que je ne connais pas

Franck

[ikhor]

salut


il nous demande une clef Access = c'est quoi

Aurais-tu par hasard un code pour cliquer sur un tél qui composerait le n° téléphone

merci pour ta réponse

[Lasafa]

Je pense que c'est la Cle de l'API Orange pour l'envoi des SMS.

On l'obtient en s'inscrivant sur le site Orange Partner

A+

[naphta]

Bonjour,

Ca marche finement et à partir du 12/11/2008 Orange Partner passe en version commerciale.
à partir de 10 cent le SMS, on achètera sous forme de pack de crédits.

a+

[cbleas]

Bonjour,
une autre solution plus simple et pas cher avec différents sites internet

http://suprasms.com/listeforfaits_sms.html

[Harbor66]

Bonjour,

Les API Orange n'étant plus "commercialisés", j'ai opté pour un abonnement Orange Pro_SMS illimités.

Je dois envoyer le matin à 10 heures et l'après midi vers 14 heures des SMS à destination de parents d'élèves absents (matin ou après midi)

Je me suis donc inspiré de l'exemple de Philben que j'ai adapté à mon cas (voir image jointe).



Le fichier texte a envoyer n'étant pas exactement identique pour chaque envoi, le texte global su SMS est composé de :

- 5 champs texte
- 5 champs issus d'une requête.

Le code devient donc à mon avis à

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
 
 
'Tout se passe ici pour la configuration du map
Private Sub Form_Load()
 
   'Valeurs par défaut
   Me.txtAccessKey = "Votre Access Key"
   Me.txtPhone = "phone"
   Me.txtMessage = "Message"
   Me.txtMessage 1 = "Message 1"
   Me.txtPrénom = "Prénom"
   Me.txtNom = "Nom"
   Me.txtMessage2 = "Message2"
   Me.txtDateD = "DateD"
   Me.txtMessage 3 = "Message 3"
   Me.txtMessage 4 = "Message 4"
End Sub
 
Private Sub BtnSend_Click()
   Dim oApi As oApiOrange
   Me.txtPhone.SetFocus
   Me.txtSMS.SetFocus
   Me.txtMessage.SetFocus
   Me.txtMessage1.SetFocus
   Me.txtPrénom.SetFocus
   Me.txtNom.SetFocus
   Me.txtMessage2.SetFocus
   Me.txtDateD.SetFocus
   Me.txtMessage 3.SetFocus
   Me.txtMessage 4.SetFocus
   Me.BtnSend.Enabled = False
   Me.Repaint
 
   Set oApi = New oApiOrange
   With oApi
      .AccessKey = Nz(Me.txtAccessKey, "")
      '.MobileNumber = Nz(Me.txtPhone, "")
      If .IsLastStatusOk Then
         If .SendSMS(Nz(Me.txtMessage, "")) Then
            MsgBox "Envoi SMS terminé - Statut : " & .LastStatusDescription, vbInformation
         Else
            MsgBox .LastStatusDescription, vbExclamation, "oApi - SendSMS"
         End If
      Else
         MsgBox .LastStatusDescription, vbExclamation, "oApi - IsLastStatusOk"
      End If
   End With
   Set oApi = Nothing
   Me.BtnSend.Enabled = True
End Sub

mais j'obtiens une erreur à chaque fois.

Merci d'avance

Roland

[naphta]

Bonjour,

J'ai abandonné depuis un moment les API d'Orange.


Dans mon cas
Les textos sont envoyés grâce à un modem GSM ce boitier a un logement carte SIM, j'ai pris un abonnement chez Bouygues avec SMS illimités. Les opérateurs n'aiment pas du tout ce genre de chose.
Un particularité le boitier est connecté à IPBX ce qui me permet de savoir qui envoi quoi à qui, j'envoie les textos en parlant à l'IPBX.


pour toi :
Il est possible de faire ceci en connectant le boitier sur un serveur ou une machine dispo l'envoi de SMS se fait avec les commandes de type "AT" à travers l'ouverture du port série.
Il y a des tutos sur le net.

bonne chance