Here I will show you a simple way to send an SMS using Access VBA and Skype. For this you will need Skype version 3 or higher and some skype credit.
Private Sub cmdSendSkype_Click()
' By Mark Plumpton
' Custom Data Solutions Ltd
SkypeSMS txtNumber, txtMessage
End Sub
Public Function SkypeSMS(strNumber As String, strBody As String)
'strNumber is in international format
Dim sky As New SKYPE4COMLib.skype
Dim sms As SKYPE4COMLib.SmsMessage
Set sms = sky.CreateSms(smsMessageTypeOutgoing, strNumber)
sms.Body = strBody
sms.Send
'you can loop here and wait till the message is sent or fails
Debug.Print sms.Status
Set sms = Nothing
End Function
Notes
'Uses Skype4Com.dll
' https://developer.skype.com/Docs/Skype4COM/Start
' Anyway you need skype 3 or higher which installs skype4com library for you
Download sample Here
By Mark Plumpton ~ Custom Data Solutions Ltd
and Edited by Garry
