vba - La opción Run Script Rule desapareció después de upgade de oficina

outlook outlook-vba

Question

Tenía una regla de vba simple pero muy importante en Outlook.

Esta mañana mi Office actualizó a la versión 16.0.7531.1003 (64 bit) y encontré mi regla sin marcar e intentando verificarla recibo el mensaje "Esta regla no está disponible en el modo actual" (esta es una traducción ya que no estoy usando la versión en inglés de Panorama).

Además, la opción "ejecutar script" ya no está visible al intentar configurar una nueva regla.

Lo único que hace la regla es buscar un nuevo cuerpo de correo electrónico para un GUID válido, y si existe, inserta el GUID y el correo electrónico en la base de datos.
¿Microsoft deshabilitó las reglas de VBA en absoluto?

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

Tuve el mismo problema que el tuyo y esta publicación puede ser lo que necesitas. Agregar un nuevo valor al registro de mi computadora ( EnableUnsafeClientMailRules ) y configurarlo en 1 resolvió mi problema.