UserForm dans le script exécuté à partir de la règle Outlook

Question

Basé sur http://support.microsoft.com/kb/306108 Je souhaite créer une règle personnalisée qui affiche un UserForm personnalisé au lieu de l'ancienne MsgBox. Ce que j'ai écrit était ceci:

Dim alerts As CustomAlerts 

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

CustomAlerts est un UserForm contenant un seul ListBox.

Malheureusement, ma tentative ne fonctionne pas - aucune fenêtre n'apparaît. Qu'est-ce que je fais mal?

Answer 1

Vous devez créer une instance de votre UserForm

Définir des alertes = new CustomAlerts

Marcus