<%
Set objEmail = CreateObject("CDO.Message")

objEmail.Configuration.Fields.Item
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 objEmail.Configuration.Fields.Item
("http://schemas.microsoft.com/cdo/configuration/smtpserver")
="localhost"
objEmail.Configuration.Fields.Item
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 objEmail.Configuration.Fields.Update
objEmail.From = "寄件者email" '寄信者信箱
objEmail.To = "收件者email"? ? '收信者信箱
objEmail.Subject = "信件標題"
objEmail.HTMLbody = "<font color='red'> HTML信件內文</font>"?
objEmail.Send
set objEmail=nothing

response.write "信件已經成功寄出"?? '寄送完成畫面訊息
%>