E-mail de confirmação de cadastro

rcdesign · Junho 3, 2003

Galera, preciso de uma luz....Após o envio do cadastro pelo internauta e sua inclusão no banco de dados preciso enviar automaticamente um e-mail para este cliente informando sobre seu cadastramento e o número de seu cadastro.alguém sabe como fazer isso??

asp.net · Junho 3, 2003

'Declaração das variáveis

Dim user_nome, user_sobrenome, user_email, user_cemail, user_senha, user_csenha, user_cidade, user_estado, BuscaSQL, resultado

'::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

::::::Leitura dos Valores do Formulário

user_nome=Trim(Request.Form("usuario"))

user_sobrenome=Trim(Request.Form("sobrenome"))

user_email=Trim(Request.Form("email"))

user_cemail=Trim(Request.Form("conf_email"))

'Obrecordset.CursorLocation = adUseServer

'Obrecordset.CursorType = adOpenForwardOnly

'Obrecordset.LockType = adLockOptimistic

if Len(user_email)<>0 and InStr(user_email,"@")<>0 then

Dim numero,nCount,sret,nNumber,nLength, sValidChars,nNoChars

':::::::::::::::::::::::::::::::::::::::::::Criando uma senha aleatória

Const szDefault = "a1b2c3d4e5f6g7h8i9j0k"

Randomize 'init random

sValidChars = szDefault 'Passa para a variavel os caracteres da seguencia szDefault

nLength = Len( sValidChars ) 'Verifica o tamanho da string sValidChars

For nCount = 1 To 6

nNumber = Int((nLength * Rnd) + 1)

sRet = sRet & Mid( sValidChars, nNumber, 1 )

user_senha=numero

user_cidade=Trim(Request.Form("cidade"))

user_estado=Trim(Request.Form("estado"))

'::::::::::::::::::::::::::::::::::::Verificando se o email foi digitado corretamente

IF user_email <> user_cemail then

response.write "Digite o email corretamente"

else

'::::::::::::::::::::::::::::::::::::::::Verificando a existencia de um usuário já cadastrado com este email

BuscaSQL = "Select us_email from usuario where us_email='"&user_email&"'"

Obrecordset.Open BuscaSQL

If not Obrecordset.eof then

response.redirect ("usuarioja.asp")

else

Obrecordset.Close

'::::::::::::::::::::::::::::::::::::::::Adicionando o usuário no banco

user_email=lcase(user_email)

user_senha=lcase(user_senha)

ObRecordset.Open "usuario"

ObRecordset.Addnew

ObRecordset("us_nome")=user_nome

ObRecordset("us_sobrenome")=user_sobrenome

ObRecordset("us_email")=user_email

ObRecordset("us_senha")=user_senha

ObRecordset("us_cidade")=user_cidade

ObRecordset("us_estado")=user_estado

Obrecordset("us_confirmado")=False

Obrecordset("us_cadastro")=Date()

ObRecordset.Update

ObRecordset.Close

End If

Dim objemail, mensagem

':::::::::::::::::::::::::::::::::::::::: Criando o objeto para envio do email

Set objemail=CreateObject("CDONTS.NewMail")

':::::::::::::::::::::::::::::::::::::::::Composição da mensagem

mensagem = "<html><head><title>Cadastro de Usuário na Valeu Boi</title></head>"

mensagem = mensagem&"<body topmargin='0' leftmargin='0' bgcolor='#ffffff'>"

mensagem = mensagem&"<table width='590' border='0'>"

mensagem = mensagem&"<tr><td><A href='http://www.valeuboi.com.br' target='_blank'><img src='http://www.valeuboi.com.br/jpgs/logo.jpg' border='0'></a>"

mensagem = mensagem&"<img src='http://www.valeuboi.com.br/jpgs/topo.jpg' border='0'></td></tr>"

mensagem = mensagem&"<tr><td></td></tr>"

mensagem = mensagem&"<tr><td bgcolor='#ffffff'> "

mensagem = mensagem&"Olá "&user_nome&", este e-mail é a confirmação do seu cadastro de "

mensagem = mensagem&"usuário do nosso portal. "

mensagem = mensagem&"Para ter acesso a todas as informações "

mensagem = mensagem&"e vantagens que o nosso portal tem a lhe oferecer você deverá acessar o link abaixo "

mensagem = mensagem&"para confirmar o seu cadastro."

mensagem = mensagem&" Dentre as inúmeras vantagens do nosso portal destacamos o chat, os cartões virtuais, "

mensagem = mensagem&"o álbum de fotos e a relação dos vaqueiros e das mulheres de gado. "

