从Outlook规则运行的脚本中的用户窗体规则

Question

基于http://support.microsoft.com/kb/306108我想创建一个自定义规则，显示自定义用户窗体而不是普通的旧的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

您需要创建您的用户窗体的实例

设置警报=新CustomAlerts

马库斯