Fange Outlook-hændelser fra andet program

Hey,

Jeg ønsker at gennem en kopi af alle mails, som er sendt via min applikation. Det sker ved at jeg sender en erklærer et Outlook-objekt WithEvents, hvorved jeg kan benytte outlook's egen send-hændelse til at gemme filen. Derved gemmes kun mail som rent faktisk ER sendt og ikke de mail, som er blevet annulleret inden.

På min form virker denne kode:

'<<--- kode start --->>
Private WithEvents OutL As Outlook.Application

Public Function CreateMail() As Boolean
Dim Item As MailItem
Dim Receiver As Recipient

    Set OutL = New Outlook.Application

    Set Item = OutL.CreateItem(olMailItem)
   
    With Item
        .BodyFormat = olFormatHTML
        .HTMLBody = "Dette er en test"
        .Subject = "Mails"
        .FlagStatus = olFlagMarked
        .Recipients.Add "tj@makeiteasy.dk"
             
        .Display
    End With
    Set Item = Nothing
End Function

Public Sub OutL_ItemSend(ByVal Item As Object, Cancel As Boolean)
    Item.SaveAs "C:\" & Item.Subject & ".msg", olMSG
End Sub
'<<--- Kode slut --->>

Men jeg vil jo gerne pakke det lidt pænere ind i et modul, så jeg ikke skal lægge denne kode på alle forms. WithEvents virker kun på klassemoduler, hvorfor jeg har lagt kode i sådan et og kalder klassemodulet "SendMail".

Herefter vil jeg kalde modulet således:

Public Function Maildemo()
    Dim Mail As SendMail
    Set Mail = New SendMail
    Mail.CreateMail
End Function

Mailen bliver genereret og sendt, men hændelsen OutL_ItemSend bliver aldrig trigget?

Hvad gør jeg galt?

Pfh tak
Thomas Jepsen