Posted by
pessoal estou com um problema com meu script de indicção de noticias eu implementei este script mas quando eu envio da tudo certo so que ele nao chega na caixa de e-mail vocês poderia me informar aonde estou errando na implementação deste script???
valeu
<%
'-------------------------------------------------------------------
'Página Amigo.asp, que é chamada através do post do formulário
'-------------------------------------------------------------------
de_nome = Request.form("nome")
de_email = Request.form("email")
para_nome = Request.form("nome_amigo")
para_email = Request.form("email_amigo")
noticiaID = Request.form("noticiaID")
set Mailer = server.createobject("SMTPsvg.Mailer")
Mailer.FromName = de_nome
Mailer.FromAddress = de_email
Mailer.RemoteHost = "mail.clginteractive.com.br"
Mailer.AddRecipient para_email, para_nome
Mailer.Subject = "Notícias"
Mailer.ContentType = "text/html"
Mailer.BodyText = strHTML
strHTML = "<html><head><title>CLG INTERACTIVE SOLUTIONS IN WEB</title></head>" & chr(13) & chr(10)
strHTML = strHTML & "<style><!-- a {text-decoration:none} a:hover {text-decoration:underline; color:black} --></style>" & chr(13) & chr(10)
strHTML = strHTML & "<body bgcolor=""#9B2525"" text=""#FFFFFF"" link=""#FFFFFF"" vlink=""#FFFFFF"" alink=""#FFFFFF"">" & chr(13) & chr(10)
strHTML = strHTML & "<table width=""90%"" border=""0"" cellspacing=""2"" cellpadding=""0"" align=""left"">" & chr(13) & chr(10)
strHTML = strHTML & "<tr><td height=""132"" align=""center"" valign=""top""><p align=""center""><font size=""2"" face=""Arial, Helvetica, sans-serif"" color=""#ffffff""><b>Olá " & Para_nome & " Seu amigo " & de_nome & " viu uma notícia muito interessante e quer que você leia também, clique no link abaixo</b></font></p>" & chr(13) & chr(10)
strHTML = strHTML & "<p align=""center""><font size=""2"" face=""Arial, Helvetica, sans-serif"" color=""#FFFFFF""><a href=""http://www.clgintera...sp?noticiaID=" noticiaID &""" target=""_blank"">http://www.clgintera...sp?noticiaID=" noticiaID &"</a>" & chr(13) & chr(10)
strHTML = strHTML & "<p align=""center""><font size=""2"" face=""Arial, Helvetica, sans-serif"" color=""#FFFFFF"">clginteractive - solutions in web</font></p></td></tr>" & chr(13) & chr(10)
strHTML = strHTML & "<br><br>"
strHTML = strHTML & "</table>" & chr(13) & chr(10)
strHTML = strHTML & "</body></html>" & chr(13) & chr(10)
if Mailer.SendMail then
SendEmail = ""
else
' Message send failure
SendEmail = Mailer.Response
end if
Set Mailer = nothing
%>
nabisantos's Content
There have been 1 items by nabisantos (Search limited from 29/04/2023)
