Recuperando dados

[neo.mg 0]

Galera como posso fazer pra enviar um email atraves de um formulario e ao mesmo tempo postar os dados no banco. Ja sei como fazer o insert mas nao estou conseguindo mandar os dados por email.

No form vai ter os seguintes campos.

Nome

Telefone

Email

Mensagem

Quando o cliente fazer o cadastro automaticamente vai receber um email de boas vindas.

O codigo que estou usando pra inserir e o seguinte.

 

 <%Option ExplicitResponse.Expires = 0Dim objConn, objRs, strQuery, strConnection, nome, telefone, email, mensagemnome = Request.Form("nome")telefone = Request.Form("telefone")email = Request.Form("email")mensagem = Request.Form("mensagem")Set objConn =  Server.CreateObject("ADODB.Connection")objConn.Open "DBQ=" & Server.MapPath("\julliano\db\contato.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}","username","password"strQuery = "INSERT INTO contato (nome,telefone,email,mensagem) VALUES ('"&nome&"','"&telefone&"','"&email&"','"&mensagem&"')"On error Resume NextSet ObjRs = objConn.Execute(strQuery)objConn.closeSet objRs = NothingSet objConn = Nothingif err = 0 Thenresponse.redirect "sucesso.asp"end if%>

[Salgado 4]

Qual componente de e-mail o server usa?

A sintaxe de envio depende do componente, então sabendo qual poderemos lhe ajudar!

[neo.mg 0]

Estou usando o JMail.message.

[Salgado 4]

A sintaxe básica é:

Set obj_Mail = Server.CreateObject("JMail.SMTPMail") 'Criando o objeto JMail para o envio
obj_Mail.ServerAddress = "mail.thewesthorse.com" 'Setando o servidor de envio de e-mail
obj_Mail.Logging = True
obj_Mail.ContentType = "text/html" 'Setando para envio como HTML
obj_Mail.Sender = Var_email 'E-mail de quem está enviando
obj_Mail.SenderName = Var_nome 'Nome de quem está enviando
obj_Mail.AddRecipient Var_meu_email 'Para
obj_Mail.Subject = "Visitante do Site" 'Assunto
obj_Mail.Body = corpo_email 'Corpo do email
obj_Mail.Execute 'Tentando enviar
Set obj_Mail = Nothing 'Destruindo o objeto

Tente adaptar para enviar logo após o cadastramento no BD!

[neo.mg 0]

muito obrigado...vou tentar..dai te falo se deu certo..

[neo.mg 0]

galera nao deu certo da seguinte erro http500.

Galera me ajudem to precisando muito desse codigo e ele ta fuindindo minha cuca e nao da certo...

 

<%ConnString="Provider=Microsoft.JET.OLEDB.4.0; Data Source=" & Server.MapPath("/julliano/db/contato.mdb")sqlstmt = "INSERT INTO contato (nome, email, assunto, mensagem) VALUES ('"&Request.Form("nome")&"','"&Request.Form("email")&"','"&Request.Form("assunto")&"','"&Request.Form("mensagem")&"')"Set Conn = Server.CreateObject("ADODB.Connection")Conn.Open ConnString'Response.write sqlstmt'Response.endset rsquery = conn.execute(sqlstmt) response.redirect "sucesso.asp"sub endSet Mail = Server.CreateObject("JMAIL.Message")                              Mail.FromName = "info.mg"                                             Mail.From = "info.mg@bol.com.br"                                             Mail.AddRecipient " & email & "                 Mail.subject = "Teste"                                                       Mail.Body = "Teste"                       Mail.Send("mail.thewesthorse.com")                                           Set Mail = Nothing%>

[Salgado 4]

Erro HTTP 500 é um erro genérico, se você usa o IE desmarque a opção "mostrar erros HTTP amigáveis" nas opções avançadas

[neo.mg 0]

so que no IE 6.0 nao tem essa opção..ou tem e eu nao achei...

[Salgado 4]

Tem sim:

Ferramentas/Opções da Internet, Guia "Avançadas" na seção "Navegação" desmarque a opção "Mostrar mensagens de erro HTTP amigáveis"

[neo.mg 0]

Fera agora ta dando esse erro no codigo.Erro de compilação do Microsoft VBScript erro '800a03f2' Identificador esperado /julliano/insert_into.asp, line 10 sub end----^

[Salgado 4]

O que esse sub end está fazendo ai?

[neo.mg 0]

Fera deu certo em partes...pois nao envia o email mas cadastra no banco....

o codigo ficou assim

<%ConnString="Provider=Microsoft.JET.OLEDB.4.0; Data Source=" & Server.MapPath("/julliano/db/contato.mdb")sqlstmt = "INSERT INTO contato (nome, email, assunto, mensagem) VALUES ('"&Request.Form("nome")&"','"&Request.Form("email")&"','"&Request.Form("assunto")&"','"&Request.Form("mensagem")&"')"Set Conn = Server.CreateObject("ADODB.Connection")Conn.Open ConnString'Response.write sqlstmt'Response.endset rsquery = conn.execute(sqlstmt) response.redirect "sucesso.asp"Set Mail = Server.CreateObject("JMAIL.Message")                              Mail.FromName = "info.mg"                                             Mail.From = "info.mg@bol.com.br"                                             Mail.AddRecipient " & email & "                 Mail.subject = "Teste"                                                       Mail.Body = "Teste"                       Mail.Send("mail.thewesthorse.com")                                           Set Mail = Nothing%>

[Salgado 4]

Nessa linha:

Mail.Send("mail.thewesthorse.com")

você tem que entrar com o Serviço SMTP do seu server!

[neo.mg 0]

Galera consegui ai esta o codigo funcionando certinho....obrg a todos e principalmente ao Salgado pela ajuda..

<%Dim objConn, strQuery, sql_query, RsQuery, campo, sql, idDim email, data_entrada, data_entrega, maobra, itens, total, ObjRsemail = Request.Form("email")data_entrada = Request.Form("data_entrada")data_entrega = Request.Form("data_entrega")maobra = Request.Form("maobra")itens = Request.Form("itens")total = Request.Form("total")id = Request.Form("id")Set objConn =  Server.CreateObject("ADODB.Connection")objConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("banco.mdb")strQuery = "UPDATE tb_agendamento SET data_entrada='"&data_entrada&"',data_entrega='"&data_entrega&"',maobra='"&maobra&"',itens='"&itens&"',total='"&total&"' WHERE id ="&idOn error Resume NextSet ObjRs = objConn.Execute(strQuery)objConn.closeSet objRs = NothingSet objConn = Nothing if err = 0 Then	end if%><%strEmail = Request.Form("Email")strNome = Request.Form("Nome")strdata_entrada = Request.Form("data_entrada")strdata_entrega = Request.Form("data_entrega")strmaobra = Request.Form("maobra")stritens = Request.Form("itens")strtotal = Request.Form("total")Set objMail = Server.Createobject("CDONTS.Newmail")objMail.RemoteHost = "--" ' SMTP do provedorobjMail.FromName = "--" ' nome que vai aparecer no emailobjMail.From = "--" ' email de quem vai mandarobjMail.to = strEmail objMail.Subject = "Sua solicitação de agendamento"strBody = "Olá Sr " & strNome & ", " & vbcrlf & vbcrlfstrBody = strBody & "Estamos encaminha o orçamento para sua verificação" & vbcrlf & vbcrlfstrBody = strBody & "Data e hora da entrada do veículo: " & strdata_entrada & vbcrlf & vbcrlfstrBody = strBody & "Data e hora da saida do veículo: " & strdata_entrega & vbcrlf & vbcrlfstrBody = strBody & "Valor da Mão de obra: " & strmaobra & vbcrlf & vbcrlfstrBody = strBody & "Itens: " & stritens & vbcrlf & vbcrlfstrBody = strBody & "Total: " & strtotal & vbcrlf & vbcrlfresponse.write strBody' Definimos o corpoobjMail.Body = strBodyobjMail.Send ' Email enviado com a senha para o usuário cadastradoSet objMail = nothing' Fim :)%>