Ir para conteúdo

POWERED BY:

Arquivado

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

ricardo coelho designer

[Resolvido] Orçamento por e-mail

Por , em ASP Clássico

Recommended Posts

ricardo coelho designer    0

ricardo coelho designer
Postado

Boa noite, estou com uma dúvida para finalizar o sistema de orçamento.

 

Preciso que a lista que foi selecionada no carrinho de compras vá no corpo do e-mail, pois a única coisa que consigo é enviar uma linha dos produtos, por exemplo, se o usuario seleciona 5 produtos para orçamento só vai pelo e-mail só um produto.

 

Vou deixar o código que estou usando abaixo...

 

<%If IsEmpty(Session("car_prod_id")) Then%>
<h4>Carrinho Vazio</h4>
Por favor, selecione os produtos que deseja, antes de enviar seu orçamento.
<%Else%>

<%set lista_pedid = lojaDB.Execute("SELECT * FROM pedidos ORDER BY ped_id DESC")
If lista_pedid.EOF Then
ped_id = 1
Else	
ped_id = lista_pedid("ped_id") + 1
End If
ped_data_ped = Now
ped_status = 0 
ped_user_id = cl_id

For loop1 = LBound(session("car_prod_id")) to UBound(session("car_prod_id")) 
arrTemp = Split(Session("car_prod_id")(loop1),"&")
ped_prod_id = arrTemp(1)

set ped_prod_atual = lojaDB.Execute("SELECT * FROM fotos WHERE id="& ped_prod_id &" AND liberar=true")

ped_prod_preco = "00"
arrTemp = Split(Session("car_prod_id")(loop1),"&")
ped_prod_quant = arrTemp(2)
car_descricao  = arrTemp(3)
ped_status  = 1

Mensagem = "Cod. Pedido: "&ped_id&" Cod.Prod: "&ped_prod_id&" - "&ped_prod_atual("legenda")&" Quant. "&ped_prod_quant&""
'Grava Pedido
lojaDB.Execute("INSERT INTO pedidos(ped_id, data_ped, status, prod_id, prod_preco, descricao, prod_quant) values("& ped_id & ",'" & ped_data_ped & "'," & ped_status & "," & ped_prod_id & "," & ped_prod_preco & ",'"&car_descricao&"','"&ped_prod_quant&"')")

Next

Set cdoMail = Server.CreateObject("CDONTS.NewMail")
cdoMail.From = "nome@enderecoemail"
cdoMail.To = "nome@enderecoemail"
cdoMail.Subject = "Solicitação Orçamento"
'Tipo de formatacao
cdoMail.BodyFormat = 0
cdoMail.MailFormat = 0
'Corpo do email formatado em HTML
cdoMail.Body = "<html><body bgcolor='#FFFFFF'>"& _
"<table border='0' cellpadding='0' cellspacing='0'>"& _
"<tr><td>Pedido de Orçamento</td></tr>"& _
"<tr><td>"&mensagem&"</td></tr>"& _
"</table></body></html>"
'Envia o email
cdoMail.Send
Set cdoMail = Nothing
response.write "Orçamento enviado com sucesso!"
Session.Abandon%>

<h3>Pedido Enviado com Sucesso</h3>
<%end if%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Salgado    4

Salgado
Postado

Você deve concatenar cada passagem em seu loop que "gera" a variável "Mensagem".

Compartilhar este post

Link para o post
Compartilhar em outros sites

Vinicius Ianni    189

Vinicius Ianni
Postado

Mensagem = "Cod. Pedido: "&ped_id&" Cod.Prod: "&ped_prod_id&" - "&ped_prod_atual("legenda")&" Quant. "&ped_prod_quant&""

 

if mensagem2 = "" then

mensagem2 = mensagem

else

mensagem2 = mensagem2 + mensagem

end if

 

Next

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

é a mesma coisa que enviar email com tags HTML, na verdade você monta seu email e faz a concatenação dos dados...

Compartilhar este post

Link para o post
Compartilhar em outros sites

ricardo coelho designer    0

ricardo coelho designer
Postado

é a mesma coisa que enviar email com tags HTML, na verdade você monta seu email e faz a concatenação dos dados...

 

 

Pessoal Muito obrigado, fiz quase tudo mas nunca iria imagina uma opção tão fácil assim.

 

Vou disponibilizar o código de envio de lista para orçamento, para quem precisar.

 

<%If IsEmpty(Session("car_prod_id")) Then%>
<h4>Carrinho Vazio</h4>
Por favor, selecione os produtos que deseja, antes de enviar seu orçamento.
<%Else%>

<%set lista_pedid = lojaDB.Execute("SELECT * FROM pedidos ORDER BY ped_id DESC")
If lista_pedid.EOF Then
ped_id = 1
Else	
ped_id = lista_pedid("ped_id") + 1
End If
ped_data_ped = Now
ped_status = 0 
ped_user_id = cl_id

For loop1 = LBound(session("car_prod_id")) to UBound(session("car_prod_id")) 
arrTemp = Split(Session("car_prod_id")(loop1),"&")
ped_prod_id = arrTemp(1)

set ped_prod_atual = lojaDB.Execute("SELECT * FROM fotos WHERE id="& ped_prod_id &" AND liberar=true")

ped_prod_preco = "00"
arrTemp = Split(Session("car_prod_id")(loop1),"&")
ped_prod_quant = arrTemp(2)
car_descricao  = arrTemp(3)
ped_status  = 1

'Grava Pedido
lojaDB.Execute("INSERT INTO pedidos(ped_id, data_ped, status, user_id, prod_id, prod_preco, descricao, prod_quant) values("& ped_id & ",'" & ped_data_ped & "'," & ped_status & ",'"&cod_cliente&"'," & ped_prod_id & "," & ped_prod_preco & ",'"&car_descricao&"','"&ped_prod_quant&"')")

mensagem = "Cod. Pedido: "&ped_id&" Cod.Prod: "&ped_prod_id&" - "&ped_prod_atual("legenda")&" Quant. "&ped_prod_quant&"<br>"

if mensagem2 = "" then
mensagem2 = mensagem
else
mensagem2 = mensagem2 + mensagem
end if


Next

Set cdoMail = Server.CreateObject("CDONTS.NewMail")
cdoMail.From = "infopratica@pedrasafira.com.br"
cdoMail.To = "infopratica@pedrasafira.com.br"
cdoMail.Subject = "Solicitação Orçamento"
'Tipo de formatacao
cdoMail.BodyFormat = 0
cdoMail.MailFormat = 0
'Corpo do email formatado em HTML
cdoMail.Body = "<html><body bgcolor='#FFFFFF'>"& _
"<table border='0' cellpadding='0' cellspacing='0'>"& _
"<tr><td>Pedido de Orçamento</td></tr>"& _
"<tr><td>"&mensagem2&"</td></tr>"& _
"</table></body></html>"
'Envia o email
cdoMail.Send
Set cdoMail = Nothing
response.write "Orçamento enviado com sucesso!"
Session.Abandon%>

<h3>Pedido Enviado com Sucesso</h3>
<%end if%>

Resolvido

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