How to send mail using CDO - SMTP authentication

<% 
set objMessage = createobject("cdo.message") 
set objConfig = createobject("cdo.configuration") 
Set Flds = objConfig.Fields 

Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 
Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") ="[Mail Server Name]" 

' ' Passing SMTP authentication 
Flds.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 'basic (clear-text) authentication 
Flds.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") ="[email protected]" 
Flds.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") ="password" 

Flds.update 
Set objMessage.Configuration = objConfig 
objMessage.To = "[email protected]" 
objMessage.From = "[email protected]" 
objMessage.Subject = "New Task" 
objMessage.fields.update 
objMessage.HTMLBody = "This is a test sent from CDO using smtp authentication." 
objMessage.Send 
%>