signature at send add to mail body

A

andrej

I have maked an outlook 2000 macro.
This add automatically signature at sent to mail.
The signature contains user name, fon, etc...
This work fine with Outlook-Editor, but not with Word-
Editor

What can I do that the following code work with Word-
Editor too???

here the code:

Private Sub Application_ItemSend(ByVal Item As Object,
Cancel As Boolean)
Set objOutlook = CreateObject("Outlook.Application")
Set objInsp = objOutlook.ActiveInspector
Set objMailItem = objInsp.CurrentItem
objMailItem.Body = objMailItem.Body & strSignatur
Set objMailItem = Nothing
Set objInsp = Nothing
Set objOutlook = Nothing
End Sub

Thanks
 
Top