从 Vbscript 启用 Outlook 宏答案

【问题标题】：Enable Outlook macros from a Vbscript从 Vbscript 启用 Outlook 宏
【发布时间】：2020-10-09 08:40:58
【问题描述】：

我有一个 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

注意：由于公司政策，访问权限可能会有所限制

【问题讨论】：

标签： vba vbscript outlook

【解决方案1】：

您可以使用SendKeys 方法以编程方式按下所需的按钮。请参阅VBScript - SendKeys Method 了解更多信息。

【讨论】：

您可以在调用SendKeys 方法之前添加一小段延迟。