E-Mail com CDonts
Pessoal,
Tô tentando criar este envio de e-mails com CDONTS, porém quando executo o código fala que a página não pode ser exibida. Alguém pode me ajudar? /applications/core/interface/imageproxy/imageproxy.php?img=http://forum.imasters.com.br/public/style_emoticons/default/huh.gif&key=796dd2e8f5e667be07f01ae4a535735ac497e0cf1e7e3fc219233ca4d7b2023c" alt="Imagem Postada" />
<%
if request("tipo") = "0" then
de=Request("de")
demail=request("demail")
para=request("para")
paramail=request("paramail")
mensagem=request("mensagem")
idfoto=request("idfoto")
Set conexao = Server.CreateObject("ADODB.Connection")
conexao.Open "Provider=Microsoft.JET.OLEDB.4.0; Data Source=d:sitesradicalfestabancoradicalf.mdb"
set dados = conexao.execute("select * from fotos where id="&idfoto&"")
Dim msg
Set msg = Server.CreateObject("CDONTS.NewMail")
texto = "<html><head><title>Untitled Document</title>"
texto= texto & "<meta http-equiv='Content-Type' content='text/html; charset=iso-8859-1'>"
texto= texto & "<style type='text/css'>"texto= texto & "<!--"
texto= texto & ".unnamed1 {"
texto= texto & " color: #FFCC00;"
texto= texto & " text-decoration: none;"
texto= texto & "}"
texto= texto & ".unnamed2 {"
texto= texto & " color: #CCCCCC;"
texto= texto & " text-decoration: none;"
texto= texto & "}"
texto= texto & "-->"
texto= texto & "</style>"
texto= texto & "</head>"
texto= texto & "<body bgcolor='#666666' BACKGROUND='../bck-home.gif'>"
texto= texto & "<p class='unnamed2'> </p>"
texto= texto & "<div align='center'>"
texto= texto & " <p><font color='#FFCC00' size='4' face='Verdana, Arial, Helvetica, sans-serif'><strong><a href='[http://www.radicalfesta.com.br](http://www.radicalfesta.com.br)' class='unnamed1'>www.radicalfesta.com.br</a></strong></font></p>"
texto= texto & " <p><img src='[http://www.radicalfesta.com.br/admin/noticias/imagens/](http://www.radicalfesta.com.br/admin/noticias/imagens/)"&arquivo&"'><br>"
texto= texto & " <br>"
texto= texto & " <font color='#CCCCCC' size='2' face='Verdana, Arial, Helvetica, sans-serif'>"
texto= texto & " "&de&" esteve no site <a href='[http://www.radicalfesta.com.br](http://www.radicalfesta.com.br)' class='unnamed2'><strong>Radical "
texto= texto & " Festa</strong></a></span> e decidiu te enviar para você "¶&" esta foto!</font></p>"
texto= texto & " <p><font color='#CCCCCC' size='2' face='Verdana, Arial, Helvetica, sans-serif'>Mensagem: "
texto= texto & " "&mensagem&"</font></p>"
texto= texto & "</div></body></html>"msg.From = demail
msg.To=paramail
msg.Subject = "Foto do Site Radical Festa"
msg.BodyFormat = 0
msg MaiFormat = 0
msg.Body = texto
msg.Send
Set msg = Nothing
end if
%>
Valeu!!
Discussão (4)
Carregando comentários...