运行脚本规则选项在办公室上市后消失



我在Outlook中有一个简单但非常重要的VBA规则。

今天早上我的办公室升级到16.0.7531.1003版本(64位)和我发现我的规则未经检查并试图检查它,我会收到消息"此规则在当前模式下不可用"(这是一个翻译,因为我不使用Outlook的英语版本)。

此外,在尝试配置新规则时,选项"运行脚本"不再可见。

规则唯一要做的就是搜索新的电子邮件主体以获取有效的GUID,如果存在任何有效的GUID,则将GUID和电子邮件Senton日期插入数据库中。
Microsoft是否完全禁用VBA规则?

Public Sub getGUID(receiptItem As MailItem)
Dim regE As New RegExp
Dim matches As MatchCollection
Dim sql As String: sql = "insert HDSDEB.dbo.ReportCalendar_received(ReportGUID, SentDatetime) values ('__GUID__', '__SentOn__');"
regE.Pattern = "[0-9A-F]{8}-[0-9A-F]{4}-[0-9A-F]{4}-[0-9A-F]{4}-[0-9A-F]{12}"
regE.IgnoreCase = True
regE.MultiLine = True
Set matches = regE.Execute(receiptItem.body)
If matches.Count = 0 Then Exit Sub
Debug.Print matches.Item(0).Value
sql = Replace(sql, "__GUID__", matches.Item(0).Value)
sql = Replace(sql, "__SentOn__", receiptItem.SentOn)
SQLQueryRun (sql)
Debug.Print sql
End Sub

我遇到了与您相同的问题,这篇文章可能是您所需要的。向我的计算机注册表(EnableUnsafeClientMailRules)添加一个新值并将其设置为1解决我的问题。

最新更新