Question

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

今天早上我的办公室升级到16.0.7531.1003版本（64位）和我发现我的规则未经检查，并试图检查它我收到消息＆＃34;此规则在当前模式下不可用＆＃34; （这是翻译，因为我没有使用英文版的Outlook）。

此外，选项＆＃34;运行脚本＆＃34;在尝试配置新规则时不再可见。

规则的唯一作用是搜索新的电子邮件正文以获取有效的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

Answer 1

我和你的问题一样，this post可能就是你需要的。将新值添加到计算机的注册表（EnableUnsafeClientMailRules）并将其设置为1可以解决我的问题。

办公室upgade后运行脚本规则选项消失

1 个答案: