Outlook代码停止工作

Question

我对所有电子邮件都有1分钟的延迟，并希望将一个类别设置为规则的例外，以便立即发送。

我创建了宏但它停止了工作。

Public Sub CategoriesButton()
   Dim Item As Outlook.MailItem
   Set Item = Application.ActiveInspector.CurrentItem
   Item.Categories = "SendMe"
   Item.Save
End Sub

Answer 1

有趣 - 我刚遇到同样的问题。工作完美，但后来我重新启动Outlook，它停止工作 - 没有明显的原因。

我花了一些时间来解决这个问题 - 但是当您重新启动Outlook时，它会将宏安全权限应用于您的宏。

如果您尚未对宏进行数字签名，则默认行为是阻止其运行。

您可以放宽安全设置，以便Outlook可以请求您的许可来运行宏，或者只是运行所有宏（后一个选项可能不是一个好主意！）

您可以自行签署自己的宏，这里有很好的指导：http://www.slipstick.com/developer/how-to-use-outlooks-vba-editor/

但令人讨厌的是，即使使用已签名的宏，您也始终会收到通知...因此，将安全设置更改为“通知”可能更容易所有＆＃39;

希望这会有所帮助 - 你发布的代码肯定帮助了我，它正是完全我正在寻找的东西，也控制了1分钟的延迟！

男人，每当我在Outlook中靠近宏时，我最终会失去半天左右......