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
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