Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

brunocampos

para quem sabe...

Por , em ASP Clássico

Recommended Posts

brunocampos    0

brunocampos
Postado

Preciso enviar por e-mail o resultado de uma consulta a um banco de dados. Pensei em usar Arrays, ou algo do tipo. Mas gostaria de saber como posso enviar os resultados da busca no BD via SQL, para um e-mail, via CDonts oou qualquer outro?Um abraçoBruno Campos

Compartilhar este post

Link para o post
Compartilhar em outros sites

mmalainho    0

mmalainho
Postado

Aqui vai um exemplo que eu usei

 

<%

msgnome=request.Form("msgnome")

seu_nome=request.Form("seu_nome")

 

'Corpo do e-mail aqui voce pode colocar o resultado de um select à Bd

 

strMensagem = "<!DOCTYPE HTML PUBLIC '-//W3C//DTD HTML 4.0 Transitional//EN'>"

strMensagem = strMensagem & "<HTML><HEAD>"

strMensagem = strMensagem & "<META content='text/html; charset=iso-8859-1' http-equiv=Content-Type>"

strMensagem = strMensagem & "<META content='MSHTML 5.00.2614.3500' name=GENERATOR></HEAD>"

strMensagem = strMensagem & " <table width=350 height=200 border=0 cellspacing=1 cellpadding=0 align=center>"

strMensagem = strMensagem & " <tr> <td ><font color=#003366 size=2 face=Verdana, Arial, Helvetica, sans-serif><strong>"&strLg190&"</strong></font><br><br>"

strMensagem = strMensagem & "<BODY></BODY></HTML>"

 

 

'Envia o e-mail usando CDONTS (você pode usar outro componente)

Set objEmail = Server.CreateObject ("CDONTS.NewMail")

objEmail.From = seu_nome

objEmail.To = Request.Form("emailamigo")

objEmail.Subject = "Bolsa de Emprego"

objEmail.body = strMensagem

objEmail.BodyFormat = 0

objEmail.Importance = 1

objEmail.MailFormat = 0

objEmail.Send

Set objEmail = Nothing%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

brunocampos    0

brunocampos
Postado

Deixe-me ver se eu entendi:

Na tag abaixo, onde está escrito "&strLg190&" é o resultado de um select? Quer dizer que eu posso criar uma tabela e em seus campos eu posso botar simplesmente um <%= RS("nome_do_campo") %> ?

 

<font color=#003366 size=2 face=Verdana, Arial, Helvetica, sans-serif><strong>"&strLg190&"</strong></font>

 

Teria como você me enviar esse exemplo? Por favor...

 

Valeu

Bruno Campos

Compartilhar este post

Link para o post
Compartilhar em outros sites

mmalainho    0

mmalainho
Postado

Deixe-me ver se eu entendi:

Na tag abaixo, onde está escrito "&strLg190&" é o resultado de um select? Quer dizer que eu posso criar uma tabela e em seus campos eu posso botar simplesmente um <%= RS("nome_do_campo") %> ?

 

<font color=#003366 size=2 face=Verdana, Arial, Helvetica, sans-serif><strong>"&strLg190&"</strong></font>

 

Teria como você me enviar esse exemplo? Por favor...

 

Valeu

Bruno Campos

O codigo que enviei foi retirado de um trabalho que fiz, melhor exemplo não poderia ser

 

"&strLg190&" foi uma variavel qualquer que na altura precisava, mas voce pode colocar

 

"&RS("nome_do_campo1")&"<br> "& RS("nome_do_campo2")&"<br> "& RS("nome_do_campo3")&"<br>

por exemplo.!!!!

 

pode colocar o que quiser!!

Compartilhar este post

Link para o post
Compartilhar em outros sites

brunocampos    0

brunocampos
Postado

Valeu pela ajuda amigão!Bruno Campos

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito