How to send SMS in Ms Access

Hankwembo Christopher,FCCA,FZICA,CIA,MAAT,B.A.Sc
Hankwembo Christopher,FCCA,FZICA,CIA,MAAT,B.A.Sc used Ask the Experts™
I would like to be sending some short messages system (SMS) from Ms Access App to my colleagues for any urgent issue at hand from my laptop, for the URL I have to organize from a service provider for a fee. Now instead of using a modem, I want use REST API, I have to get URL from the service provider. Below is my scant VBA code which I intend to use, also help to complete !


Private Sub CmdSmsLines_Click()
Dim strURL As String
  Dim neMb As String
  Dim msGe As String
  Dim appIE As Object
    Set appIE = CreateObject("InternetExplorer.Application")
    neMb = Me.txtneMb.Value
    msGe = Me.txtmsGe.Value
    strURL = "" & neMb & "text=" & msGe & "priority=ndnd&stype = normal"
   With appIE
        .Navigate strURL
        ' uncomment the line below if you want to watch the code execute, or for debugging
        '.Visible = True
    End With
    ' loop until the page finishes loading
    Do While appIE.busy

End Sub

Open in new window

I intend to use two controls as in memo form see below:

Suppose I want to send the message to 4 people at one go, how do I type in the phone numbers in the memo control box SMSMessages: or msGe
Watch Question

Do more with

Expert Office
EXPERT OFFICE® is a registered trademark of EXPERTS EXCHANGE®
John TsioumprisSoftware & Systems Engineer

The issue is not how you gather the info...the issue is to buy a service that will allow you to send SMS from Computer...check your country Mobile Provides for such service.
I have already done so sir , we have agreed on terms and condition with the provider , that is why I'm here to have the code checked for some possible issues before paying the mobile phone services provider.


Software & Systems Engineer
Check this :
It seems that you send to multiple numbers separated with commas.

Do more with

Expert Office
Submit tech questions to Ask the Experts™ at any time to receive solutions, advice, and new ideas from leading industry professionals.

Start 7-Day Free Trial