Outlook代码停止工作

时间:2014-02-17 14:45:31

标签: vba outlook

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

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

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

1 个答案:

答案 0 :(得分:0)

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

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

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

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

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

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

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

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