Hi,
I used in the past a free italian gateway to send sms message from my Notes app and all was fine (I post you my routine).
If you can spend money there are several commercial program for Notes: Search Google with the words:
lotus domino send sms
I'll hope this is usefull for you. Let me know...
Ciao
Here is my the code:
Function MandaSMS (prefisso As String , numero As String , msg As String) As Integer
Const SITO_SMS = "http://www.jumpy.it/cgi-public/ep_senza_ref.dat?messaggio="
Const lunmax = 130
Dim dbWeb As NotesDatabase
Dim webdoc As NotesDocument
Dim x As Integer
Dim url As String
Dim wmsg As String
Dim inizio As Integer
' Set dbWeb = New NotesDatabase("MI_HUB_SIC","WEB.NSF")
Set dbWeb = New NotesDatabase("","PERWEB.NSF")
If Not (dbWeb.IsOpen) Then
Print "Impossibile aprire la connessione WEB"
MandaSMS = False
Else
MandaSMS = True
msg = Trim(msg)
inizio = 1
For x = 1 To Len(msg)
If Asc(Mid(msg , x , 1)) < 33 Then
Mid(msg , x , 1) = "+"
End If
Next
wmsg = Mid(msg , inizio , lunmax)
Do Until wmsg = ""
url = SITO_SMS + wmsg
url = url + "&prefisso=" + Trim(prefisso)
url = url + "&numero=" + Trim(numero)
Set webdoc = dbWeb.getdocumentbyurl(url,1)
inizio = inizio + lunmax
wmsg = Mid(msg , inizio , lunmax)
Loop
dbWeb.Close
End If
End Function
Try SMSPulse – http://www.smspulse.com/sms/index.htm. It’s cheap and works very well for us. Also, it’s free to IBM Business Partners.
hth
Tony
Hi,
You may also check how to send sms from lotus notus with Ozeki NG SMS Gateway:
http://www.sms-integration.com/p_71-lotus-notes-sms.html
Youtube link: http://www.youtube.com/watch?v=K6ZQ5eQWcyk
BR