Ir para conteúdo

POWERED BY:

Arquivado

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

kania

[Resolvido] Armazenar dados em uma variavel e enviar por email

Por , em ASP Clássico

Recommended Posts

kania    0

kania
Postado

Bom dia pessoal,

 

Gente preciso de uam ajuda para ver como posso pegar os dados vindo de um BD via select, armazenar estes dados ema variavel e depois enviar por email?

 

Abixo o código que tenho.

 

If Request.QueryString("Envia") = "S" Then

Set RS = Server.CreateObject("adodb.recordset")
SQL = "SELECT * FROM CodAtivacaoIaki where IdConsultor = '"&IdConsultor&"' and Validacao = 'L'"

If RS.Eof Then

Response.Write("<span style=""font:14px Tahoma, Geneva, sans-serif; color:#00F;padding:30px;margin:0 50px;"">Não foi encontrado nenhum Consultor apto para enviar email de código.</span><br>")

Else

WHILE NOT rs.EOF

IdConsultor = Rs("IdConsultor")
Codigo = Rs("Codigo")
DataGeracao = Rs("DataGeracao")

'ENVIO O EMAIL COM OS CÓDIGOS AO EMAIL SELECIONADO

'## configurações do componente CDOSYS
Set objCDOSYSMail = Server.CreateObject("CDO.Message") 

'Cria o objeto para configuração do SMTP 
Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration") 

'SMTP 
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost" 

'Porta do SMTP 
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport")= 25 

'Porta do CDO 
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 

'Timeout 
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30 
objCDOSYSCon.Fields.update 

'Atualiza a configuração do CDOSYS para o envio do e-mail 
Set objCDOSYSMail.Configuration = objCDOSYSCon 

' #### CONFIGURAÇÕES DO CABEÇALHO DA MENSAGEM ####
'configura o remetente 
objCDOSYSMail.From = "suporte@grupoeagle.com.br" 

'configura o destinatário 
objCDOSYSMail.To = Email

'configura o reply-to 
'objCDOSYSMail.ReplyTo = EMAIL

'enviar com cópia
objCDOSYSMail.Cc = "anuncio@grupoeagle.com.br"

'configura o assunto 
objCDOSYSMail.Subject = "Códigos de Ativação Iaki"

''configura o conteúdo da mensagem 

objCDOSYSMail.HtmlBody = "<!DOCTYPE html PUBLIC ""-//W3C//DTD XHTML 1.0 Transitional//EN"" ""http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"">" _
& "<html xmlns=""http://www.w3.org/1999/xhtml"">" _
& "<meta http-equiv=""Content-Type"" content=""text/html; charset=utf-8"" />" _
& "<html>" _
& "<head>" _
& "</head>" _
& "<body>" _
& "<table width=""595"" border=""0"" cellspacing=""0"" cellpadding=""0"" style=""font:12px Tahoma, Geneva, sans-serif;"">" _
& "<tr>" _
& "<td colspan=""3"">"_
& "<img src=""http://www.grupoeagle.com.br/emailhtml/images/img_topo_01.png"" width=""595"" height=""78"" />" _
& "</td>" _
& "</tr>" _
& "<tr>" _
& "<td width=""17""> " _
& "</td>" _
& "<td width=""558"" valign=""top"">" _
& "<p>" _
& "<strong>Prezado Consultor, "&Nome&",</strong></p>" _
& "<p>Segue abaixo o link para sua geração de códigos Iaki..</p>" _
& "<p>Lembramos que os códigos são gerados apenas uma vez, e é gerado diretamente em seu ID, logo a sua validação ocorre diretamente em seu ID!</p>" _
& "<p>Uma vez gerados os códigos indicamos que os salve ou imprima, para futuras verificações!</p>" _
& "<p>" _
& "<a href=""http://www.iaki.com.br/gerando.asp?id="&IdConsultor&"&Gera=S"">Clique aqui para gerar seus códigos</a>!" _
& "</p>" _
& "<p>Ou copie e cole em seu navegador o link abaixo</p>" _
& "<p><a href=""http://www.iaki.com.br/gerando.asp?id="&IdConsultor&"&Gera=S"">http://www.iaki.com.br/gerando.asp?id="&IdConsultor&"&Gera=S</a></p>" _
& "<p>Quailquer dúvida, sugestão favor entrar em contato com nosso suporte<a href=""mailto:suporte@grupoeagle.com.br"">suporte@grupoeagle.com.br</a></p>" _
& "<p> </p>" _
& "<p><strong>Central de Atendimento:</strong></p>" _
& "<p><strong>Curitiba: (41) 3269-8442 / 3269-8443</strong></p>" _
& "<p>Agradecemos aatenção e aguardamos você!</p>" _
& "<p>Cordialmente,<br />" _
& "<strong>Equipe Técnica Iaki</strong><br />©GRUPO EAGLE DO BRASIL</p>" _
& "<p> </p>" _
& "</td>" _
& "<td width=""20""> </td>" _
& "</tr>" _
& "<tr>" _
& "<td colspan=""3""><img src=""http://www.grupoeagle.com.br/emailhtml/images/img_topo_05.png"" width=""595"" height=""54"" /></td>" _
& "</tr>" _
& "</table>" _
& "</body>" _
& "</html>"


'### FIM DAS CONFIGURAÇÕES DO CABEÇALHO ###

' ### ENVIA O E-MAIL ###
objCDOSYSMail.Send 
' ### DESTRÓI OS OBJETOS ### 
Set objCDOSYSMail = Nothing 
Set objCDOSYSCon = Nothing 
RS.Open SQL,Conn,3,3

rs.MOVENEXT
WEND
rs.close
set rs = nothing

End If
End If

Como podem ver, da forma que eu estou fazendo eu mando o email um por vez conforme a quantidade de registros que foram encontrados, o que quero fazer é enviar somente um email, porem eu preciso colocar o código do email fora do loop e conseguir armazenar na variavel "Codigo" todos os códigos encotrados para aquele select, e assim depois enviar o email com todos estes códigos.

Compartilhar este post

Link para o post
Compartilhar em outros sites

Ted k'    126

Ted k'
Postado

você coloca a ação de envio fora do loop com o email que você quer enviar...

 

dentro do loop coloca uma variavel nesse jeito assim:

 

varcodigo = varcodigo & rs("codigo") & " - "

e pegar essa variavel "varcodigo" e coloca onde você quer... se tudo der certo o "varcodigo" vai aparecer assim.

 

1 - 2 - 3 -

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