Ir para conteúdo

POWERED BY:

Arquivado

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

vitorlouzada

Enviar e-mail pegando resultado de um Laço

Por , em ASP Clássico

Recommended Posts

vitorlouzada    0

vitorlouzada
Postado

Estou precisando enviar algumas informações de uma página asp por e-mail via MyCDONTSMail.

 

Antes de enviar o e-mail eu criei um array que armazena os valores de um form (possui vários valores separados por ",") e precisaria que esses valores fossem enviados no e-mail na linha : HTML = HTML & "<TD>"& ids2 &"</TD>"

Esse ids2 acima, viria de um array que executaria um FOR e preencheria o e-mail nessa linha acima, com todos os valores do form.

 

<%


                      Dim ids,ids2 ,i 
					  ids = Request.Form("id_produto")
					  ids2 = Split(ids,",")
					  For i = 0 to Ubound(ids2)
                      Response.Write(ids2(i) & "<br />")
                      Next
					  
					   
					 
					  Set MyCDONTSMail = CreateObject("CDONTS.NewMail")
    HTML = "<!DOCTYPE HTML PUBLIC""-//IETF//DTD HTML//EN"">"
    HTML = HTML & "<html>"
    HTML = HTML & "<head>" 
    HTML = HTML & "</head>"
    HTML = HTML & "<body bgcolor=""FFFFFF"">"
    HTML = HTML & "<b>Nov Pedido Via Site:</b><br><br>"
    HTML = HTML & "<b>Marmoraria Triunfo - Central de Atendimento</b><br><br>"
    HTML = HTML & "<b>Guarde os dados abaixo:<br><br></b>"
	HTML = HTML & "Cliente: " & Request.Form("nome") & "<br><br>"
	HTML = HTML & "CNPJ/CPF: " & Request.Form("telefone") & "<br><br>" 
	HTML = HTML & "IE: " & Request.Form("ie") & "<br><br>" 
	HTML = HTML & "Telefone: " & Request.Form("telefone") & "<br><br>" 
	HTML = HTML & "Data do Pedido: " & Request.Form("data") & "<br><br>"
	HTML = HTML & "Pedido:"  
	HTML = HTML & "<table border=1 cellpadding=3 cellspacing=3>"
	HTML = HTML & "<TR class=titulo_campos>"
    HTML = HTML & "<TD>Códigos</TD>"
    HTML = HTML & "<TD>Produtos</TD>"
    HTML = HTML & "<TD>Quantidades</TD>"
    HTML = HTML & "</TR>"
	HTML = HTML & "<TR class=titulo_campos>"
    HTML = HTML & "<TD>"& ids2 &"</TD>"					  
	HTML = HTML & "<TD>"& produtos &"</TD>"
	HTML = HTML & "<TD>"& quantidade &"</TD>"
	HTML = HTML & "</TR>" 
    HTML = HTML & "</Table><Br><br>" 
	HTML = HTML & "Acesse o painel de controle e verifique os dados do novo pedido"
	HTML = HTML & "</body>"
    HTML = HTML & "</html>"
    MyCDONTSMail.From="mail@vlassessoria.com.br"
	MyCDONTSMail.To= "atendimento@vlassessoria.com.br"
    MyCDONTSMail.Subject="Novo Pedido - Marmoraria Triunfo"
    MyCDONTSMail.BodyFormat=0
    MyCDONTSMail.MailFormat=0
    MyCDONTSMail.Body=HTML
    MyCDONTSMail.Send
    set MyCDONTSMail=nothing
 
%>

Não sei se deu pra explicar direito, mas se alguem puder me ajudar... eu agradeço muito.

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

ao invés de usar o CDONTS, utilize o CDOSYS, esse é a atualização do antigo CDONTS....

 

existem exemplos no fórum...

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