Outlook 7 aktivering af makro

Jeg sider her med et eksemple fra outlook hjælp, men kan ikke få en event tyil at køre. Hvad er det jeg har overset?

Public WithEvents myItem As Outlook.MailItem
 
Sub SendMyMail()
    Set myItem = Outlook.CreateItem(olMailItem)
    myItem.To = "Dan Wilson"
    myItem.Subject = "Data files information"
    'myItem.Send
    MsgBox ("Hello world")
End Sub

Private Sub myItem_Send(Cancel As Boolean)
    myItem.ExpiryTime = #2/2/2003 4:00:00 PM#
    MsgBox ("Hello world")
End Sub

myItem.Send vil ikke køre og Sub myItem_Send() bliver aldrig kaldt