How are you calling Initialize_handler()? Are you calling it in
Application_Startup()?

--
Ken Slovak
[MVP - Outlook]
http://www.slovaktech.com
Author: Professional Programming Outlook 2007
Reminder Manager, Extended Reminders, Attachment Options
http://www.slovaktech.com/products.htm


"mkboynton via OfficeKB.com" u10467@uwe wrote in message
news:7d2be7a9a6739@uwe...
Can someone tell me why this does not write to the message body? I am
stumped! I have placed it in the ThisOutlookSession.

Public WithEvents colInsp As Outlook.Inspectors
Public WithEvents objInsp As Outlook.Inspector

Public Sub Initialize_handler()
Set colInsp = Application.Inspectors
End Sub

Private Sub colInsp_NewInspector(ByVal Inspector As Inspector)
Dim OrigBody
Dim objItem As Object
Set objInsp = Inspector

Set objItem = objInsp.CurrentItem
If objItem.Subject = "FL DAILY INBOUND SHEET.xls" Then
OrigBody = objItem.HTMLBody
objItem.HTMLBody = "HTMLH3" & Format(Date, "MMM. DD, YYYY") &
"/H3/HTML" & OrigBody
End If
End Sub

--
Message posted via http://www.officekb.com