Ir para conteúdo
Fórum Script Brasil
  • 0

Problema Com Envio De Email

bolomaster

Perguntado por bolomaster,

 Share

Pergunta

8 respostass a esta questão

Posts Recomendados

  • 0
kuroi

kuroi

Postado
Postado

tente assim:

htmlemail = htmlemail & " <td width='82%'>" & "<strong>" & " T&iacute;tulo:<a href='http://www.atenas.edu.br/informativo/vercomunicado.asp?id = " & Response.Write(rs.Fields("id")) & "class='link'>" & Response.Write(rs.Fields("titulo")) & " </strong></a> </td>"

Link para o comentário
Compartilhar em outros sites
  • 0
Jony Walker

Jony Walker

Postado
Postado

Tenta puxar direto o rsfields("id") ao invés de associá-lo a uma var. você pode também tentar o seguinte

id = rsfields("id")

response.write id

response.end

aí ele vai escrever a var na tela e encerrar a página. Se não aparecer nada é porque o valor não está vindo

Link para o comentário
Compartilhar em outros sites
  • 0
bolomaster

bolomaster

Postado
  • Autor
Postado

Veio eu troquei a ' de lugar e agora funciona so que ele não mostra todos ele apenas repete o 1º registro

olhe a linha

href='http://www.atenas.edu.br/informativo/vercomunicado.asp?id='"&id&" class='link'

ai eu coloquei assim oh

href='http://www.atenas.edu.br/informativo/vercomunicado.asp?id="&id&"' class='link'

Link para o comentário
Compartilhar em outros sites
  • 0
bolomaster

bolomaster

Postado
  • Autor
Postado

Bem agora o problema é com o loop, eu criei a seguinte condiçao para que quando ele não tivesse nenhum dados que batesse com a consulta eu gostaria que ele enviasse um email dizendo que nenhuma informação havia sido postada.. e se tivesse enviasse o email so que agora ele está enviando a 1ª informação apenas e repete a mesma 

<% Session.LCID = 1046 %>
<%

