Windows 2003 使用cdo寄信

<%
Dim ObjMail
Set ObjMail=Server.CreateObject("CDO.Message")

ObjMail.From="寄信人的email"

ObjMail.To="收信人的email"

ObjMail.Subject="email主旨"

'ObjMail.TextBody="TEXT 郵件內文"

ObjMail.HtmlBody="HTML 郵件內文"

'ObjMail.AddAttachment Server.MapPath("AAA.RAR")
'如果有附件的話就用上面的方法附加進去

ObjMail.Send
'發送

Set ObjMail=Nothing

Response.Write("發送成功。")
%>