Armazenar Dados E Envia-los Via Email

[vulmarjunior]

Estou com um pequeno problema.

Tenho um sistema de cadastro que rmazena os dados inseridos em um formulário e os armazena em um bd access. Até tudo bem.

Porém gostaria de que após serem armazenados os dados fossem enviados via email para mim.

Fazer os dosi separados eu consigo mas juntos não estou acertando.

Como deveria fazer.

[pgmador]

Cara..

Se está funcionando separado, tem que funcionar junto.

posta o código aqui para a gente dar uma olhada.

[]'s

Nelson Soares

http://www.ondagospel.com.br

[Guest Bertolani]

Tive esse problema e consegui resolver usando uma function.

Criei um uma função separada que envia e-mail e sempre que tinha que enviar um e-mail passava como parametro o nome, endereço e algumas informações que o usuário digitou.

Tente usar um <!--#include file = "email.inc"--> por exemplo, qualquer coisa manda o script!

Espero ter ajudado.

[]'s

Flavio Bertolani

[Reginaldo ASP]

Após o update do BD você poe as informações do CDonts (ou ASPMail, Jmail)...

Onde está dando erro?

[vulmarjunior]

Bem vou tentar explicar como fiz. A maioria das páginas que faço em ASP, faço com auxílio do dreamweaver MX, sei que não é amelhor saida se querop aprender a programar em ASP, mas enquanto não domino tudo vou me virando como posso.

A parte de inserir informações no BD fiz com auxilio do dreamweaver mx e a parte de enviar as mensagens utilizo um script que me forneceram.

Pensei em fazer desse jeito. Abaixo tem o formulário de cadastramento que envia as informações para um bd chamado reserva.mdb. Esse código em asp é gerado pelo dreamweaver mx, ao inserir as informações no bd ele redireciona para uma página onde tem um script no topo que resgataria as informações do form e enviaria via email para mim.

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>

<!--#include file="../Connections/con_pitagoras.asp" -->

<%

' *** Edit Operations: declare variables

Dim MM_editAction

Dim MM_abortEdit

Dim MM_editQuery

Dim MM_editCmd

Dim MM_editConnection

Dim MM_editTable

Dim MM_editRedirectUrl

Dim MM_editColumn

Dim MM_recordId

Dim MM_fieldsStr

Dim MM_columnsStr

Dim MM_fields

Dim MM_columns

Dim MM_typeArray

Dim MM_formVal

Dim MM_delim

Dim MM_altVal

Dim MM_emptyVal

Dim MM_i

MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME"))

If (Request.QueryString <> "") Then

MM_editAction = MM_editAction & "?" & Request.QueryString

End If

' boolean to abort record edit

MM_abortEdit = false

' query string to execute

MM_editQuery = ""

%>

<%

' *** Insert Record: set variables

If (CStr(Request("MM_insert")) = "form1") Then

MM_editConnection = MM_con_pitagoras_STRING

MM_editTable = "reserva_de_vagas"

MM_editRedirectUrl = "enviar_reserva.asp"

MM_fieldsStr = "nome_aluno|value|nome_pai|value|cpf_pai|value|nome_mae|value|cpf_mae|value|endereco|value|bairro|value|cidade|value|estado|value|telefone|value|celular|value|serie|value|turno|value|email|value"

MM_columnsStr = "nome_aluno|',none,''|nome_pai|',none,''|cpf_pai|',none,''|nome_mae|',none,''|cpf_mae|',none,''|endereco|',none,''|bairro|',none,''|cidade|',none,''|estado|',none,''|telefone|',none,''|celular|',none,''|serie|',none,''|turno|',none,''|email|',none,''"

' create the MM_fields and MM_columns arrays

MM_fields = Split(MM_fieldsStr, "|")

MM_columns = Split(MM_columnsStr, "|")

' set the form values

For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2

MM_fields(MM_i+1) = CStr(Request.Form(MM_fields(MM_i)))

Next

' append the query string to the redirect URL

If (MM_editRedirectUrl <> "" And Request.QueryString <> "") Then

If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then

MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString

Else

MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString

End If

End If

End If

%>

<%

' *** Insert Record: construct a sql insert statement and execute it

Dim MM_tableValues

Dim MM_dbValues

If (CStr(Request("MM_insert")) <> "") Then

' create the sql insert statement

MM_tableValues = ""

MM_dbValues = ""

For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2

MM_formVal = MM_fields(MM_i+1)

MM_typeArray = Split(MM_columns(MM_i+1),",")

MM_delim = MM_typeArray(0)

If (MM_delim = "none") Then MM_delim = ""

MM_altVal = MM_typeArray(1)

If (MM_altVal = "none") Then MM_altVal = ""

MM_emptyVal = MM_typeArray(2)

If (MM_emptyVal = "none") Then MM_emptyVal = ""

If (MM_formVal = "") Then

MM_formVal = MM_emptyVal

Else

If (MM_altVal <> "") Then

MM_formVal = MM_altVal

