Macro to insert text in reply email:

[mkone]

I have a macro that inserts text into a email. The problem is the macro will not insert the text into a reply email. What am i doing wrong? (outlook 2003)

Sub Assign()

Dim olExplorer As Explorer
Dim olSelection As Selection
Dim email As MailItem

Set olExplorer = Application.ActiveExplorer
Set olSelection = olExplorer.Selection
Set email = olSelection.Item(1)

email.Body = email.Body & "#assign"

End Sub