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

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

Yes.

Ken Slovak - [MVP - Outlook] wrote:
How are you calling Initialize_handler()? Are you calling it in
Application_Startup()?

Can someone tell me why this does not write to the message body? I am
stumped! I have placed it in the ThisOutlookSession.
[quoted text clipped - 18 lines]
End If
End Sub

--
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.a...g-vba/200712/1

What are your macro security settings? Select Tools, Macro, Security.

--
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:7d2f8ebcf2f60@uwe...
Yes.

Low

Ken Slovak - [MVP - Outlook] wrote:
What are your macro security settings? Select Tools, Macro, Security.

Yes.

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

Is your Outlook VBA disabled? Look in Help, About Microsoft Office Outlook,
Disabled Items button and see if the VBA addin is disabled. If not can you
set up a test situation to force the code to run, called by a macro, and see
if that code runs.

You really shouldn't use Low security, it's a risk. You're better off being
prompted when Outlook starts if you have macros or to sign the code project
using the Selfcert.exe program that's part of Office and set your security
to medium.

--
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:7d44d105a9d1a@uwe...
Low