Jump to content
Fórum Script Brasil
  • 0

Envio De Confirmação


Super_Zica_Man

Question

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 to comment
Share on other sites

11 answers to this question

Recommended Posts

  • 0

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 to comment
Share on other sites

  • 0
Guest - Ricardo -

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 to comment
Share on other sites

  • 0

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 to comment
Share on other sites

  • 0

<%
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 to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.



  • Forum Statistics

    • Total Topics
      152k
    • Total Posts
      651.6k
×
×
  • Create New...