无忧启动论坛

标题: 求教FOX [打印本页]

作者: meixu 时间: 2003-6-14 17:20
标题: 求教FOX
<%
mtitle=request("title")
msend=request("sender")
mfrom=request("formmail")
mto=request("tomail")
mbody=request("mailbody")
Dim myJMail
Set myJMail=Server.CreateObject("JMail.Message")
Domain="mail.myname.com"       '218.5.77.186有效的邮件服务器地址
myJMail.MailServerUserName = "root@myname.com"
myJMail.MailServerPassword = "mypass"
myJMail.silent=true
myJMail.Logging=true
myJMail.Charset = "gb2312"    '邮件字符集，默认为"US-ASCII"
myJMail.Priority = 3          '设置优先级，范围从1到5，越大的优先级越高，3为普通
'myJMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")
' 发送者信息（可用变量方式赋值）
myJMail.From = mfrom
myJMail.FromName = msend
myJMail.Subject = mtitle
' 加入一个收件人【变量email：收件人地址】可以同一语句重复加入多个
myJMail.AddRecipient(mto)
' 邮件主体（HTML(注意信件内链接附件的方式)）
'myJMail.HTMLBody = Message
' 邮件主体（文本部分）
myJMail.Body = mbody
' 发送【调用格式：objJMail.Send([username:password@]SMTPServerAddress[:Port])】
if myJMail.Send(Domain) then
response.write("<p>邮件已发送</p>")
response.write("<a href='javascript:window.close();'>关闭窗口</a>")
else
response.write("<p>邮件发送失败</p>")
response.write("<a href='javascript:window.close();'>关闭窗口</a>")
end if
' 关闭并清除对象
myJMail.Close()
Set myJMail = Nothing

%>

作者: wuyou 时间: 2003-6-18 01:59
标题: 求教FOX
你的问题已经解决了，不用回了。

欢迎光临无忧启动论坛 (http://bbs.wuyou.net/)