ElseIf (MM_delim = "'") Then ' escape quotes

MM_formVal = "'" & Replace(MM_formVal,"'","''") & "'"

Else

MM_formVal = MM_delim + MM_formVal + MM_delim

End If

End If

If (MM_i <> LBound(MM_fields)) Then

MM_tableValues = MM_tableValues & ","

MM_dbValues = MM_dbValues & ","

End If

MM_tableValues = MM_tableValues & MM_columns(MM_i)

MM_dbValues = MM_dbValues & MM_formVal

Next

MM_editQuery = "insert into " & MM_editTable & " (" & MM_tableValues & ") values (" & MM_dbValues & ")"

If (Not MM_abortEdit) Then

' execute the insert

Set MM_editCmd = Server.CreateObject("ADODB.Command")

MM_editCmd.ActiveConnection = MM_editConnection

MM_editCmd.CommandText = MM_editQuery

MM_editCmd.Execute

MM_editCmd.ActiveConnection.Close

If (MM_editRedirectUrl <> "") Then

Response.Redirect(MM_editRedirectUrl)

End If

End If

End If

%>

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">

<html>

<head>

<LINK href="../Style.css" rel="stylesheet" type="text/css">

<title>reserva</title>

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">

</head>

<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">

<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">

<tr>

<td width="100%" height="100">&nbsp;</td>

</tr>

<tr>

<td height="483"> <TABLE width="100%" height="100%" border=0 cellPadding=0 cellSpacing=0>

<TBODY>

<TR>

<TD width="153" height="476" vAlign=top>&nbsp; </TD>

<TD width="473" vAlign=top> <table width="100%" border="0" cellspacing="0" cellpadding="0">

<tr>

<td>&nbsp;</td>

</tr>

<tr>

<td><blockquote><strong><font color="#FF6600">RESERVAS DE VAGAS</font></strong></blockquote></td>

</tr>

<tr>

<td><blockquote>

<blockquote>

<p>Para reservar a vaga de seu filho no col&eacute;gio

Pit&aacute;goras por favor preencha o formul&aacute;rio

abaixo e ap&oacute;s recebermos seu pedido entraremos

em contato com voc&ecirc;.</p>

</blockquote>

</blockquote></td>

</tr>

<tr>

<td> <form method="POST" action="<%=MM_editAction%>" name="form1">

<table width="299" align="center">

<tr valign="baseline">

<td width="131" align="right" nowrap>Nome do aluno:</td>

<td width="209"> <input type="text" name="nome_aluno" value="" size="32">

</td>

</tr>

<tr valign="baseline">

<td nowrap align="right">Nome do Ppai:</td>

<td> <input type="text" name="nome_pai" value="" size="32">

</td>

</tr>

<tr valign="baseline">

<td nowrap align="right">Cpf do pai:</td>

<td> <input type="text" name="cpf_pai" value="" size="32">

</td>

</tr>

<tr valign="baseline">

<td nowrap align="right">Nome da m&atilde;e:</td>

<td> <input type="text" name="nome_mae" value="" size="32">

</td>

</tr>

<tr valign="baseline">

<td nowrap align="right">Cpf da m&atilde;e:</td>

<td> <input type="text" name="cpf_mae" value="" size="32">

</td>

</tr>

<tr valign="baseline">

<td nowrap align="right">Endere&ccedil;o:</td>

<td> <input type="text" name="endereco" value="" size="32">

</td>

</tr>

<tr valign="baseline">

<td nowrap align="right">Bairro:</td>

<td> <input type="text" name="bairro" value="" size="32">

</td>

</tr>

<tr valign="baseline">

<td nowrap align="right">Cidade:</td>

<td> <input type="text" name="cidade" value="" size="32">

</td>

</tr>

<tr valign="baseline">

<td nowrap align="right">Estado:</td>

<td> <input type="text" name="estado" value="" size="32">

</td>

</tr>

<tr valign="baseline">

<td nowrap align="right">Telefone:</td>

<td> <input type="text" name="telefone" value="" size="32">

</td>

</tr>

<tr valign="baseline">

<td nowrap align="right">Celular:</td>

<td> <input type="text" name="celular" value="" size="32">

</td>

</tr>

<tr valign="baseline">

<td nowrap align="right">S&eacute;rie:</td>

<td> <input type="text" name="serie" value="" size="32">

</td>

</tr>

<tr valign="baseline">

<td nowrap align="right">Turno:</td>

<td> <input type="text" name="turno" value="" size="32">

</td>

</tr>

<tr valign="baseline">

<td nowrap align="right">Email:</td>

<td> <input type="text" name="email" value="" size="32">

</td>

</tr>

<tr valign="baseline">

<td nowrap align="right">&nbsp;</td>

<td> <input type="submit" value="Enviar"> </td>

</tr>

</table>

<input type="hidden" name="MM_insert" value="form1">

<input name="recipiente" type="hidden" id="recipiente" value="vulmarjunior@pitagoras-ro.com.br">

