Задание: Настроить правило в Outlook таким образом, что бы при получении нового письма на мобильный телефон приходило смс с указанием отправителя письма и темы сообщения.

Решение:

Открываем режим VBA и вставляем новый модуль

Sub CustomMailMessageRule(Item As Outlook.MailItem)

Dim eMail As Outlook.MailItem

Set eMail = Application.CreateItem(Outlook.OlItemType.olMailItem)

With eMail
.Subject = Item.SenderEmailAddress
.To = "380672345089@2sms.kyivstar.net"
.Body = Item.Subject

.Send
End With
End Sub

Далее открываем Outlook и настраиваем новое правило

Для всех входящих выполнить сценарий

и указываем данный макрос. Всё!

Единственным недостатком данной реализации является то, что шлюз киевстара не поддерживает кириллицу. Однако шлюз @2sms.kyivstar.net (в отличии от @sms.kyivstar.net) с некоторыми огрехами производит транслитерацию текста.

P.S. Не забудьте в коде программы заменить номер телефона на свой! :)