Jak wysłać SMS z poziomu Excel'a

Wiele miesięcy temu przygotowałem bardzo prosty kod umożliwiający wysłanie sms'a z poziomu aplikacji MS Excel. Zaproponowane rozwiązanie opiera się o komercyjny dostęp do usługi wysyłania SMS świadczonej przez T-Mobile. Szczegółowe informacje dot. tej usługi dostępne są na stronie operatora pod tym adresem.

Gotowy kod przygotowany w postaci procedury parametryzowanej  wygląda następująco.

view sourceprint?

01	Sub Wysyłanie_SMSów(InfoMessage As String, Platny As Boolean, _

02	NumerOdbiorcy As String, Login As String, _

03	Hasło As String)

04

05	'Deklaracja zmiennych

06	Dim hiperL1 As String

07	Dim hiperL2$

08	Dim hiperL3$

09	Dim hiperFull$

10

11	'wariant po zmianach- dla T-Mobile

12	hiperL1 = "http://www.t-mobile.pl/msg/api/do/tinker/"

13	hiperL3 = "&number=" & NumerOdbiorcy & "&password=" & _

14	Hasło & "&login=" & Login & _

15	"&failure=http://www.t-mobile.pl" _

16	"&success=http://www.projektvba.pl&mms=false"

17

18	If Platny Then

19	hiperL2 = "omnix?message=" 'dla wersji płatnej

20

Else

21	hiperL2 = "sponsored?message=" 'dla wersji sponsorowanej

22

End If

23

24	'pełna konstrukcja linku wysyłającego

25	hiperFull = hiperL1 & hiperL2 & InfoMessage & hiperL3

26	'w celach kontrolnych warto sprawdzić link wywołania

27	Debug.Print hiperFull

28	'wysyłamy SMSa wywołując link- instrukcja wymaga zmiany

29	'w przypadku wysyłania z innego programu niż Excel

30	ThisWorkbook.FollowHyperlink hiperFull, , False

31

32

End Sub

Aby wysłać wiadomość należy wywołać procedurę, np. w oknie Immediate:

view sourceprint?

1	Call WysyłanieSMSów("Treść wiadomości", True, 790500500, "login", "hasło")

Ostatnio testowany kilka tygodni temu. Ponieważ jednak widzę, iż mechanizm usługi T-Mobile pozostał bez zmian (od kilku już lat) dlatego też myślę, że rozwiązanie pozostanie skuteczne na dość długo.