×

Loading...
Ad by
  • 推荐 OXIO 加拿大高速网络,最低月费仅$40. 使用推荐码 RCR37MB 可获得一个月的免费服务
Ad by
  • 推荐 OXIO 加拿大高速网络,最低月费仅$40. 使用推荐码 RCR37MB 可获得一个月的免费服务

以前ASP程序可以自动生成email并发送,现在突然不行了,运行下面的程序,没错误,但也没EMAIL收到,为什么? 谢谢

<% set NewMailObj=CreateObject("CDONTS.NewMail")
NewMailObj.From="harry@concord.com"
NewMailObj.to ="harry@concord.com"
NewMailObj.Subject ="New Document " & dsnno & " version:" & ver & " has been released"
'Response.Write (newmailobj.Subject)
newmailobj.BodyFormat=0'html
newmailobj.MailFormat=0'mime
mailBody ="<html><body>Dear all:"
mailBody=mailBody & "<br><br> New Document: " & dsnno & "<br>" & "Title: " & title
mailBody=mailBody & "<br>Version: " & ver
mailBody=mailBody & "<br><br>Please Click <a href=http://dellsrv/rnd/dsn/dsnlist.asp?ssearch=" & dsnno & "&class=1&released=" & rele & ">here</a> to check the electronic document for reference"
mailBody=mailBody & "<br><br>Have a nice day!<br><br>"
mailBody=mailBody & session("username")
mailbody=mailbody & "</body></html>"
NewMailObj.Body=mailBody
NewMailObj.Send
Response.write ("send")
Report

Replies, comments and Discussions:

  • 工作学习 / IT技术讨论 / 以前ASP程序可以自动生成email并发送,现在突然不行了,运行下面的程序,没错误,但也没EMAIL收到,为什么? 谢谢
    <% set NewMailObj=CreateObject("CDONTS.NewMail")
    NewMailObj.From="harry@concord.com"
    NewMailObj.to ="harry@concord.com"
    NewMailObj.Subject ="New Document " & dsnno & " version:" & ver & " has been released"
    'Response.Write (newmailobj.Subject)
    newmailobj.BodyFormat=0'html
    newmailobj.MailFormat=0'mime
    mailBody ="<html><body>Dear all:"
    mailBody=mailBody & "<br><br> New Document: " & dsnno & "<br>" & "Title: " & title
    mailBody=mailBody & "<br>Version: " & ver
    mailBody=mailBody & "<br><br>Please Click <a href=http://dellsrv/rnd/dsn/dsnlist.asp?ssearch=" & dsnno & "&class=1&released=" & rele & ">here</a> to check the electronic document for reference"
    mailBody=mailBody & "<br><br>Have a nice day!<br><br>"
    mailBody=mailBody & session("username")
    mailbody=mailbody & "</body></html>"
    NewMailObj.Body=mailBody
    NewMailObj.Send
    Response.write ("send")
    • help me
      • done.
    • 检查一下SMTP SERVICE.
      • 查了,在运行。今天早晨收到了所有的EMAIL,还有delay的通知。这个SERVER也没有很多的事情,怎么会DELAY呢
    • Windows 2000 不建议用CreateObject("CDONTS.NewMail")
      • 有道理!最好能把CDOSYS,CDONTS,SMTP都试一下