função de envio de email no formulário de contato html5 e css3

[wanderson.PHW 0]

Estou com um probleminha amigos, peguei um site de um cliente para fazer algumas modificações e o cliente disse que não estava mais recebendo nada daquele formulario do site, e constatei que não tem nenhuma função de envio de email, como sou meio leigo nesse assunto de envio de formularios via email gostaria da ajuda de vcs, quem puder me ajudar, desde já agradeço.

 

segue o codigo que tem na pagina do formulario:

<div class="contactform">
<form action="http://dominiodosite.com.br/#kontaktform" method="post">
<div class="form_item">
<label for="c_name">Nome *</label>
<input type="text" name="c_name" id="c_name" />
<div class="clear"></div>
</div>
							
<div class="form_item">
<label for="c_firma">Empresa</label>
<input type="text" name="c_firma" id="c_firma" />
<div class="clear"></div>
</div>
							
<div class="form_item">
<label for="c_telefon">Telefone</label>
<input type="text" name="c_telefon" id="c_telefon" />
<div class="clear"></div>
</div>
							
<div class="form_item">
<label for="c_email">E-Mail *</label>
<input type="email" name="c_email" id="c_email" />
<div class="clear"></div>
</div>

<div class="form_item">
<label for="c_msg">Mensagem *</label>
<textarea name="c_msg" id="c_msg"></textarea>
<div class="clear"></div>
</div>
							
<div class="form_item">
<div class="label_dummy"></div>
<input type="submit" name="c_submit" id="c_submit" class="button_submit" value="enviar" />
<div class="clear"></div>
</div>
</form>

eu vi o form action chamando um arquivo #kontakt, mas nem existe este arquivo no diretório do site.

só tem esse codigo sobre o formulário, nem script sobre isso tem no site.

Plis Help me !!!

[ESerra 744]

É possível que o envio esteja sendo feito com ajax, então em tese a parte que processa o e-mail estaria em outro arquivo. A questão é que o que você postou é apenas um formulário e isto nunca vai enviar nada sozinho mesmo.

[wanderson.PHW 0]

Então amigo esse site não fui eu quem fiz, e também nunca trabalhei com um formulário desse tipo, por isso gostaria de uma ajuda, isso que eu postei acima é o unico arquivo relacionado ao formulário, veja que ele chama a função "#kontakt"

 

Não tem script ou comando nenhum no site sobre esse caminho, ja vasculhei o site inteiro e nada, help me?

[wanderson.PHW 0]

os scripts que a pagina está chamando não tem nenhum css ou js relacionado com o form,

segue o que a pagina está chamando, tirando isso aqui só fica o form que eu postei logo acima.

<script src="http://code.jquery.com/jquery-1.10.1.min.js"></script>
<script src="http://code.jquery.com/jquery-migrate-1.2.1.min.js"></script>
<script src="scripts/fancybox/jquery.fancybox-1.3.4.pack.js"></script>
<script src="scripts/jquery.bxslider/jquery.bxslider.min.js"></script>
<script type="text/javascript" src="scripts/functions.js"></script>

<link href="scripts/jquery.bxslider/jquery.bxslider.css" rel="stylesheet" type="text/css">
<link href="scripts/fancybox/jquery.fancybox-1.3.4.css" rel="stylesheet" type="text/css">
<!--<link href="scripts/stroll/css/stroll.min.css" rel="stylesheet" type="text/css">-->
<link href="css/animations.css" rel="stylesheet" type="text/css">
<link href="css/style.css" rel="stylesheet" type="text/css">

estou atrás de resolver esse problema já tem quase uma semana, se alguém tenha ideia de como posso fazer para resolver esse problema com meu formulário de contato, eu agradeço demaaaais.

[ESerra 744]

Se não existe nada em lugar algum, basta criar um script e disparar o envio do formulário por ele.

[wanderson.PHW 0]

Esse é o problem, eu nunca fiz um script de envio de email, tenho uns 3 aqui mas não consegui fazer funcionar,

segue o envio que tenho:

<%

session("dados_ok") = request.QueryString("sessao")

sch = "http://schemas.microsoft.com/cdo/configuration/"
Set cdoConfig = Server.CreateObject("CDO.Configuration")


'Variaveis
Dim meuservidorsmtp
Dim minhacontaautenticada
Dim minhasenhaparaenvio
Dim emailorigem
Dim emaildestino
Dim email

'Abaixo seguem algumas definicoes de variaveis para o envio de seu formulario. Por favor preencha os campos abaixo.

meuservidorsmtp = "smtp.dominio.com.br" ' Informacoes so seu servidor SMTP
minhacontaautenticada = "emailorigem@dominio.com.br" ' conta de e-mail utilizada para enviar
minhasenhaparaenvio = "senhadoemailorigem" ' senha da conta de e-mail
emailorigem = "emailorigem@dominio.com.br" ' e-mail que indica de onde partiu a mensagem
'emailorigem = request.Form("email") ' e-mail que indica de onde partiu a mensagem
emaildestino = "emaildestino@dominio.com" ' e-mail que vai receber as mensagens do formulario

'Fim da definição manual de parâmetros.

cdoConfig.Fields.Item(sch & "sendusing") = 2
cdoConfig.Fields.Item(sch & "smtpauthenticate") = 1
cdoConfig.Fields.Item(sch & "smtpserver") = meuservidorsmtp
cdoConfig.Fields.Item(sch & "smtpserverport") = 587
cdoConfig.Fields.Item(sch & "smtpconnectiontimeout") = 30
cdoConfig.Fields.Item(sch & "sendusername") = minhacontaautenticada
cdoConfig.Fields.Item(sch & "sendpassword") = minhasenhaparaenvio
cdoConfig.fields.update
Set cdoMessage = Server.CreateObject("CDO.Message")
Set cdoMessage.Configuration = cdoConfig

cdoMessage.BodyPart.Charset = "iso-8859-1"
cdoMessage.From = emailorigem
cdoMessage.To = emaildestino
cdoMessage.Subject = "Cadastro formulario"
cdoMessage.ReplyTo = Request("email")

strBody = "Dados do Formulario <br> <br>" & _
"Nome :"& Request("nome")& "<br><br>" & _
"Empresa :"& Request("empresa")& "<br><br>" & _
"Telefone :"& Request("telefone")& "<br><br>" & _
"E-Mail :"& Request("email")& "<br><br>" & _
"Mensagem: "& Request("mensagem")
strBody = strBody & "."
cdoMessage.HTMLBody = strBody

cdoMessage.Send

Set cdoMessage = Nothing
Set cdoConfig = Nothing

response.Redirect("paginadeagradecimentos.asp")
%>

[ESerra 744]

Isso que você postou é ASP...

 

Movendo para a área correta.

[wanderson.PHW 0]

amigo o site não é em asp, apenas esse envio de email que eu peguei na internet, tentei usar ele e tbm não deu certo no meu site, gostaria de um envio de email que funcione nesse form, mas não estou conseguindo.

 

Help?

[wanderson.PHW 0]

Isso que você postou é ASP...

 

Movendo para a área correta.

 

 

amigo o site não é em asp, apenas esse envio de email que eu peguei na internet, tentei usar ele e tbm não deu certo no meu site, gostaria de um envio de email que funcione nesse form, mas não estou conseguindo.

Help?

[biakelly 0]

Usa o CDOSYS:

 

 

crie uma página chamada envia.asp

 

Altere o campo abaixo: "localhost" e substitua pelo smtp do seu servidor

Não esqueça de preencher os campos objCDOSYSMail (From, To, Subject e TextBody)

<%
Set objCDOSYSMail = Server.CreateObject("CDO.Message")
Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")
 
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30
 
objCDOSYSCon.Fields.update 
 
Set objCDOSYSMail.Configuration = objCDOSYSCon
objCDOSYSMail.From = "Remetente@dominio.com"
objCDOSYSMail.To = "Destinatário@domínio.com"
objCDOSYSMail.Subject = "Assunto do e-mail"
objCDOSYSMail.TextBody = "Corpo da mensagem"
objCDOSYSMail.Send
 
set objCDOSYSMail = nothing
set objCDOSYSCon = nothing
response.write "<h1>Mensagem enviada com sucesso!!</h1>"
%>

Altere este trecho:

<form action="http://dominiodosite.com.br/#kontaktform" method="post"> 

Por (não esqueça de inserir o caminho de sua pasta)

<form action="envia.asp" method="post">

[xanburzum 169]

dá uma olhada no fórum eu postei vários exemplos, só adaptar depois

[biakelly 0]

Acho que o problema dele é só componente mesmo, se incluir o componente irá disparar sem problema.

[xanburzum 169]

mas não tem o componente instalado ?

[Ulisses Arrais 2]

Não é todo o servidor que aceita o uso do email proprio para rodar esse script! Para resolver isso cria uma conta no gmail e tem que habilitar nas configurações do gmail o acesso a aplicações pouco seguras!

 

A configuração do servidor do gmail fica assim:

<% 
'Declarando Variaveis 
Dim sch, cdoConfig, cdoMessage, x
' Chamando esquemas microsoft
sch = "http://schemas.microsoft.com/cdo/configuration/"  
' Criando objeto
Set cdoConfig = Server.CreateObject("CDO.Configuration")  
' Parametros do Config do Email
cdoConfig.Fields.Item(sch & "sendusing") = 2  
cdoConfig.Fields.Item(sch & "smtpauthenticate") = 1  
cdoConfig.Fields.Item(sch & "smtpusessl") = True 
cdoConfig.Fields.Item(sch & "smtpserverport") = 465 
cdoConfig.Fields.Item(sch & "smtpserver") = "smtp.gmail.com"  
cdoConfig.Fields.Item(sch & "sendusername") = "SEU EMAIL"  
cdoConfig.Fields.Item(sch & "sendpassword") = "SUA SENHA"
cdoConfig.fields.update  
' Montando Mensagem 
Set cdoMessage = Server.CreateObject("CDO.Message")  
Set cdoMessage.Configuration = cdoConfig  
' Dados de Cabeçalho
cdoMessage.From = "EMAIL DO AUTOR"  
cdoMessage.To = "DESTINARIOS"
cdoMessage.Subject = "ASSUNTO"  
cdoMessage.HTMLBody = "SUA MGS" 
cdoMessage.HTMLBodyPart.Charset = "utf-8"
' Enviando Email
x = cdoMessage.Send  
' Trantando falha 
if x > 0 then 
        Response.Write x 
        Response.End 
        else 
        response.write "Sua mensagem foi enviada com sucesso!" 
End if 
' Limpando Memoria
Set cdoMessage = Nothing  
Set cdoConfig = Nothing  
%>

[xanburzum 169]

dá uma olhada no fórum que postei vários exemplos com vários componentes, mas veja qual seu host trabalha e poste aqui

[wanderson.PHW 0]

Desculpem pela demora, estava com um problema na minha internet e tive que cancelar e fazer uma outra assinatura.

 

Muuuuito obrigado biakelly e Ulisses Arrais

 

os dois componentes me serviram muito bem.

 

estava louco pra resolver esse probleminha.