This sample demonstrates how to use the Collaboration Data Objects for NTS Component to send a simple e-mail message.

To actually send the message, you must have the SMTP Server that comes with the Windows NT Option Pack Installed. <% Dim objMyMail Set objMyMail = Server.CreateObject("CDONTS.NewMail") 'For demonstration purposes, both From and To 'properties are set to the same address. objMyMail.From = "someone@Microsoft.com" objMyMail.To = "someone@Microsoft.com" objMyMail.Subject = "Sample" objMyMail.Body = "I hope you like the sample" 'Send the message objMyMail.Send %>