Ir para conteúdo
Fórum Script Brasil
  • 0

Envio De Confirmação

Super_Zica_Man

Perguntado por Super_Zica_Man,

 Share

Pergunta

Super_Zica_Man

Super_Zica_Man

Postado
Postado

tenho uma loja de e-commerce queria que quando o cliente confirmasse a compra mandasse um e-mail para o cliente e um e-mail para mim com os dados da compra com o valor a ser depositados e produtos comprados..

Eu acho q se usa aspmail peguei uns tutoriais mas explica tipo como indica site pro amigo essas coisas....Mas não explica o que eu preciso...

Obrigado..

Link para o comentário
Compartilhar em outros sites

11 respostass a esta questão

Posts Recomendados

  • 0
crucifier

crucifier

Postado
Postado

o cdonts tem esse aih...daih voce adapta pro seu jeito...

<%
    Dim sMsgErr

    '***** Executa as ações desta página *****
    Sub ProcessaPagina()
    '***** Declaração das Variáveis *****
    Dim Nome,Email,Telefone,Assunto,Mensagem

	'***** Monta corpo da mensagem a enviar por e-mail

	sBodyText = sBodyText & " bla bla bla bla bla bla " & vbCrLf & vbCrLf'corpo
	sBodyText = sBodyText & " " & vbCrLf   'corpo
	sBodyText = sBodyText & "Nome: " & objrs("Nome") &vbCrLf 'corpo
	sBodyText = sBodyText & " bla bla bla bla bla bla " & vbCrLf

	sBodyText = sBodyText & "----------------------------------------------" & vbCrLf 'corpo

    '***** Envia E-Mail para o destinatário *****
    On Error Resume Next
    sMsgErr = ""
    Set Mail = Server.CreateObject("CDONTS.NewMail")
    Mail.From = "administrador_do_site@site.com.br" ' Remetente da mensagem
    Mail.To = "aqui_vem_o_email_do_usuario@scriptbrasil.com.br" ' Destinatario da mensagem para
	Mail.Subject = " assunto da msg " 'assunto
    Mail.Body = sBodyText 'corpo da mensagem montada acima
	Mail.addbcc = "aqui_vem_o_seu_email@hotmail.com" 'com copia oculta
    Mail.Send
    If Err > 0 Then
    sMsgErr = "Ocorreu o seguinte erro ao tentar enviar o e-mail: " & Err.Description
    End If
    On Error GoTo 0
    End Sub

    '***** Executa as ações desta página *****
    ProcessaPagina
html = ""
If (sMsgErr <> "") Then
respnse.write "<p><br><br><font size=3 face=Verdana color=red>" & sMsgErr & "<br>" 'aqui voce poe onde voce quer q apareca no seu site a msg de erro
End If
%>

Link para o comentário
Compartilhar em outros sites
  • 0
Guest - Ricardo -

Guest - Ricardo -

Postado
Postado

Amigo,

o email para onde será enviado a mensagem você pode colocar um email fixo com seu email e o email do usuario

vemail = rs("email")

Mail.To = "aqui_vem_o_email_do_usuario@scriptbrasil.com.br",vemail

onde vemail terá o valor do email do usuario que efetuou a compra , entendeu ?

qualquer dúvida fala ae

abraços

Ricardo

Link para o comentário
Compartilhar em outros sites
  • 0
Super_Zica_Man

Super_Zica_Man

Postado
  • Autor
Postado

POR EXEMPLO meu codigo de quando o usuario finaliza a compra é esse:

<%

dim c1,r1

set c1=server.createObject("adodb.connection")

set r1=server.createObject("adodb.recordset")

c1.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& server.mappath(".")&"\Dados\Dados.mdb;"

set r1=c1.execute("select * from usuarios where LOGIN='" & session.contents("login") & "'")%>

<html>

<head>

<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">

<title>Nova pagina 1</title>

</head>

<body>

<p align="center"><font color="#FF3300" size="3"><i><b> <font color="black"></b></i></font>

<p>&nbsp;</p>

<p> <strong>Bem vindo: <font color="black">

<% response.write r1("LOGIN").value %>

</font>

</strong></p>

<strong>

<!--webbot BOT="GeneratedScript" PREVIEW=" " startspan -->

<!--webbot BOT="GeneratedScript" endspan -->

</strong>

<form method="POST" action="Fim.asp" onSubmit="return FrontPage_Form1_Validator(this)" name="FrontPage_Form1">

<strong>

<input TYPE="hidden" NAME="VTI-GROUP" VALUE="0">

</strong>

<p><strong><font color="#000000"></strong></p>

<p><strong>Nome:

<%response.write r1("NomeCompleto").value %>

</strong></p>

<p><strong>E-mail:<font color="black">&nbsp;

<%response.write r1("Email").value %>

<font></strong></p>

<p><strong>Endereço:<font color="black">

<%response.write r1("Endereco").value %>

</font></strong></p>

