Всем привет.
Заинтересовал заголовок темы. Думаю, что задача, пусть и неординарна, но решаема. Предлагаю следующий код для Outlook (не Excel).
Отправка сообщения потребует особой настройки записи Outlook, которой у меня пока нет. Поэтому протестировать саму отправку не могу. У меня код только выводит заготовку для отправки. Если задача решаема для Outlook - то для Excel переделать уже будет не проблема.
Подробно о настройках Outlook можно узнать ЗДЕСЬ.
[vba]Код
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
[/vba]