Отправка почты через Outlook без warning message

[GringoSol]

Hi!
Нужно написать макрос в Excel который будет отправлять почту через Outlook, и при этом не должно вылезать окно защиты от вирусов, где нужно жать ОК.
Сказали копать в сторону Activex, MAPI.
Но что-то как-то пока безрезультатно...
Может кто-то знает?
Обязательные условия: Outlook, VBA, отсутствие сторонних программ или библиотек.

[EducatedFool]

Обязательные условия: Outlook

А без него точно нельзя?
http://excelvba.ru/code/CDO

Есть вариант проще и лучше:

Посмотрите самый простой способ, как организовать отправку почты (рассылку писем)
(с использованием программы заполнения документов по шаблонам, с последующей отправке по почте)

В программе есть возможность формировать письма по шаблону (с подстановкой данных из таблицы Excel),
прикреплять сформированные документы и файлы из выбранной папки, и много других возможностей.

[GringoSol]

Да с CDO -то я сделал, нужно с Outlook

[vikttur]

Я это тоже искал и подобный вопрос задавал, ответ - окно предупреждения обойти нельзя. Или CDO, или сидеть и нажимать "Разрешить", пока рассылка не закончится

[GringoSol]

Ну как сказать...
Могу еще пару способов назвать:
1) в Excel создаем вложения и файл с их списком, а потом макрос Outlook читает список и отправляет вложения. Недостаток способа в том, что тут 2 макроса и при переносе на новый компьютер надо вставлять макрос в Outllok.
2) Использовать sendkeys. Работает не везде и не всегда как надо. Там надо угадывать со временем задержки

.Display
Application.Wait(now+TimeValue("00:00:02"))
Application.Sendkeys "%s"
Application.Sendkeys "%ь"

И вот еще что...
Насчет ActiveX сказал очень компетентный человек, но у меня нет возможности с ним связаться. Однако я уверен, что способ есть.
Просто трудно найти программистов такого уровня...