Hi all, I had come across this code at slipstick.com:

-----------------------
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim intRes As Integer
Dim strMsg...