Discussion :

[possible924]

Bonjour à tous,
J'ai réalisé des applications dans lesquelles j'envoi des emails à tous les correspondants sélectionnés.
Mais ce que je souhaiterais, c'est d'envoyer des SMS à tous les correspondants sélectionnés ayant un numéro de téléphone portable.
Je ne suis pas certain que ce soit posible et je ne sais pas comment faire.
Merci par avance pour toute information sur ce sujet.
Bonne soirée et fraîche nuit.
Pierre

[licardentaistor]

c'est possible, il faut passer par une API:

voici un exemple:

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
 
Sub EnvoyerSMS()
 
    Dim objHTTP As Object
    Set objHTTP = CreateObject("MSXML2.ServerXMLHTTP.6.0")
 
    Dim strURL As String
    Dim strAccountSID As String
    Dim strAuthToken As String
    Dim strPayload As String
 
    ' Vos informations Twilio
    strAccountSID = "VotreAccountSID"
    strAuthToken = "VotreAuthToken"
 
    ' Construisez l'URL et le payload
    strURL = "https://api.twilio.com/2010-04-01/Accounts/" & strAccountSID & "/Messages"
    strPayload = "From=%2B1234567890&To=%2B0987654321&Body=Hello%20World" ' Remplacer par vos numéros et message
 
    ' Ouvrir la connexion et envoyer la requête
    objHTTP.Open "POST", strURL, False, strAccountSID, strAuthToken
    objHTTP.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
    objHTTP.send (strPayload)
 
    ' Afficher la réponse
    Debug.Print objHTTP.responseText
 
End Sub

[possible924]

Merci pour votre réponse, mais je n'ai pas le niveau pour la comprendre.
Qu'est ce qu'une API ?
En fait, j'ai une table de destinataires potentiel avec champ "Nom", champ "Téléphone" et champ "Oui/Nom" pour sélectionner les destinataires
je voudrais déclencher l'envoi par SMS d'un message stocké dans une variable, à tous les destinataires sélectionnés.
Je voudrais faire tout cela avec le VBA d'Access.
Merci our votre réponses