Hi,
I am using the following code for sending email

Sub SendEmail(iOrgI d,strEmailFrom, strEmailSubject ,strEmailBody,s trEmailTo)
Dim ObjEmail
ObjEmail.To=str EmailTo
ObjEmail.From=s trEmailFrom
ObjEmail.Subjec t=strEmailSubje ct
ObjEmail.HtmlBo dy=strEmailBody
ObjEmail.Send
Set ObjEmail=Nothin g
End Sub
It's work fine except that it truncated the message body randomly.Previo usly...