Решение:
http://support.microsoft.com/en-us/kb/2636465

Добрый день!
Я через vba в outlook отправляю письма, всё работает отлично.

Вот мой макрос:

Код: (vb)

Set OutlookApp=CreateObject("Outlook.Application")
Set SM=OutlookApp.CreateItem(olMailItem)

SM.TO=qwe@qwe.ru
SM.Subject="Тема"
SM.Body ="Текст письма"
SM.Send

Но есть проблема, в организации настроено шифрование всех исходящих писем. (Если зайти в outlook в Сервис-Центр Управления безопасностью - Защита электронной почты, там включены галки Шифрование электронной почты). Для отправки на внешние адреса, в письме вручную, требуется это шифрование отключать.

Вопрос в том, как отключать данное шифрование с помощью макроса и потом снова включать.

Заранее спасибо.