從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

馬庫斯