Question

我们正在使用godaddy的共享主机方案，该网站完全采用经典的asp开发。有一些“向朋友推荐产品”功能，使用cdo发送电子邮件。此功能触发包含网站上产品链接的电子邮件，已停止工作，我们认为是因为某些垃圾邮件/黑名单，并希望有一个编程解决方法，因为通过godaddy无法正常工作！

IP 45.40.165.35和共享主机方案上的恶意重定向导致我们陷入困境，我们无需做的是“http://bauerwhitetails.com/rx.html”

围绕哪种工作的一个方法是使用msg正文中的url重定向来取消网站URL，但这会将用户带到主页而不是产品！有更聪明的方法可以做到这一点，还是应该使用另一个smtp提供程序？！

 
<%

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 Recommended by " & Request.Form("Your Name")
sBody = Request.Form("Your Name") & " wants to show you an interesting property." 
sBody = sBody & "<br>Click the following link <a href=http://www.websitehere.com> <b> here </b> </a> to search for the Property Ref: <b>" & Request.Form("pid") & "</b><br>"

If Request.Form("Message") <> "" Then
sBody = sBody & "<br><br>Message from " & Request.Form("Your Name") & " : " & Request.Form("Message")
End If
sBody = sBody & "<br><br>Thank-you!"

objNewMail.HTMLBody = sBody

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"

'Server port
objNewMail.Configuration.Fields.Item _
 ("http://schemas.microsoft.com/cdo/configuration/smtpserverport")=25 

objNewMail.Configuration.Fields.Update

objNewMail.Send

使用url redirect + concatenation经典asp

0 个答案: