Amigos, tentei de tudo no servidor há Cdonts instalado, talvez seja um simples erro meu, o qual não encontro.
Estou terminando de fazer um formulário de contato para um cliente, porem não esta enviando o E-mail e também não gera erro algum, até mesmo mostra na tela e-mail enviado com sucesso..
Analisem o Codigo!
Já tentei de tudo, mas sem exito..
<%
IF MODULO = "enviar_email" THEN
'PEGA OS VALORES DOS FORMULÁRIOS
ip = Request.ServerVariables("REMOTE_ADDR")
nome = Request.form("nome")
email = Request.form("email")
assunto = Request.form("assunto")
comentario = Request.form("comentario")
remeter = Request.form("remeter") 'É um imput Hiden com o E-mail de destino!
data = date()
hora = time()
Set objMail = Server.CreateObject("CDONTS.Newmail")
' Definindo o destino do email
objMail.To = remeter
' Remetente do Email
objMail.From = email
' Assunto do Email
objMail.Subject = assunto
htmlemail = htmlemail & "<HTML>"
htmlemail = htmlemail & "<HEAD>"
htmlemail = htmlemail & "<TITLE> ""&assunto&"" </TITLE>" ' Já tentei deixar as Variaveis com apenas UMA ÚNICA ASPA tanto essaquanto as abaixo!
htmlemail = htmlemail & "</HEAD>"
htmlemail = htmlemail & "<BODY BGCOLOR=#FFFFFF>"
htmlemail = htmlemail & "<P>E-mail Enviado Por: ""&nome&"" de IP=""&ip&"", as ""&hora&""hs de ""&data&""<br><br> ""&comentario&"" </P>"
htmlemail = htmlemail & "<BR>"
htmlemail = htmlemail & "<BR>"
htmlemail = htmlemail & "<p></p><hr></hr>"
htmlemail = htmlemail & "</BODY>"
htmlemail = htmlemail & "</HTML>"
objMail.Bodyformat = 0
objMail.MailFormat = 0
objMail.Body = htmlemail
objMail.Send
Set objMail = Nothing
Response.Write "Email Enviado Com sucesso"
END IF
%>
Pergunta
Visitante
Amigos, tentei de tudo no servidor há Cdonts instalado, talvez seja um simples erro meu, o qual não encontro.
Estou terminando de fazer um formulário de contato para um cliente, porem não esta enviando o E-mail e também não gera erro algum, até mesmo mostra na tela e-mail enviado com sucesso..
Analisem o Codigo!
Já tentei de tudo, mas sem exito..
<% IF MODULO = "enviar_email" THEN 'PEGA OS VALORES DOS FORMULÁRIOS ip = Request.ServerVariables("REMOTE_ADDR") nome = Request.form("nome") email = Request.form("email") assunto = Request.form("assunto") comentario = Request.form("comentario") remeter = Request.form("remeter") 'É um imput Hiden com o E-mail de destino! data = date() hora = time() Set objMail = Server.CreateObject("CDONTS.Newmail") ' Definindo o destino do email objMail.To = remeter ' Remetente do Email objMail.From = email ' Assunto do Email objMail.Subject = assunto htmlemail = htmlemail & "<HTML>" htmlemail = htmlemail & "<HEAD>" htmlemail = htmlemail & "<TITLE> ""&assunto&"" </TITLE>" ' Já tentei deixar as Variaveis com apenas UMA ÚNICA ASPA tanto essaquanto as abaixo! htmlemail = htmlemail & "</HEAD>" htmlemail = htmlemail & "<BODY BGCOLOR=#FFFFFF>" htmlemail = htmlemail & "<P>E-mail Enviado Por: ""&nome&"" de IP=""&ip&"", as ""&hora&""hs de ""&data&""<br><br> ""&comentario&"" </P>" htmlemail = htmlemail & "<BR>" htmlemail = htmlemail & "<BR>" htmlemail = htmlemail & "<p></p><hr></hr>" htmlemail = htmlemail & "</BODY>" htmlemail = htmlemail & "</HTML>" objMail.Bodyformat = 0 objMail.MailFormat = 0 objMail.Body = htmlemail objMail.Send Set objMail = Nothing Response.Write "Email Enviado Com sucesso" END IF %>Link para o comentário
Compartilhar em outros sites
5 respostass a esta questão
Posts Recomendados