mensagem = mensagem&"O seu cadastro terá validade de 5 (cinco) dias para ser confirmado, caso você não "

mensagem = mensagem&"confirme o seu cadastro, este será apagado da nossa base de dados. "

mensagem = mensagem&" Após a confirmação do seu cadastro você estará automaticamente "

mensagem = mensagem&"cadastrado no nosso boletim semanal sobre a vaquejada atualizado com todas as informações "

mensagem = mensagem&" e novidades que acontecem no mundo da vaquejada.</td></tr>"

mensagem = mensagem&"<tr><td> Abaixo seguem as informações do seu cadastro que só serão "

mensagem = mensagem&"válidas depois da confirmação do seu cadastro.</td></tr><tr></tr> "

mensagem = mensagem&"<tr><td>Nome:"&user_nome&"</td></tr>"

mensagem = mensagem&"<TR><TD>Email:"&user_email&"</td></tr>"

mensagem = mensagem&"<tr><td>Senha:"&user_senha&"</td></tr>"

mensagem = mensagem&"<tr><td> Confirmo o meu cadastro no portal Valeu Boi, dando permissão para o portal utilizar as minhas "

mensagem = mensagem&"informações para fins de divulgação de eventos e anuncios sobre vaquejadas e "

mensagem = mensagem&"afins, não podendo ser considerado SPAM, quando estas forem enviadas pelo portal."

mensagem = mensagem&"<a href='http://www.valeuboi.com.br/confirma_cadastro.asp?usr_confirma="&user_email&"' target='_blank'>"

mensagem = mensagem&"Confirmo</a></td></tr>"

mensagem = mensagem&" <tr><td>Aproveite para votar no nosso portal no prêmio ibest, é fácil, basta clicar"

mensagem = mensagem&"<a href='http://premio.ibest.com.br/topten/topten.asp?IDSite=317&IDCategoria=95&NomeSite=Valeu%2BBoi&Selo=1' target='_blank'>"

mensagem = mensagem&" aqui</a></td></tr>"

mensagem = mensagem&" <tr><td>Atenciosamente ::Equipe Valeu Boi "

mensagem = mensagem&"<a href='http://www.valeuboi.com.br>http://www.valeuboi.com.br</a></td></tr>"

mensagem = mensagem&"</table></body>"

':::::::::::::::::::::::::::::::::::::::;Configutrações do email

Objemail.From = "valeuboi@valeuboi.com.br" 'remetente

Objemail.Bcc = "info@valeuboi.com.br" 'destinatario oculto

Objemail.To = user_email 'destinatario

Objemail.Subject = "Cadastro realizado com sucesso" 'titulo da mensagem

Objemail.BodyFormat = 0 'formato do corpo da mensagem

Objemail.MailFormat = 0 'formato da mensagem

Objemail.Body = mensagem 'texto da mensagem

Objemail.Send 'O PROBLEMA ESTÁ NESTA LINHA DE COMANDOS, ESPERAR A RESPOSTA DO EMAIL DO HOSTNET

If err.number > 0 then

response.write "O email não foi enviado aguarde que logo que possível será enviado"&err.description

else

response.write "Email enviado com sucesso"

Response.Redirect ("index.asp")

end if

Set Objemail=Nothing

End If

Set Con=nothing

Set ObRecordset=nothing

else

response.Redirect("form_cadusuario.asp")

End if

fernandam · Junho 3, 2003

Se você tiver o CDonts instalado no servidor, use isto ; 'Seta o objeto e envia a mensagem Set Mailer = CreateObject("CDONTS.NewMail") Mailer.From = email ' e-mail de quem esta enviando a mensagem Mailer.To = c_email ' e-mail de quem vai receber a mensagem Mailer.Cc = c_emailConta ' cópia de e-mail de quem vai receber a nsagem Mailer.BodyFormat = 0 ' Parâmetro de formatação[ 0 = HTML / 1 = Text ] Mailer.MailFormat = 0 ' Parâmetro de formatação[ 0 = HTML / 1 = Text ] Mailer.Importance = 1 ' Parâmetro de formatação[ 0 = Lowest / 1 = Normal / 2 = Highest priority (Urgent) ] Mailer.Subject = Assunto Mailer.Body = Corpo Mailer.Send 'Destrói o objetoset Mailer = nothing

rcdesign · Junho 4, 2003

.... Quase deu certo.......Está acontecendo o seguinte problema:O envio do e-mail está indo com o primeiro código da tabela quando deveria informar o código do cliente que acabou de ser cadastrado.Pra ficar mais fácil estou passando o código integral da página de inclusão do cadastro aonde coloquei o CDonts

