[bo][un]citysoho[/un] 在 2008-7-28 16:44 的发言:[/bo]
JMAIL代码?搜了可是不会用。。。能否赐教。。。。
这个是我用来给QQ空间投稿的代码,看不懂可以查找帮助。
Function SendBlog(sQQ,sPwd,sTitle,sBody)
On error resume next
Dim JMail
Set JMail = Server.CreateObject("JMail.Message")
JMail.Charset = "gb2312"
JMail.Silent = True
JMail.From = sQQ & "@
JMail.FromName = "FromName"
JMail.Subject = sTitle
' 身份验证
JMail.MailServerUserName = sQQ
JMail.MailServerPassword = sPwd
' 设置优先级,范围从1到5,越大的优先级越高,3为普通
JMail.Priority = 3
JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")
' 加入一个收件人【变量email:收件人地址】可以同一语句重复加入多个
JMail.AddRecipient(sQQ & "@qzone.)
' 邮件主体(HTML(注意信件内链接附件的方式))
'JMail.HTMLBody = sBody ' 不显示邮箱发表AD
' 邮件主体(文本部分)
JMail.Body = sBody
' 发送【调用格式:objJMail.Send([username:password@]SMTPServerAddress[:Port])】
SendBlog=JMail.Send("smtp.)
' 关闭并清除对象
JMail.Close()
Set JMail = Nothing
End Function