Включение макросов Outlook из Vbscript

Question

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

   Set objWMIService = GetObject("winmgmts:\\" & sComputerName & "\root\cimv2")
   sQuery = "SELECT * FROM Win32_Process WHERE Name LIKE '%outlook%'"
   Set objItems = objWMIService.ExecQuery(sQuery)
   'If 0 then it will open outlook
   if objItems.count = 0 then
     Set app = CreateObject("Shell.Application")
     app.ShellExecute "C:\Program Files (x86)\Microsoft Office\root\Office16\OUTLOOK.EXE", , ,, 3
     app.ActiveExplorer.Activate
   End if

Примечание: может быть некоторое ограничение доступа из-за корпоративной политики

Answer 1

Вы можете использовать метод SendKeys для программного нажатия нужной кнопки. См. VBScript - метод SendKeys для получения дополнительной информации.