<p><strong>Cidade:<font color="black">

<%response.write r1("Cidade").value %>

</font></strong></p>

<p><strong>País:<font color="black">

<%response.write r1("PAIS").value %>

&nbsp;&nbsp;&nbsp;</font></strong></p>

<p><strong>Se os dados estiverem certos clique em finalizar.Se n&atilde;o estiverem efetue o login novamente e altere seus dados. </strong><br>

<input type="submit" value="Finalizar" name="B1" style="color: #003399; font-weight: bold">

</p>

</form>

<% r1.close

c1.close

set r1=nothing

set c1=nothing %>

</font>

</body>

</html>

ond boto esse codigo pra assim q finalizar a compra mandar email pra mim e pro cara

Link para o comentário
Compartilhar em outros sites
  • 0
Super_Zica_Man

Super_Zica_Man

Postado
  • Autor
Postado 

<%
Dim sMsgErr

'***** Executa as ações desta página *****
Sub ProcessaPagina()
'***** Declaração das Variáveis *****
Dim Nome,Email,Telefone,Assunto,Mensagem

'***** Monta corpo da mensagem a enviar por e-mail

sBodyText = sBodyText & " bla bla bla bla bla bla " & vbCrLf & vbCrLf'corpo
sBodyText = sBodyText & " " & vbCrLf 'corpo
sBodyText = sBodyText & "Nome: " & objrs("Nome") &vbCrLf 'corpo
sBodyText = sBodyText & " bla bla bla bla bla bla " & vbCrLf

sBodyText = sBodyText & "----------------------------------------------" & vbCrLf 'corpo

'***** Envia E-Mail para o destinatário *****
On Error Resume Next
sMsgErr = ""
Set Mail = Server.CreateObject("CDONTS.NewMail")
Mail.From = "administrador_do_site@site.com.br" ' Remetente da mensagem
vemail = rs("email")
Mail.To = "aqui_vem_o_email_do_usuario@scriptbrasil.com.br",vemail Destinatario da mensagem para
Mail.Subject = "Compra Central de Assessoria ao Usuario de Informatica " 'assunto
Mail.Body = sBodyText 'corpo da mensagem montada acima
Mail.addbcc = "rafael_63@tchemail.com;br" 'com copia oculta
Mail.Send
If Err > 0 Then
sMsgErr = "Ocorreu o seguinte erro ao tentar enviar o e-mail: " & Err.Description
End If
On Error GoTo 0
End Sub

'***** Executa as ações desta página *****
ProcessaPagina
html = ""
If (sMsgErr <> "") Then
respnse.write "<p><br><br><font size=3 face=Verdana color=red>" & sMsgErr & "<br>" 'aqui voce poe onde voce quer q apareca no seu site a msg de erro
End If
%>


<% 
dim c1,r1
set c1=server.createObject("adodb.connection")
set r1=server.createObject("adodb.recordset")
c1.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& server.mappath(".")&"\Dados\Dados.mdb;"
set r1=c1.execute("select * from usuarios where LOGIN='" & session.contents("login") & "'")%>
 <html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Nova pagina 1</title>
</head>

<body>

<p align="center"><font color="#FF3300" size="3"><i><b> <font color="black"></b></i></font>
<p>&nbsp;</p>
<p> <strong>Bem vindo: <font color="black"> 
  <% response.write r1("LOGIN").value %>
</font>
</strong></p>

<strong>
<!--webbot BOT="GeneratedScript" PREVIEW=" " startspan -->
<!--webbot BOT="GeneratedScript" endspan -->
</strong>
<form method="POST" action="Fim.asp" onSubmit="return FrontPage_Form1_Validator(this)" name="FrontPage_Form1">
<strong>
<input TYPE="hidden" NAME="VTI-GROUP" VALUE="0">
</strong>
<p><strong><font color="#000000"></strong></p>
<p><strong>Nome:
  <%response.write r1("NomeCompleto").value %>
</strong></p>
<p><strong>E-mail:<font color="black">&nbsp;
    <%response.write r1("Email").value %>
    <font></strong></p>
<p><strong>Endereço:<font color="black">
  <%response.write r1("Endereco").value %>
</font></strong></p>
<p><strong>Cidade:<font color="black">
  <%response.write r1("Cidade").value %>
</font></strong></p>
<p><strong>País:<font color="black">
  <%response.write r1("PAIS").value %>
  &nbsp;&nbsp;&nbsp;</font></strong></p>
<p><strong>Se os dados estiverem certos clique em finalizar.Se n&atilde;o estiverem efetue o login novamente e altere seus dados. </strong><br>
  <input type="submit" value="Finalizar" name="B1" style="color: #003399; font-weight: bold">
</p>
</form>
<% r1.close
	c1.close
	set r1=nothing
	set c1=nothing %>




</font>




</body>

</html>

Ta certo assim o codigo?

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.

×
 Share
Ir para lista de Perguntas


  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,2k
×
×
  • Criar Novo...