Sub Rio_SMS_Test_for_Outlook()
       ' Создаём переменную для обращения к приложению
       Dim olk_App As Outlook.Application
       ' Создаём переменную для обращения к сообщению SMS
       Dim mi_SMS As Outlook.MobileItem

       ' Задаём обращение к текущей сессии Outlook
       Set olk_App = ThisOutlookSession
       ' Создаём объект Outlook SMS
       Set mi_SMS = olk_App.CreateItem(olMobileItemSMS)
       ' Прописываем тему сообщения, необязательно
       mi_SMS.Subject = "Test SMS"
       ' Прописываем текст сообщения
       mi_SMS.Body = "Rioran SMS test example."
       ' Задаём номер получателя
       mi_SMS.To = "8903XXXXXXX"
       ' Отобразить форму сообщения в Outlook
       mi_SMS.Display
       ' Следующая строка должна отправлять сообщение
       ' mi_SMS.Send (True)
       ' Освобождаем заданные объекты
       Set mi_SMS = Nothing
       Set olk_App = Nothing
End Sub