myMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = true
Set myMail = CreateObject("CDO.Message")
myMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'Send the message using the network (SMTP over the network).
myMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") ="mail.domain.com"
myMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
myMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = false 'Use SSL for the connection (True or False)
myMail.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.
myMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 'basic (clear-text) authentication
myMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") ="webmaster@domain.com"
myMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") ="********"
myMail.Configuration.Fields.Update
email = "name@somedomain.com"
myMail.To = email
myMail.Subject = "KB Email Confirmation"
myMail.From = "support@domain.com (KB)"
myMail.HTMLBody = "This is line one<br />"
myMail.HTMLBody = myMail.HTMLBody &"This is line 2<br />"
myMail.HTMLBody = myMail.HTMLBody &"<div style=""text-align:center; vertical-align:top""><blockquote style=""color:#999999;""> KB is A %AEComapny Name Here©2000-"&Year(Now())&" Company</blockquote>"
myMail.Send
response.Write "Mail Sent Successfully!<br />Check your Inbox for: "&email
Set myMail = Nothing