Message Body Truncated When Send Using CDO Object

Hi,
I am using the following code for sending email

Sub SendEmail(iOrgId,strEmailFrom,strEmailSubject,strE mailBody,strEmailTo)
Dim ObjEmail
ObjEmail.To=strEmailTo
ObjEmail.From=strEmailFrom
ObjEmail.Subject=strEmailSubject
ObjEmail.HtmlBody=strEmailBody
ObjEmail.Send
Set ObjEmail=Nothing
End Sub
It's work fine except that it truncated the message body randomly.Previously we were using CDONTS Object to send email and it had no any email truncation problem, but microsoft recommend to use CDO instead of CDONTS that is why we update our code.We ran the same code in our test server(Window xp ) and did not find any truncation problem, but on the production server (window 2003 service pack 2) .we are facing the truncation problem.

re: Message Body Truncated When Send Using CDO Object

Hmmm, the code works perfectly on the test server but it tuncates the message body on the production server.