jmail发邮件的代码哪儿有问题啊？

Question

我的代码如下，高手帮我改一下，写好注释好吗。有示例代码的哈麻烦也贴出来哈 ，我代表毛主席谢谢你了============================================================================
'您可以在您的asp程序中使用如下函数来进行在线发信:
'以下为Jmail发送邮件的函数From发件人信箱 ,MailTo收件人,Subject 主题,Message发送内容：
Function Send_Mail(From, MailTo, Subject, Message)
Dim jmail, contentId, Domain, UserName, TextContent
Set jmail = Server.CreateObject("JMail.Message")
Domain = "smtp.163.com" '有效的邮件服务器地址
UserName = "sender_name" '发件人的名称
TextContent = "测试内容" '文本内容
jmail.Charset = "US-ASCII" ' 邮件字符集，默认为"US-ASCII"
' 发送者信息（可用变量方式赋值）
jmail.From = From
jmail.FromName = UserName
jmail.Subject = Subject
' 设置优先级，范围从1到5，越大的优先级越高，3为普通
jmail.Priority = 3
jmail.AddHeader "Originating-IP", Request.ServerVariables("[email protected]  ")
' 加入一个收件人【变量email：收件人地址】可以同一语句重复加入多个
jmail.AddRecipient (MailTo)
' 邮件主体（HTML(注意信件内链接附件的方式)）
jmail.HTMLBody = Message
' 邮件主体（文本部分）
jmail.Body = TextContent
' 发送【调用格式：objJMail.Send([username:password@]SMTPServerAddress[:Port])】
jmail.Send (Domain)
' 关闭并清除对象
jmail.Close
Set jmail = Nothing
End Function
'以下是调用此函数的方法，其中[email protected]是发件人，[email protected]是收件人
'Call Send_Mail("[email protected]", "[email protected]", "Test", "This is test mail!")

Answer 1

你上面已经有代码了,还要人怎么给你改啊.
有一点补充,现在很多发件服务器要有身份验证,很少有不要的了.你的发件服务器是否也是需要的?这得问一下.如果是要,上面的代码中,好像缺少了这个.无论是ASP还是VB,里面的代码差不多.给你一个万网上的ASP版,你参照一下,我测试过,万网上的这个是有效的.http://service.hichina.com/jszc/ShowArticle.asp?ArticleID=692