脚本中的UserForm从Outlook规则运行

Question

基于http://support.microsoft.com/kb/306108我想创建一个显示自定义UserForm的自定义规则，而不是普通的旧MsgBox。我写的是这个：

Dim alerts As CustomAlerts

Sub CustomMailMessageRule(Item As Outlook.MailItem)
   alerts.Messages.AddItem Item.Subject
   alerts.Show
End Sub

CustomAlerts是包含单个ListBox的UserForm。

可悲的是，我的尝试不起作用 - 没有窗口出现。我做错了什么？

Answer 1

您需要创建UserForm的实例

设置alerts = new CustomAlerts

马库斯