dim caminho, hora, data, titulo, texto, enviadopor, htmlemail, mail, db, rs, sql, dataini, datafim, id
   
 dataini = date()-1&" 19:00:00"
 datafim = date()&" 18:59:59" 
  set db = server.CreateObject("ADODB.connection")
     set rs = Server.CreateObject("ADODB.RecordSet")
     caminho = server.MapPath("dados/informativo2.mdb")
       db.open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & caminho
           sql = "Select * from informativos where hora between #"&dataini&"# and #"&datafim&"#"
     rs.open sql,db,3,3
        if rs.eof then
             Response.write "De "&dataini&" até "&datafim&" Não foram postadas nenhuma informação."
              set mail = createObject("CDONTS.newMail")
               mail.from = "Informativo Atenas"
               mail.To = "rafael@atenas.edu.br"
              mail.subject = "Informativo Atenas"
             htmlemail = htmlemail &"De "&dataini&" até "&datafim&" Não foram postadas nenhuma informação."
              mail.body = htmlemail
             mail.MailFormat = 0        
             mail.Bodyformat = 0
             mail.send
             set mail = nothing
        Else
            hora = rs.fields("hora")
            data = rs.fields("data")
            texto = rs.fields("texto")
            id = rs.fields("id")
            titulo = rs.fields("titulo")
            enviadopor = rs.fields("enviadopor")
            set mail = createObject("CDONTS.newMail")
            mail.from = "informativo@atenas.edu.br"
              mail.To = "rafael@atenas.edu.br"
            mail.subject = "Informativo Atenas de "&dataini& " até "&datafim&"."
            htmlemail = htmlemail &"<style type='text/css'>"
            htmlemail = htmlemail & "<!--"
            htmlemail = htmlemail & "a:link{text-decoration:none;} "
            htmlemail = htmlemail & ".fonte {    color: #FFFFFF;     font-family: Arial, Helvetica, sans-serif;     font-size: xx-small;}"
            htmlemail = htmlemail & ".fonte2 {    color: #FFFFFF;    font-family: Arial, Helvetica, sans-serif;    font-size: x-small;}"
            htmlemail = htmlemail & ".link {    color: #FFFFFF;    font-family: Arial, Helvetica, sans-serif;    font-size: x-small;}"
            htmlemail = htmlemail & ".link:hover{    color:#F75E6C;    font-family: Arial, Helvetica, sans-serif;    font-size: x-small;}"
            htmlemail = htmlemail & "-->"
            htmlemail = htmlemail & "</style>"
            htmlemail = htmlemail & "<body  background='http://www.atenas.edu.br/informativo/imagens/fundo_barra.gif' leftmargin='0' rightmargin='0'  bottommargin='0' topmargin='0'>"
            htmlemail = htmlemail & "<table width='100%'  border='0' cellpadding='0' cellspacing='0' background='http://www.atenas.edu.br/informativo/imagens/fundo_barra.gif' class='fonte'>"
            htmlemail = htmlemail & "<tr>"
            htmlemail = htmlemail & "<td colspan='3'><div align='center'>"
            htmlemail = htmlemail &  "<object classid='clsid:D27CDB6E-AE6D-11cf-96B8-444553540000' codebase='http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0' width='780' height='100'>"
            htmlemail = htmlemail &  "<param name='movie' value='http://www.atenas.edu.br/informativo/imagens/topoinformativo.swf'>"
            htmlemail = htmlemail &  "<param name='quality' value='high'>"
            htmlemail = htmlemail &  "<embed src='http://www.atenas.edu.br/informativo/imagens/topoinformativo.swf' quality='high' pluginspage='http://www.macromedia.com/go/getflashplayer' type='application/x-shockwave-flash' width='780' height='100'></embed>"
            htmlemail = htmlemail &   "</object>"
            htmlemail = htmlemail &" </div></td>"
            htmlemail = htmlemail &  "</tr>"
            htmlemail = htmlemail & "<tr>"
            htmlemail = htmlemail & "<td colspan='3' bgcolor='#FFFFFF'></td>"
            htmlemail = htmlemail & "</tr>"
            htmlemail = htmlemail &"<tr>"
            htmlemail = htmlemail & "<td colspan='2'>" &"&nbsp;"& "</td>"
            htmlemail = htmlemail &" <td width='47%'>O melhor meio de comunica&ccedil;&atilde;o da Faculdade e Col&eacute;gio Atenas de Paracatu</td>"
            htmlemail = htmlemail & "</tr>"
            htmlemail = htmlemail & "<tr>"
            htmlemail = htmlemail &" <td colspan='3' bgcolor='#FFFFFF'></td>"
            htmlemail = htmlemail &"</tr>"
            htmlemail = htmlemail &"<tr>"
            htmlemail = htmlemail &"<td width='17%'>&nbsp;</td>"
            htmlemail = htmlemail &"<td width='36%'>&nbsp;</td>"
            htmlemail = htmlemail &"<td>&nbsp;</td>"
            htmlemail = htmlemail &"</tr>"
            htmlemail = htmlemail &"<tr>"
            htmlemail = htmlemail &"<td>&nbsp;</td>"&"<td>&nbsp;</td>"&"<td>&nbsp;</td>"&"</tr>"&"<tr>"
            htmlemail = htmlemail &" <td colspan='3'><div align='center' class='fonte2'><strong>AS INFOMAÇÕES POSTADAS FORAM:</strong></div></td>"
            htmlemail = htmlemail &"</tr>"&"<tr>"&"<td>&nbsp;</td>"&"<td>&nbsp;</td>"&"<td>&nbsp;</td>"&"</tr>"&"<tr>"&"<td colspan='3'>"
            do while not rs.eof
            htmlemail = htmlemail &"<table width='85%'  border='0' align='center' cellpadding='0' cellspacing='0' class='fonte2'>"
            htmlemail = htmlemail &"<tr>"
            htmlemail = htmlemail &" <td width='18%' rowspan='2'><div align='center'><img src='http://www.atenas.edu.br/informativo/imagens/ico02.gif' width='56' height='49'></div></td>"
            htmlemail = htmlemail & " <td width='82%'>" &"<strong>"&" T&iacute;tulo:<a href='http://www.atenas.edu.br/informativo/vercomunicado.asp?id="&id&"' class='link'>"& titulo &" </strong></a> </td>"
            htmlemail = htmlemail & "</tr>"
            htmlemail = htmlemail & " <tr>"
            htmlemail = htmlemail &" <td><strong>Postado Por: " &enviadopor&" em: "&hora& "</strong></td>"
            htmlemail = htmlemail &"</tr>"&"<tr>"&"<td colspan='2' bgcolor='#FFFFFF'></td>"&"</tr>"&"<tr>"&"<td colspan='2'>&nbsp;</td>"&"</tr>"&"</table>"
            rs.movenext
            loop
            rs.close
            db.close
            set rs = nothing
            set db = nothing
            htmlemail = htmlemail &"</td>"&"</tr>"&"<tr>"&"<td>Se não conseguir visualizar este email <a href='http://www.atenas.edu.br/informativo/' target='_blank' class='link'>Clique aqui</a></td>"&"<td>&nbsp;</td>"&"<td>&nbsp;</td>"&"</tr>"&"</table>"
            mail.body = htmlemail
            mail.MailFormat = 0        
            mail.Bodyformat = 0
            mail.send
            set mail = nothing
            Response.Redirect "default.asp"
        end if 
    
%>

se alguém souber o porque eu agradeço

fui

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.

×
 Share
Ir para lista de Perguntas


  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,3k
×
×
  • Criar Novo...