Excel это не сложно
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
28.03.2024, 20:18:46

Войти
Интересные и полезные статьи по работе с Excel и VBA можно найти в разделе ХИТРОСТИ
33 233 Сообщений в 5 454 Тем от 6 750 Пользователей
Последний пользователь: Alex1210
*
Перейти на сайт Хитрости Надстройка MulTEx Обучающие тренинги Наша группа ВКонтакте
Правила форума Начало Помощь Поиск Календарь Войти Регистрация Выйти
+  Excel это не сложно
|-+  Основные форумы
| |-+  Вопросы по Outlook и VBA
| | |-+  Отключение шифрование в outlook
Страниц: [1]   Вниз
Печать
Автор Тема: Отключение шифрование в outlook  (Прочитано 9434 раз)
0 Пользователей и 1 Гость смотрят эту тему.
shtrih
Новичок
*

Репутация: +1/-0
Офлайн Офлайн

Сообщений: 2


Просмотр профиля E-mail
« : 02.04.2015, 14:14:40 »

Добрый день!
Я через 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 в Сервис-Центр Управления безопасностью - Защита электронной почты, там включены галки Шифрование электронной почты). Для отправки на внешние адреса, в письме вручную, требуется это шифрование отключать.

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

Заранее спасибо.
« Последнее редактирование: 02.04.2015, 16:29:57 от vikttur » Записан
Дмитрий Щербаков(The_Prist)
Администратор
Ветеран
*****

Репутация: +485/-0
Офлайн Офлайн

Сообщений: 5 828



Просмотр профиля WWW
« Ответ #1 : 02.04.2015, 15:27:09 »

Насколько мне известно, данный параметр невозможно изменить из VBA. Возможно, в реестре где-то есть указатель, но далеко не факт, что он будет работать без перезапуска приложения(а может и вообще не будет...).
Записан

Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
Пункты приёма Спасибов:    -41001332272872  -R298726502453
shtrih
Новичок
*

Репутация: +1/-0
Офлайн Офлайн

Сообщений: 2


Просмотр профиля E-mail
« Ответ #2 : 03.04.2015, 10:13:01 »

Решение:
http://support.microsoft.com/en-us/kb/2636465
Записан
Дмитрий Щербаков(The_Prist)
Администратор
Ветеран
*****

Репутация: +485/-0
Офлайн Офлайн

Сообщений: 5 828



Просмотр профиля WWW
« Ответ #3 : 03.04.2015, 10:50:40 »

Выложу код здесь, чтобы другим не приходилось бегать по ссылкам:
Код: (vb)
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
   If MsgBox("Add signature and encryption using the object model?", vbYesNo) = vbYes Then
      Const PR_SECURITY_FLAGS = "http://schemas.microsoft.com/mapi/proptag/0x6E010003"
      Dim oProp As Long
      oProp = CLng(Item.PropertyAccessor.GetProperty(PR_SECURITY_FLAGS))
      ' You can use this to verify the property's flag compared to
      ' what was set in Outlook.
      Debug.Print "Original flag value is: " & oProp
      uFlags = 0
      ulFlags = ulFlags Or &H1 ' Add the encrypted flag
      ulFlags = ulFlags Or &H2 ' Add the signed flag
      Item.PropertyAccessor.SetProperty PR_SECURITY_FLAGS, ulFlags
      Debug.Print "Updated flag value is: " & ulFlags
   End If
End Sub
Записан

Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
Пункты приёма Спасибов:    -41001332272872  -R298726502453
Страниц: [1]   Вверх
Печать
Перейти в:  

Powered by MySQL Powered by PHP Powered by SMF 1.1.21 | SMF © 2006-2011, Simple Machines Valid XHTML 1.0! Valid CSS!
Яндекс.Метрика Рейтинг@Mail.ru