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

0 komentar:

 
Top