当前位置: 代码迷 >> ASP >> asp发送邮件解决方法
  详细解决方案

asp发送邮件解决方法

热度:381   发布时间:2014-02-23 23:09:54.0
asp发送邮件
站内发送邮件功能怎么实现啊?我用下面这些怎么实现不了呢?

       Set CDO=Server.CreateObject("CDO.Message")
CDO.From = SiteConfig("SmtpServerMail")
CDO.To = MailAddRecipient
CDO.Subject = MailSubject
CDO.TextBody = MailBody
CDO.HTMLBodyPart.Charset="GB2312"
CDO.Send
Set CDO=Nothing需要登录QQ邮箱 设置SMTP 还在用Asp啊,赶紧升级成Asp.Net 吧。邮局服务器,账户名和密码都没设置,能发还真见鬼了。。下面是cdo发邮件的配置,修改红色部分

Sub AAA()
Const ns = "http://schemas.microsoft.com/cdo/configuration/"
  Set cm = CreateObject("CDO.Message")
  cm.from = "xxx@139.com"
  With cm.configuration.Fields
      .Item(ns & "sendusing") = 2
      .Item(ns & "smtpserver") = "smtp.139.com"
      .Item(ns & "smtpserverport") = 25
      .Item(ns & "smtpauthenticate") = 1
      .Item(ns & "sendusername") = "xxx"
      .Item(ns & "sendpassword") = "yyy"

      .Item(ns & "smtpconnectiontimeout") = 60
      .Item(ns & "smtpusessl") = 0
      .Update
  End With
  cm.To = "xxx@139.com"
  cm.Subject = "标题:测试发邮件"
  cm.Textbody = "正文:测试发邮件"
  cm.Send
Set cm = Nothing
End Sub
Set objMail = Server.CreateObject("CDO.Message") 
Set objConfig = Server.CreateObject ("CDO.Configuration") 
objConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 
objConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 
objConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") ="relay-hosting.secureserver.net"
objConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 
objConfig.Fields("http://schemas.microsoft.com/cdo/configuration/languagecode") = "0x0804" 
objConfig.Fields.Update() 
Set objMail.Configuration = objConfig

objMail.Subject = m_subject 
objMail.From =m_from
objMail.To = m_to 
objMail.BodyPart.ContentTransferEncoding = "7bit"
'如果使用多國語言時,才要設定 Charset
objMail.BodyPart.Charset = "UTF-8"
objMail.HTMLBody =m_body
objMail.Send 
Set objMail = Nothing


我以前用过,不过程序是放在外国主机上的,是可以正常发送的。

不过你要注意几个问题,这样发邮件方式会受到反垃圾邮件一些规则过滤,比如从外国主机发,国内邮箱是收不到,国内邮箱测试的时候,不用邮箱之间也会偶尔收不到,有的邮箱反垃圾邮件会拒绝这样的邮件。可以考虑用jmail~这个组件没用过
  相关解决方案
本站暂不开放注册!
内测阶段只得通过邀请码进行注册!
 
  • 最近登录:Mon Feb 20 21:11:00 CST 2017
  • 最近登录:Mon Feb 20 21:11:00 CST 2017
  • 最近登录:Mon Feb 20 21:11:00 CST 2017
  • 最近登录:Mon Feb 20 21:11:00 CST 2017
  • 最近登录:Mon Feb 20 21:11:00 CST 2017