Microsoft CDOSYS with SMTP Authentication - Sample Asp Code

<%
 Dim ObjSendMail
 Set ObjSendMail = CreateObject("CDO.Message") 
      
 'This section provides the configuration information for the remote SMTP server.
      
 ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'Send the message using the network (SMTP over the network).
 ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") ="mail.yourdomain.com"
 ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 
 ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False 'Use SSL for the connection (True or False)
 ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
      
 ' If your server requires outgoing authentication uncomment the lines bleow and use a valid email address and password.
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 'basic (clear-text) authentication
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") ="mail@yourdomain.com"
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") ="yourpassword"
      
 ObjSendMail.Configuration.Fields.Update
      
 'End remote SMTP server configuration section==
      
 ObjSendMail.To = "someone@somedomain.com"
 ObjSendMail.Subject = "this is the subject"
 ObjSendMail.From = "mail@yourdomain.com"
      
 ' we are sending a text email.. simply switch the comments around to send an html email instead
 'ObjSendMail.HTMLBody = "this is the body"
 ObjSendMail.TextBody = "this is the body"
      
 ObjSendMail.Send
      
 Set ObjSendMail = Nothing 
 %>