Ir para conteúdo

POWERED BY:

Arquivado

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

bimpercursso

variavel de email

Por , em ASP Clássico

Recommended Posts

bimpercursso    0

bimpercursso
Postado

Olá pessoal, estou com uma dificudade aqui, se alguem puder me ajudar, estou precisando muito urgente disso....O problema é o seguinte, tenho um banco de dados aqui com emails, e preciso carregar em uma variável esses email para colocar no objMail.To= 'variavel' do CDONTS, mas nao estou conseguindo carregar essa variável, eu consigo listar todos os email, mas na consigo carregar eles em uma unica variável, vou coloacr o codigo abaixo...<!--#include file="inc_abreconexao.asp"--><% enviar = request.querystring("enviar") if enviar = "1" then SQL="SELECT Email_Teste FROM teste" set recset = conexao.execute (SQL) if recset.EOF then a=0 else a=1 vetEmail1=recset.getrows end if Assunto=request.form("assunto_form") IMAGEM = "<html>" IMAGEM = IMAGEM & "<body bgcolor=#FFFFFF>" IMAGEM = IMAGEM & "<img src=newsletter.jpg>" IMAGEM = IMAGEM & "</body>" IMAGEM = IMAGEM & "</html>" set objMail = server.createobject("CDONTS.NewMail") objMail.From = "meumail@meumail.com.br" objMail.To = "minha duvida esta aqui" objMail.Subject = Assunto objMail.Body = IMAGEM objMail.AttachURL "meucaminho\newsletter.jpg","newsletter.jpg" objMail.BodyFormat = 0 objMail.MailFormat = 0 objMail.Send set objMail=nothing end if %>Espero uma resposta o mais breve possivel, preciso muito disso, urgente mesmo...Obrigado pela atenção..

Compartilhar este post

Link para o post
Compartilhar em outros sites

Marcelo Barcellos    0

Marcelo Barcellos
Postado

Cara...Seu código ficaria assim

<!--#include file="inc_abreconexao.asp"--><%enviar = request.querystring("enviar")if enviar = "1" thenSQL="SELECT Email_Teste FROM teste"set recset = conexao.execute (SQL)if recset.EOF thena=0elsea=1While Not Recset.eofif vetEmail1 = "" then  vetEmail1=recset("nome_do_campo")  else  vetEmail1=vetEmail1 & ";" & recset("nome_do_campo")End ifRecSet.movenextWendend ifAssunto=request.form("assunto_form")IMAGEM = "<html>"IMAGEM = IMAGEM & "<body bgcolor=#FFFFFF>"IMAGEM = IMAGEM & "<img src=newsletter.jpg>"IMAGEM = IMAGEM & "</body>"IMAGEM = IMAGEM & "</html>"set objMail = server.createobject("CDONTS.NewMail")objMail.From = "meumail@meumail.com.br"objMail.To = vetemail1objMail.Subject = AssuntoobjMail.Body = IMAGEMobjMail.AttachURL "meucaminho\newsletter.jpg","newsletter.jpg"objMail.BodyFormat = 0objMail.MailFormat = 0objMail.Sendset objMail=nothingend if %>

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