как отправить электронную почту Outlook и преодолеть стандартное уведомление о безопасности с помощью VBScript или пакетной обработки?

Question

Я пытаюсь автоматизировать автоматическую отправку Outlook писем с помощью VBScript . Я пробовал следующие способы:

1. Программная отправка электронных писем с помощью Mail.Send команды в VBScript

Попытка программной отправки электронных писем не работает из-за по соображениям безопасности. Вот мой пример кода :

Set WshShell = WScript.CreateObject("WScript.Shell")
Set ol=CreateObject("Outlook.Application") 
Set Mail=ol.CreateItem(0) 
Mail.to= "xx.xxx.com"
Mail.Subject = "AUTOMATED UPDATE: is ready to be booked"
Mail.HTMLBody = "please see attachments... :)"
Mail.Display 
Mail.send
ol.quit 
Set Mail = Nothing 
Set ol = Nothing 

POP-UP BLOCK Я ПОЛУЧАЮ:

2. Отправка писем с помощью SendKeys метода (работает, но нестабильный метод) Вот мой пример кода :

   Set WshShell = WScript.CreateObject("WScript.Shell")
   WshShell.run "outlook"
   Set ol=CreateObject("Outlook.Application")
   Set Mail=ol.CreateItem(0)
   Mail.to= "xxxx.com"
   Mail.Subject = "AUTOMATED UPDATE: "&file_name&" is ready to be booked"
   Mail.HTMLBody = "please see attachments... :)"
   Mail.Attachments.add "xxxx"
   Mail.Display
   WshShell.AppActivate(Mail.Subject&" - Message (HTML)")
   WshShell.SendKeys "%{s}",1
   WScript.Sleep 40000
   ol.quit
   Set Mail = Nothing
   Set ol = Nothing
   WshShell.Run "taskkill /im outlook.exe", , True
   

Этот метод работает, но предполагает, что никто не должен прерывать процесс и что-то щелкать. Он очень нестабилен, поэтому я ищу другие возможности.

Погуглив до 999999 страницы :) Поиска Google, я нашел следующие варианты, но ни один из них не работает в моем случае :

1. Используйте Погашение - a cc. в соответствии с политикой компании. Мне не разрешено использовать сторонние приложения
2. Использовать ClickYes - a cc. в соответствии с политикой компании Мне не разрешено использовать стороннее приложение
3. Отправлять электронные письма через CDO - Я не могу подключиться к SMTP-серверу, потому что не знаю пароль оттуда и не авторизован для его получения
4. Я также посмотрел, можно ли отправлять ключи в окне фон - к сожалению, это НЕ возможно.
5. Идет в TrustCenter Outlook и измените настройки - это запрещено делать cc. к политике компании

Может ли кто-нибудь посоветовать другой обходной путь?

Answer 1

Вы получаете запросы безопасности, потому что Outlook настроен на клиентском компьютере одним из следующих способов:

• Используются параметры безопасности Outlook по умолчанию (то есть групповая политика не настроена)
• Использует параметры безопасности, определенные групповой политикой, но не имеет программы c применена политика доступа
• Использует параметры безопасности, определенные групповой политикой, которая настроена на предупреждение, когда антивирусное программное обеспечение неактивно или устарело

Вы можете создать групповую политику, чтобы запретить отображение запросов безопасности, если в системе установлено какое-либо актуальное антивирусное программное обеспечение, или просто отключить эти предупреждения (что на самом деле не рекомендуется).

Подробнее об этом читайте в статье Поведение безопасности объектной модели Outlook .

Answer 2

Запрос будет не , если установлено последнее антивирусное приложение.