60年代家具:求jmail发邮件完整asp代码

来源:百度文库 编辑:杭州交通信息网 时间:2024/04/28 16:56:15

Dim objMail

Set objMail = Server.CreateObject("JMail.Message")

HTML = "信件的内容"

objMail.ContentType="text"
objMail.MailServerUserName="发信人邮箱帐号"
objMail.MailServerPassword="密码"
objmail.Priority =1
objMail.From = "发信人地址"
objMail.FromName = "显示名称"

objMail.Subject = "主题"
objMail.Body=HTML
objMail.Charset="GB2312"
objMail.AddRecipient "收信人"
objMail.AddRecipientCC "抄送"

objMail.Send("服务器域名")

objMail.close()

set objMail = nothing