PRB: CDONTS Line Length is Limited to 74 Characters

Set objSession = CreateObject ("CDONTS.Session") 
objSession.LogonSMTP "My Name", "someone@microsoft.com"
Set objOutbox = objSession.Outbox
Set objMessage = objOutbox.Messages.Add

'Remarking out the following line will cause plain text to be sent.
objMessage.MessageFormat = 0 

objMessage.Subject = "String Length Test"
objMessage.Text = "Insert message text here" 
Set objRecipient =  objMessage.Recipients.Add 
objRecipient.Name= "My Recipient"
objRecipient.Address = "someone@microsoft.com"
objMessage.Send
Set objMessage = Nothing
Set objOutbox = Nothing
Set objSession = Nothing
				

   Set myMail = CreateObject("CDONTS.NewMail")

   'Remarking out the following 2 lines causes plain text to be sent.
   myMail.BodyFormat=1
   myMail.MailFormat=0

   myMail.From="someone@microsoft.com"
   myMail.To="someone@microsoft.com"
   myMail.Subject="CDONTS String Length Test"
   myMail.Body= "Insert message text here"
   myMail.Send
   Set mymail=Nothing