Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
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.
Carregando comentários...