<%@LANGUAGE="VBSCRIPT"%><%' *** Edit Operations: declare variablesMM_editAction = CStr(Request("URL"))If (Request.QueryString <> "") Then MM_editAction = MM_editAction & "?" & Request.QueryStringEnd If' boolean to abort record editMM_abortEdit = false' query string to executeMM_editQuery = ""%><%' *** Insert Record: set variablesIf (CStr(Request("MM_insert")) <> "") Then MM_editConnection = MM_cadastro_STRING MM_editTable = "cadastro_cliente" MM_editRedirectUrl = "confirmacao_cadastro.asp" MM_fieldsStr = "cliente|value|nome|value|cargo|value|dtnasc|value|endereco|value|cidade|value|estado|value|pais|value|cep|value|ddd|value|telefone|value|ramaltel|value|fax|value|ramalfax|value|email1|value|email2|value|site|value|razaosocial|value|cnpj|value|locais|value" MM_columnsStr = "cliente|',none,''|nome|',none,''|cargo|',none,''|dtnasc|',none,''|endereco|',none,''|cidade|',none,''|estado|',none,''|pais|',none,''|cep|',none,''|ddd|',none,''|telefone|',none,''|ramaltel|',none,''|fax|',none,''|ramalfax|',none,''|email1|',none,''|email2|',none,''|site|',none,''|razaosocial|',none,''|cnpj|',none,''|locais|',none,''" ' create the MM_fields and MM_columns arrays MM_fields = Split(MM_fieldsStr, "|") MM_columns = Split(MM_columnsStr, "|") ' set the form values For i = LBound(MM_fields) To UBound(MM_fields) Step 2 MM_fields(i+1) = CStr(Request.Form(MM_fields(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 IfEnd If%><%' *** Insert Record: construct a sql insert statement and execute itIf (CStr(Request("MM_insert")) <> "") Then ' create the sql insert statement MM_tableValues = "" MM_dbValues = "" For i = LBound(MM_fields) To UBound(MM_fields) Step 2 FormVal = MM_fields(i+1) MM_typeArray = Split(MM_columns(i+1),",") Delim = MM_typeArray(0) If (Delim = "none") Then Delim = "" AltVal = MM_typeArray(1) If (AltVal = "none") Then AltVal = "" EmptyVal = MM_typeArray(2) If (EmptyVal = "none") Then EmptyVal = "" If (FormVal = "") Then FormVal = EmptyVal Else If (AltVal <> "") Then FormVal = AltVal ElseIf (Delim = "'") Then ' escape quotes FormVal = "'" & Replace(FormVal,"'","''") & "'" Else FormVal = Delim + FormVal + Delim End If End If If (i <> LBound(MM_fields)) Then MM_tableValues = MM_tableValues & "," MM_dbValues = MM_dbValues & "," End if MM_tableValues = MM_tableValues & MM_columns(i) MM_dbValues = MM_dbValues & 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 IfEnd If%><%set Recordset1 = Server.CreateObject("ADODB.Recordset")Recordset1.ActiveConnection = MM_cadastro_STRINGRecordset1.Source = "SELECT * FROM cadastro_cliente"Recordset1.CursorType = 0Recordset1.CursorLocation = 2Recordset1.LockType = 3Recordset1.Open()Recordset1_numRows = 0%><html><head><title>Club Sul Turismo - Cadastro de Clientes</title><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"></head><body bgcolor="#FFFFFF" text="#000000" background="images/fundo2.jpg" bgproperties="fixed"><form name="form1" method="post" action="<%=MM_editAction%>"> <input type="hidden" name="MM_insert" value="true"> <table width="100%" border="0" cellspacing="2" cellpadding="2" align="center"> <tr valign="top"> <td colspan="6" height="25"> <div align="center"> <table width="100%" border="0" cellspacing="0" cellpadding="0" align="left"> <tr> <td width="35%">Cadastro de Clientes </td> <td> <select name="cliente" size="1"> <option selected>Pessoa Física</option> <option>Pessoa Jurídica</option> </select> </td> </tr> </table> </div> </td> </tr> <tr> <td width="17%" height="25">Nome/Contato</td> <td colspan="5" height="25"> <input type="text" name="nome" size="50" maxlength="50"> </td> </tr> <tr> <td height="25" width="17%">Cargo * </td> <td colspan="5" height="25"> <input type="text" name="cargo" size="30" maxlength="30" value="* Se Pessoa Jurídica"> </td> </tr> <tr> <td width="17%" height="25">Data de Nascimento *</td> <td height="25" colspan="5"> <input type="text" name="dtnasc" size="15" maxlength="10" value="dd/mm/aaaa"> * Se Pessoa Física</td> </tr> <tr> <td width="17%" height="25">Endereço</td> <td height="25" colspan="5"> <input type="text" name="endereco" size="30" maxlength="50" value="Endereço Completo"> </td> </tr> <tr> <td width="17%" height="25">Cidade</td> <td height="25" width="27%"> <input type="text" name="cidade" size="30" maxlength="50"> </td> <td height="25" width="8%">Estado</td> <td colspan="3" height="25"> <select name=estado size="1"> <option value="UF" selected>Estado</option> <option value="AC">Acre</option> <option value="AP">Amapá</option> <option value="AM">Amazonas</option> <option value="BA">Bahia</option> <option value="CE">Ceará</option> <option value="DF">Distrito Federal</option> <option value="ES">Espírito Santo</option> <option value="GO">Goiás</option> <option value="MA">Maranhão</option> <option value="MT">Mato Grosso</option> <option value="MS">Mato Grosso do Sul</option> <option value="MG">Minas Gerais</option> <option value="PA">Pará</option> <option value="PB">Paraíba</option> <option value="PR">Paraná</option> <option value="PE">Pernambuco</option> <option value="PI">Piauí</option> <option value="RJ">Rio de Janeiro</option> <option value="RN">Rio Grande do Norte</option> <option value="RS">Rio Grande do Sul</option> <option value="RO">Rondônia</option> <option value="RR">Roraima</option> <option value="SC">Santa Catarina</option> <option value="SP">São Paulo</option> <option value="SE">Sergipe</option> <option value="TO">Tocantins</option> <option>Outro País</option> </select> </td> </tr> <tr> <td width="17%" height="25">País</td> <td height="25" width="27%"> <input type="text" name="pais" size="30" maxlength="30"> </td> <td height="25" width="8%">CEP</td> <td colspan="3" height="25"> <input type="text" name="cep" size="10" maxlength="10"> </td> </tr> <tr> <td width="17%" height="25">Telefone</td> <td height="25" width="27%"> <input type="text" name="ddd" size="04" maxlength="10" value="ddd"> <input type="text" name="telefone" size="10" maxlength="10" value="Fixo"> Ramal <input type="text" name="ramaltel" size="4" maxlength="5" value="R"> </td> <td height="25" width="8%">Fax</td> <td colspan="3" height="25"> <input type="text" name="fax" size="10" maxlength="10" value="Fax"> Ramal <input type="text" name="ramalfax" size="4" maxlength="5" value="R"> </td> </tr> <tr> <td width="17%" height="25">E-mail 1 </td> <td height="25" colspan="5"> <input type="text" name="email1" size="30" maxlength="40" value="E-mail principal"> </td> </tr> <tr> <td width="17%" height="25">E-mail 2</td> <td colspan="5" height="25"> <input type="text" name="email2" size="30" maxlength="40" value="E-mail alternativo"> </td> </tr> <tr> <td width="17%" height="25">Site</td> <td colspan="5" height="25"> <input type="text" name="site" size="30" maxlength="40" value="http://www."> </td> </tr> <tr> <td width="17%" height="25">Razão Social</td> <td colspan="5" height="25"> <input type="text" name="razaosocial" size="50" maxlength="50" value="* Se Pessoa Jurídica"> </td> </tr> <tr> <td width="17%" height="25">CNPJ</td> <td colspan="5" height="25"> <input type="text" name="cnpj" size="30" maxlength="30" value="* Se Pessoa Jurídica"> </td> </tr> <tr> <td colspan="6" height="25"> <div align="center"> <hr align="center" width="80%"> </div> </td> </tr> <tr> <td colspan="6" height="25"> <div align="center">Pretende Viajar ?? Liste aqui os locais de interesse para suas viagens</div> </td> </tr> <tr valign="top" align="left"> <td colspan="6" height="81"> <div align="center"> <textarea name="locais" cols="40" rows="3">Deixe sua Mensagem</textarea> </div> </td> </tr> <tr> <td colspan="6" height="25"> <div align="center"> <input type="submit" name="enviar" value="Enviar"> <input type="reset" name="limpar" value="Limpar"> </div> </td> </tr> </table></form> </body></html><%Dim MailerSet Mailer = CreateObject("CDONTS.NewMail")Mailer.From = "clubsul@clubsul.com.br"Mailer.To = Recordset1.Fields.Item("email1").ValueMailer.Cc = "gerencia@clubsul.com.br"Mailer.BodyFormat = 0Mailer.MailFormat = 0Mailer.Importance = 1Mailer.Subject = "Seu Cadastro na Club Sul Turismo"Mailer.Body = "<html>" _& "<head>" _& "</head>" _& "<body bgcolor='#FFFFFF' background='images/fundo2.jpg' bgproperties='fixed'>" _& "Obrigado por cadastrar-se na Club Sul Turismo. "_& "Prezado "_& Recordset1.Fields.Item("nome").Value _& "Informamos que seu cadastro foi efetuado com sucesso e que seu código de cliente na Club Sul é: "_& Recordset1.Fields.Item("cod").Value _& " "_& "Salve este e-mail em uma pasta segura e sempre que precisar entrar em contato conosco por favor informe seu código. "_& "Atenciosamente Club Sul Turismo"_& "</body>" _& "</html>"Mailer.Send set Mailer = nothing%><%Recordset1.Close()%>

Como resolver isso?

rcdesign · Junho 4, 2003

Ninguém pra me ajudar hoje?

rcdesign · Junho 4, 2003

help me please!!!!!!!

Salgado · Junho 4, 2003

Acho q seu erro está aqui:

Recordset1.Source = "SELECT * FROM cadastro_cliente"

Nessa SQL você deveria selecionar o cód do usuario, não?

Tipo:

Recordset1.Source = "SELECT * FROM cadastro_cliente where cliente='"&suaVar&"'"

Acho q é isso

asp.net · Junho 4, 2003

Cara é neste parâmetro ::: Mailer.Body = "<html>" _ ::::

que você deve colocar o valor (o corpo) da mensagem. ao invés de colocar o "<html>" você deve colocar

Recordset1.Fields.Item("nome_do_campo_que_vc_quer_mandar").Value

rcdesign · Junho 4, 2003

Infelizmente o problema não está aí não.... com esta alteração continuo fazendo o cadastramento mas não envia o e-mail aparecendo na página do formulário um erro de script nesta linha:

Mailer.To = Recordset1.Fields.Item("email1").Value

Tentei alterar a destinação mas não consegui fazer chamar o e-mail de destino... mudando por exemplo para "&email1&" ele dá erro no script e nem abre a página.......... Com relação......

Cara é neste parâmetro ::: Mailer.Body = "<html>" _ ::::que você deve colocar o valor (o corpo) da mensagem. ao invés de colocar o "<html>" você deve colocarRecordset1.Fields.Item("nome_do_campo_que_vc_quer_mandar").Value

..... asp.net, o problema não é no corpo da mensagem. O e-mail está sendo enviado, o problema é que ele busca o primeiro cadastro do banco de dados para mandar a mensagem, quando ele deveria buscar o último código de cliente cadastrado - ou colocando mais claramente, o código deste cliente que acabou de efetuar o cadastramento.

rcdesign · Junho 5, 2003

Bom Dia colegas do Forum.....será que alguém consegue me ajudar a resolver este problema ainda hoje???

rcdesign · Junho 5, 2003

Já queimei alguns neurônio pensando nisso e experimentando várias coisas, mas como sou fraquinho em programação não consigo resolver isto...Acho que o caminho seja este:1. cadastrar no BD2. buscar no formulário o nome do cliente3. verificar no BD qual o número do cadastro4. retornar ao CDonts estas informações para enviar o e-mailMas.............Como fazer?Me ajudem por favor!!!!!!!!! :)

rcdesign · Junho 6, 2003

:D :o :o :( :(

xenxen · Julho 11, 2003

Amigo!

o problema é o seguinte você deve tirar o "="!

o codigo vai ficar assim

Mailer.To  Recordset1.Fields.Item("email1").Value

tenta lá...

fui..........

Arquivado

E-mail de confirmação de cadastro

Recommended Posts

rcdesign 1

Compartilhar este post

Link para o post

Compartilhar em outros sites

asp.net 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

fernandam 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

rcdesign 1

Compartilhar este post

Link para o post

Compartilhar em outros sites

rcdesign 1

Compartilhar este post

Link para o post

Compartilhar em outros sites

rcdesign 1

Compartilhar este post

Link para o post

Compartilhar em outros sites

Salgado 4

Compartilhar este post

Link para o post

Compartilhar em outros sites

asp.net 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

rcdesign 1

Compartilhar este post

Link para o post

Compartilhar em outros sites

rcdesign 1

Compartilhar este post

Link para o post

Compartilhar em outros sites

rcdesign 1

Compartilhar este post

Link para o post

Compartilhar em outros sites

rcdesign 1

Compartilhar este post

Link para o post

Compartilhar em outros sites

xenxen 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Fixar div até atingir uma certa altura

Ajuda com Extends e envio para o banco

PHP+Codeginiter - Orientação para Impressão

Fóruns

Tempo Real

Informação importante