Email 如果电子邮件包含url,则不会通过-经典ASP
我们有一个目录类型的网站,托管在godaddy.com上,采用经典asp。非常基本,没有铃铛和口哨。在其他功能中,我们有一小段代码,用于向朋友推荐目录中的项目,这相当简单 此功能突然停止工作,即使未进行代码更改,电子邮件建议也不会发出。也没有错误消息或电子邮件反弹回来 godaddy支持方面没有进展,但现在已经能够确定问题所在,似乎是电子邮件消息正文中嵌入的url/链接导致了失败 关于如何绕过任何限制或解决此问题,有何想法 谢谢Email 如果电子邮件包含url,则不会通过-经典ASP,email,asp-classic,Email,Asp Classic,我们有一个目录类型的网站,托管在godaddy.com上,采用经典asp。非常基本,没有铃铛和口哨。在其他功能中,我们有一小段代码,用于向朋友推荐目录中的项目,这相当简单 此功能突然停止工作,即使未进行代码更改,电子邮件建议也不会发出。也没有错误消息或电子邮件反弹回来 godaddy支持方面没有进展,但现在已经能够确定问题所在,似乎是电子邮件消息正文中嵌入的url/链接导致了失败 关于如何绕过任何限制或解决此问题,有何想法 谢谢 Dim objNewMail, sBody Set objNew
Dim objNewMail, sBody
Set objNewMail = Server.CreateObject("CDO.Message")
objNewMail.From = Request.Form("Your email address")
objNewMail.Cc = Request.Form("Your email address")
objNewMail.To = Request.Form("Email to")
objNewMail.Subject = "Interesting property sent by " & Trim(Request.Form("Your name"))
sBody = Trim(Request.Form("Your name")) & " wants to show you an interesting property listed by " & vbcr & vbcr
sBody = sBody & "Example Properties Ltd, Malta" & vbcr & vbcr
sBody = sBody & "Click the following link to see the property :" & vbcr & vbcr & "http://www.example.com/default.asp?pid=" & Request.Form("pid")
If Request.Form("Message") <> "" Then
sBody = sBody & vbcr & vbcr & "Message from : " & Request.Form("Your Name") & vbcr & vbcr & Request.Form("Message")
End If
objNewMail.TextBody = sBody
' GoDaddy SMTP Settings
objNewMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing")=2
objNewMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver")="relay-hosting.secureserver.net"
objNewMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport")=25
objNewMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
objNewMail.Configuration.Fields.Update
objNewMail.Send
'After the Send method, NewMail Object become Invalid
Set objNewMail = Nothing
似乎问题不在于电子邮件消息正文中的代码或url,而在于url中提到的特定网站,该网站一定以某种方式被列入黑名单!很抱歉出现错误警报,请将此留在此处,以防对其他人有用