Article ID: 201352
Article Last Modified on 3/4/2004
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
Additional query words: kbMsg kbCDONTS line wrap break feed
Keywords: kbmsg kbprb KB201352