Question

我们在经典asp开发的godaddy.com上有一个目录类型的网站。非常基本，没有花里胡哨。在其他函数中，我们只有一小段代码用于向目录中的朋友推荐一个相当直接的项目。

此功能突然停止工作，即使没有进行任何代码更改，电子邮件建议也不会消失。也没有错误消息或电子邮件反弹！

godaddy支持没有进展，但现在已经能够识别问题了，似乎它是电子邮件msg正文中的嵌入式URL /链接导致它失败。

有关如何绕过任何限制或解决此问题的任何想法？

谢谢！

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

Answer 1

似乎问题不在于电子邮件msg正文中的代码或网址，而是网址中提到的特定网站必须以某种方式最终出现在某个黑名单中！很抱歉误报，并把它留在这里，以防它对其他人有用。

如果它包含网址 - 经典ASP，则电子邮件不会通过

1 个答案: