Outlook 2000 problem - on sending mail the body is empty

[pbogdan]

I am working on an Outlook COM Add-in and I use a custom form for
sending emails. On Outlook Xp and 2003, everything works fine, but on
Outlook 2000, every email I send has the body empty. Here is the script
code for the form item send function:

Function Item_Send()
' On Error Resume Next
Dim srvObject
Set srvObject = CreateObject("OlkMsgPlugin.PIMMessageSender")
if srvObject is nothing then
MsgBox "Unable to create IRGENT Messaging Manager!"
Item_Send = false
else
srvObject.Body = Item.Body
srvObject.Subject = Item.Subject

for i=1 to item.Recipients.Count
set recipient = item.recipients.Item(i)
recipient.Resolve

If recipient.Resolved Then
srvObject.CheckRecipient recipient.Address, recipient.Name
end if
next

srvObject.Send
Set srvObject = Nothing

Item.Delete
Item_Send = false
end if

End Function

I have checked and Item.Body is empty on Outlook2000. Is this an
Olk2000 issue or I have made a mistake? If body is not the right
attribute to use, then what is it?

Thanks,
Bogdan Poplauschi
SoftVision