How to send SMS with Microsoft Outlook SMS Add-in (MOSA)?

[KHazen]

How to send SMS with Microsoft Outlook SMS Add-in (MOSA)?
(SEE

http://www.microsoft.com/downloads)

I work with MS Access 2003. I want to send SMS via VBA code.
I have installed MOSA. How to fill the to-property in next code fragment?
Please make a new sub MyCreateFromTemplate.


Sub MyCreateFromTemplate()
On Error Resume Next
Dim myOlApp As Outlook.Application
Dim MyItem As Outlook.MailItem
Dim strPF As String
Dim strOFT As String

Set myOlApp = CreateObject("Outlook.Application")
strPF = "C:\Program Files\Microsoft Office\Microsoft Office Outlook SMS Add-in\"
strOFT = "sms.oft"
Set MyItem = myOlApp.CreateItemFromTemplate(strPF & strOFT)
MyItem.Subject = "Subject"
MyItem.Body = "Body"

MyItem.To = "xxxx"
'
'xxxx is a legal phone number ???? how to fill?)
'?? something like MyItem.recipents.add ("xxxx")
'
MyItem.Save
MyItem.Send

End Sub