</form>

<p>&nbsp;</p>

<p>&nbsp;</p></td>

</tr>

<tr>

<td>&nbsp;</td>

</tr>

</table></TD>

<TD vAlign=top width=143>&nbsp;</TD>

</TR>

</TBODY>

</TABLE></td>

</tr>

</table>

</body>

</html>

Script da página que enviaria as informações para mim

<%

'Declarando variaveis

Dim sNomeAluno, sNomePai, sCpfPai, sNomeMae, ScpfMae, sEndereco, SBairro, sCidade, sTelefone, sCelular, sSerie, sTurno, sEmail

Dim objcemail,objMail

Dim foi,enviar

sNomeAluno = Request.Form("nome_aluno")

sNomePai = Request.Form("nome_pai")

sCpfPai = Request.Form("cpf_pai")

sNomeMae = Request.Form("nome_mae")

sCpfMae = Request.Form("cpf_mae")

sEndereco = Request.Form("endereco")

sBairro = Request.form("bairro")

sCidade = Request.Form("cidade")

sTelefone = Request.Form("telefone")

sCelular = Request.Form("celular")

sSerie = Request.Form("serie")

sTurno = Request.Form("turno")

sEmail = Request.Form("email")

'auto-resposta

strMensagem = "[Essa é uma auto-reposta.]" & vbNewLine & vbNewLine

strMensagem = strMensagem & "Mensagem" & vbNewLine

strMensagem = strMensagem & "Mensagem" & vbNewLine

strMensagem = strMensagem & "Mensagem" & vbNewLine & vbNewLine

strMensagem = strMensagem & "Mensagem" & vbNewLine

strMensagem = strMensagem & "Mensagem" & vbNewLine & vbNewLine

strMensagem = strMensagem & "Mensagem" & "Mensagem" & vbNewLine

strMensagem = strMensagem & "Mensagem" & vbNewLine & vbNewLine

strMensagem = strMensagem & "Mensagem" & vbNewLine

strMensagem = strMensagem & "Mensagem" & vbNewLine

strMensagem = strMensagem & "Mensagem" & vbNewLine

strMensagem = strMensagem & "Mensagem" & vbNewLine

strMensagem = strMensagem & "Mensagem" & vbNewLine

strMensagem = strMensagem & "Mensagem" & vbNewLine

strMensagem = strMensagem & "Mensagem" & vbNewLine

strMensagem = strMensagem & "Mensagem" & vbNewLine

strMensagem = strMensagem & "Mensagem" & vbNewLine

strMensagem = strMensagem & "Mensagem" & vbNewLine

strMensagem = strMensagem & "Mensagem" & vbNewLine

strMensagem = strMensagem & "Mensagem" & vbNewLine

strMensagem = strMensagem & "Mensagem" & vbNewLine

strMensagem = strMensagem & "Mensagem" & vbNewLine

'criando objeto para autoresposta

set objMail = server.createobject("CDONTS.NewMail")

objMail.From = Request.Form("recipiente")

objMail.To = sEmail

objMail.Subject = "Re: Reserva de vaga"

objMail.Body = strMensagem

objMail.Importance = 1

objMail.Send

set objMail = Nothing

'envia email para o webmaster

strMensagem = "Segue abaixo os dados enviada pelo site para a Reserva de vaga" & vbNewLine & vbNewLine

strMensagem = strMensagem & "Nome do Aluno: " & sNomeAluno & vbNewLine

strMensagem = strMensagem & "Nome do Pai: " & sNomePai & vbNewLine

strMensagem = strMensagem & "CPF do Pai: " & sCpfPai & vbNewLine

strMensagem = strMensagem & "Nome da Mãe: " & sNomeMae & vbNewLine

strMensagem = strMensagem & "CPF da mãe: " & sCpfMae & vbNewLine

strMensagem = strMensagem & "Endereço: " & sEndereco & vbNewLine

strMensagem = strMensagem & "Bairro: " & sBairro & vbNewLine

strMensagem = strMensagem & "Cidade: " & sCidade & vbNewLine

strMensagem = strMensagem & "Telefone: " & sTelefone & vbNewLine

strMensagem = strMensagem & "Celular: " & sCelular & vbNewLine

strMensagem = strMensagem & "Série: " & sSerie & vbNewLine

strMensagem = strMensagem & "Turno: " & sTurno & vbNewLine

strMensagem = strMensagem & "Email para contato: " & sEmail & vbNewLine

'criando objeto para enviar email para o webmaster

set objMail = server.createobject("CDONTS.NewMail")

objMail.From = sEmail

objMail.To = Request.Form("recipiente")

objMail.Subject = "Reserva de Vaga - Site Pitágoras-RO"

objMail.Body = strMensagem

objMail.Importance = 1

objMail.Send

set objMail = Nothing

response.redirect "../convidados/obrigado2.htm"

%

Na verdade não qual o erro pois aparantemente não aparece nenhum erro mas a mensagem não chega até mim.

Espero poder ser ajudado