Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
Olá pessoal tudo bem?? Eu gostaria de saber se alguem poderia me ajudar a mandar a criar um escript simples de contato , onde os dads preenchidos neste formulario serao enviados para um email.. alguem poderia me ajudar postar algum cosdigo ?tentei fazer usando o ASpmail mas nao consegui<%'cria o objetoSet Mail = Server.CreateObject("SMTPsvg.Mailer") 'nome de quem enviaMail.FromName = request.Form("frm_nome")'email de quem enviaMail.FromAddress= request.Form("frm_email")'Servidor de envio de emailMail.RemoteHost = "smtp.vbweb.com.br" 'Email de quem irá receberMail.AddRecipient = "rodrigo@rodrigo.net"'Assunto do emailMail.Subject = "Contato via site" 'conteudo da mensagemMail.BodyText = "Texto da Mensagem." & VbCrLf & "Mensagem de Teste."'Envia o emailMail.SendMail Response.write("Email enviado com sucesso")set Mail = nothing%>Obrigado
Se voce puder mandar pra mim rodrigoappellegrini@hotmail.com Obrigado!
Sou cpntra o envio pro email mais vou postar aqui, beleza?
Suponha-mos que este é seu formuraio de contato.asp:
<form id="dados" name="dados" method="post" action="enviar.asp" class="menu"><input name="assunto" type="hidden" value="Contato" /><input name="fron" type="hidden" value="sac@dominio.com.br" />Nome: <input name="nome" type="text" class="form" size="40" />Tel :<input name="nome" type="text" class="form" size="40" />Assunto: <textarea name="msg" cols="40" rows="4" wrap="virtual" class="form" id="msg"></textarea> <input name="submit" type="submit" class="form" value="Enviar" /></form>
enviar.asp:
& "<head>"
& "</head>"
& "<body bgcolor=""#FFFFFF"">"
& "<p align=""center""><font face=""Verdana, Arial, Helvetica, sans-serif"" color=""#666666"" size=""2"">Eu sou <b>" & str_nome & "</b>, meu telefone é <b>" & str_fone & "</b>e, estou entrando em contato porque linenums:0'><%str_fron = trim(request.form("fron"))str_nome = trim(request.form("nome"))str_email = trim(request.form("email"))str_fone = trim(request.form("fone"))str_assunto = trim(request.form("assunto"))set mensagem = server.createobject("CDONTS.NewMail")mensagem.from = str_emailmensagem.to = "sac@dominio.com.br"mensagem.Subject = str_assuntomensagem.bodyformat = 0mensagem.mailformat = 0mensagem.Body = "<html>" _ 'abaixo o email que você receberá& "<head>" _& "</head>" _& "<body bgcolor=""#FFFFFF"">" _& "<p align=""center""><font face=""Verdana, Arial, Helvetica, sans-serif"" color=""#666666"" size=""2"">Eu sou <b>" & str_nome & "</b>, meu telefone é <b>" & str_fone & "</b>e, estou entrando em contato porque:<b>" & str_msg & "</b>.</font></p>"_& "</body>" _& "</html>"mensagem.SendSet objMail = nothingset mensagem = server.createobject("CDONTS.NewMail")mensagem.from = str_fronmensagem.to = str_emailmensagem.Subject = str_assuntomensagem.bodyformat = 0mensagem.mailformat = 1mensagem.Body = "<html>" _'abaixo o email que o usuario recebera automaticamente& "<head>" _& "</head>" _& "<body bgcolor=""#FFFFFF"">" _& "<p align=""left""><img src=""[http://www.dominio.com.br/images/logo.jpg""](http://www.dominio.com.br/images/logo.jpg) border=""0""><hr><br><font face=""Verdana, Arial, Helvetica, sans-serif"" color=""#666666"" size=""2"">olá <b>" & str_nome & "</b>, parabéns você acaba de entrar em contato logo enviaremos respostas</font><br>Qualquer dolúvida entre em contato pelo e-mail sac@bcjj.com.br ou ligue para: 55555-55555. Até logo e seja bem-vindo.</font></p>" _& "</body>" _& "</html>"mensagem.SendSet objMail = nothingResponse.redirect "confirm.html" 'pagina de confirmação%>Espero que seja isso que presise FLW!!!
Bom amigo, neste forum tem muitos scripts de AspMail, mias se quiser usar o cDonts eu tenho uns muito bons aqui!T+!!!!