XL 2016 VBA - Envoyer SMS

[Dudu2]

Bonjour,

J'ai vu quelques sujets à ce propos ici ou là. A ceux qui en ont l'expérience:
- Quel est le meilleur (en terme de prix) fournisseur Internet ?
- Quel est le code adapté à ce fournisseur ?

Merci par avance.

 

[fanch55]

Salut,
Perso, je me suis servi de AllMySms qui fournit l'api pour accèder via json ou xml .
Je ne sais pas si c'est le meilleur, mais en tout cas, c'était le meilleur marché en terme prix..

Plateforme SMS, Marketing Mobile | AllMySMS

Solution professionnelle d'envoi de SMS et messages vocaux

www.allmysms.com

 

[Dudu2]

Bonjour @fanch55,
Merci pour cette suggestion.
As-tu utilisé leur API en VBA ?

 

[fanch55]

Tout à fait.
Avec ServerXMLHTTP

 

[Dudu2]

Ok, je ne connais pas mais je vais me renseigner.
Tu aurais un bout de code pour illustrer l'envoi d'un SMS ?

 

[fanch55]

Ça ne va pas être rapide car l'envoi est intégré dans un projet assez complexe.
Il faut que j’extraie tout ce qui concerne les Sms, leur parametrage etc...
Tu l'auras d'içi 2-3 jours

 

[Dudu2]

Merci par avance pour le travail que tu envisages d'entreprendre.
Je ne suis pas pressé. C'est pour un utilisateur commerçant pour lequel j'ai fait un système de gestion de réception, identification, numérotation code barre et distribution de colis de plusieurs transporteurs.
Le système actuel est basé sur l'envoi de mails via Outlook qui fonctionne mais qu'il veut remplacer par de l'envoi SMS. Le système par mail se bloque parfois me dit-il, nécessitant des reboot, dans sa config complexe de plusieurs PC utilisant Google Drive.

 

[fanch55]

Bonsoir,
Comme promis une version de test qui fonctionne .
J'ai nettoyé toute adhérence avec le projet initial ( j'en ai chi..... )

Il faut créer un compte sur Allmysms et demander un essai gratuit pour développement ( ils sont commerciaux pour cela ) . Ils vont fournir une clé qu'il faudra indiquer dans la feuille param , ainsi que le compte .

On peut également ( pas dans le classeur fourni ) récupérer une réponse éventuelle du destinataire .

 

[Dudu2]

Merci infiniment @fanch55 pour ton travail.
Sans aucun doute utile à d'autres personnes dans le futur.
Je vais de ce pas essayer.

 

[Usine à gaz]

Bonjour le Fil,

Tu peux voir aussi ce fil :

Microsoft 365 - envoyer par boucle en 1 seul clic les sms du jour

Bonjour à toute et à tous, Très récemment j'ai posté : https://www.excel-downloads.com/threads/sms-factor-adaptation-api-vers-excel-office365.20059862/ Avec l'aide de Excel Pratique et de mon fournisseur d'envois de sms, nous avons pu modifier l'API du site en l'adaptant Cet API codé VBA me...

www.excel-downloads.com

Auquel fanch55 a beaucoup participé (une grand merci encore )
J'utilise SMS factor qui est très bon,
lionel

 

[fanch55]

Ht:

Sms Factor = 0,065€/sms​

AllMysms = 0.045€/sms​

Au niveau du centime, cela parait dérisoire mais il y a un écart de 44,44% ...

 

[Dudu2]

En effet, c'est significatif.

 

[Dudu2]

@fanch55,
Dans ce code, comment se comportent les majuscules STP ?

Public Function HtmlCars(ByVal Message As String) As String
    Message = Replace(Message, "ë", "ë")
    Message = Replace(Message, "ê", "ê")
    Message = Replace(Message, "é", "é")
    Message = Replace(Message, "è", "è")
    Message = Replace(Message, "ä", "ä")
    Message = Replace(Message, "â", "â")
    Message = Replace(Message, "à", "à")
    Message = Replace(Message, "û", "û")
    Message = Replace(Message, "ù", "ù")
    Message = Replace(Message, "ç", "ç")
    HtmlCars = Message
End Function

 

[fanch55]

@fanch55,
Dans ce code, comment se comportent les majuscules STP ?

C'est vrai, cela n'a pas été prévu .
Mais ce sont des caractères "interdits" dans un SMS standard à moins de l'envoyer en Unicode ce qui limite la longueur du Sms à 70 caractères.
Il faudrait enrichir les constantes NonCar et RepCar dans la sub ci-dessous,
la sub HtmlCars ne servant pas à grand chose en ce cas.
( ou mieux, les mettre sur la feuille Param )

Private Sub Sms_Tbx_Change()
Dim Nbc As Integer
Const DblCar = "\[]{}~^|€"          'caractères comptant double
Const NonCar = "µâêûîôÂÊÛÎÔç¨ëï°"   'caractères interdits
Const RepCar = "uaeuioAEUIOc-eio"   'caractères de substitution
 
    If Sms_Tbx <> vbNullString Then
        Nbc = Len(Sms_Tbx)
        For I = 1 To Len(Sms_Tbx)
            If InStr(DblCar, Mid(Sms_Tbx, I, 1)) Then Nbc = Nbc + 1
        Next
        For I = 1 To Len(NonCar)
            Sms_Tbx = Replace(Sms_Tbx, Mid(NonCar, I, 1), Mid(RepCar, I, 1))
        Next
    End If
    Me.Sms_Lbl = Nbc & " / 160 caractères max" & vbLf & "( sinon compte pour 2 sms )"
    Me.Sms_Lbl.BackColor = IIf(Nbc < 161, 3506772, vbRed)

End Sub

Tu peux vérifier ce qui est autorisé ou interdit sur la console de AllMysms :

 

[Dudu2]

OK merci @fanch55.