Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

fortes

Erro no envio dos dados para o email.

Por , em ASP Clássico

Recommended Posts

fortes    0

fortes
Postado

Boa tarde pessoal, sou novo no forum e eu peguei esses dias um "fale conosco" aqui, mas não estou conseguindo implementar no meu site. Da erro na hora de enviar. Não estou conseguindo configurar o "enviar.asp". Alguem pode me dar uma mão?

 

O Site:

 

http://joaofortes.webng.com/data/default.asp

 

O erro:

Server object error 'ASP 0177 : 800401f3'

Server.CreateObject Failed

/_____15_/joaofortes/data/enviar.asp, line 14

800401f3

O que eu to com muita dúvida, é como configurar isso(é o que tá dando erro):

CODE

'Cria o objeto

set mailer = server.createobject("smtp.terra.com.br")

Mailer.FromName = sNameFrom

Mailer.FromAddress = sEmailFrom

'Host para envio de emails

Mailer.RemoteHost = "smtp.terra.com.br"

Mailer.AddRecipient sEmailTo, sNameTo

Mailer.Subject = sAssunto & " - E-mail"

O código:

 

DEFAULT.ASP

CODE
<html><head>

<title>Fale Conosco CódigoLivre :.: iMasters (Exemplo)</title>

</head>

<body topmargin="0" leftmargin="0">

<div align="center">

<center>

<table border="0" width="266">

<tr>

<td width="258" valign="top" height="1">

<form method="POST" action="enviar.asp">

<div align="center">

<center>

<table border="0" width="50%" cellspacing="0" cellpadding="0">

<tr>

<td width="96%">

<p align="left"><font size="2" face="Verdana">Nome:</font></td>

</tr>

<tr>

<td width="96%">

<p align="left"><font size="2" face="Verdana"><input type="text" name="nome" size="25" style="font-family: Verdana; font-size: 10 pt; border-style: solid; border-width: 1"></font></td>

</tr>

<tr>

<td width="96%">

<p align="left"><font size="2" face="Verdana">E-mail:</font></td>

</tr>

<tr>

<td width="96%">

<p align="left"><font size="2" face="Verdana"><input type="text" name="email" size="25" style="font-family: Verdana; font-size: 10 pt; border-style: solid; border-width: 1"></font></td>

</tr>

<tr>

<td width="96%">

<p align="left"><font size="2" face="Verdana">Assunto:</font></td>

</tr>

<tr>

<td width="96%">

<p align="left"><font size="2" face="Verdana"><input type="text" name="assunto" size="25" style="font-family: Verdana; font-size: 10 pt; border-style: solid; border-width: 1"></font></td>

</tr>

<tr>

<td width="96%">

<p align="left"><font size="2" face="Verdana">Mensagem:</font></td>

</tr>

<tr>

<td width="96%">

<p align="left"><font size="2" face="Verdana"><textarea rows="5" name="mensagem" cols="25" style="font-family: Verdana; font-size: 10 pt; border-style: solid; border-width: 1"></textarea></font></td>

</tr>

<tr>

<td width="96%"> </td>

</tr>

<tr>

<td width="96%">

<p align="center"><font face="Verdana"><input type="submit" src="imagens/enviar.gif" value="Enviar >>" name="enviar"></font></td>

</tr>

</table>

</center>

</div>

</form>

</center>

</td>

</tr>

</table>

</div>

</body>

</html>

ENVIAR.ASP

CODE
<%

'Declarando variveis

Dim sNameTo, sNameFrom, sEmailFrom, sText, sEmailTo, sAssunto

 

'Pegando os dados digitados nos campos e colocando em variaveis

sNameFrom = Request.Form("nome")

sEmailFrom = Request.Form("email")

sEmailTo = "joao.fortes.neto@terra.com.br"

sNameTo = "Nome do Site"

sText = Request.Form("mensagem")

sAssunto = Request.Form("assunto")

 

'Cria o objeto

set mailer = server.createobject("smtp.terra.com.br")

Mailer.FromName = sNameFrom

Mailer.FromAddress = sEmailFrom

'Host para envio de emails

Mailer.RemoteHost = "smtp.terra.com.br"

Mailer.AddRecipient sEmailTo, sNameTo

Mailer.Subject = sAssunto & " - E-mail"

 

'Monta a texto para o envio

strMsgHeader = sNameFrom & "(" & sEmailFrom & ") " & " quem enviou! " & vbCrLf & vbCrLf

strMsgFooter = sText

Mailer.BodyText = strMsgHeader & strMsgFooter

' Se for enviado redirecionar para obrigado.asp

if Mailer.SendMail then

Response.Redirect "obrigado.asp"

else

' Se não for enviado mostra o erro que ocoreu

Response.Write ("Ocorreu um erro.<BR>")

Response.Write ("O Erro é " & Mailer.Response)

end if

%>

OBRIGADO.ASP

CODE
<html><head>

<title>Fale Conosco CódigoLivre :.: iMasters (Exemplo)</title>

</head>

<body topmargin="0" leftmargin="0">

<div align="center">

<center>

<table border="0" width="439">

<tr>

</center>

<p align="center"><font color="#00B0FF" size="3"><b>Muito Obrigado !!</b></font><p align="center"><font size="2"></font><p align="center"><font size="2">

Sua Mensagem foi enviada com sucesso.</font>

</td>

</tr>

</table>

</div>

</td>

</body>

</html>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Giancarlo Braga    0

Giancarlo Braga
Postado

Esse objeto tá estranho.

No caso você teria que criar um objeto do componente.

Acho que esse código está errado. Procure uns exemplos utilizando ASPmail ou CDONTs.

 

 

Abraçs,

Giancarlo Braga;.

Compartilhar este post

Link para o post
Compartilhar em outros sites

Ted k'    126

Ted k'
Postado 

set mailer = server.createobject("smtp.terra.com.br")

realmente isso não existe mesmo!!

 

deve ser assim:

set mailer = server.createobject("SMTPsvg.Mailer")

Compartilhar este post

Link para o post
Compartilhar em outros sites

fortes    0

fortes
Postado 

set mailer = server.createobject("smtp.terra.com.br")

realmente isso não existe mesmo!!

 

deve ser assim:

set mailer = server.createobject("SMTPsvg.Mailer")

Ok, mas o erro continua. Novo Código:

 

CODE
<%

'Declarando variveis

Dim sNameTo, sNameFrom, sEmailFrom, sText, sEmailTo, sAssunto

 

'Pegando os dados digitados nos campos e colocando em variaveis

sNameFrom = Request.Form("nome")

sEmailFrom = Request.Form("email")

sEmailTo = "joao.fortes.neto@terra.com.br"

sNameTo = "Nome do Site"

sText = Request.Form("mensagem")

sAssunto = Request.Form("assunto")

 

'Cria o objeto

set mailer = server.createobject("SMTPsvg.Mailer")

Mailer.FromName = sNameFrom

Mailer.FromAddress = sEmailFrom

'Host para envio de emails

Mailer.RemoteHost = "SMTPsvg.Mailer"

Mailer.AddRecipient sEmailTo, sNameTo

Mailer.Subject = sAssunto & " - E-mail"

 

'Monta a texto para o envio

strMsgHeader = sNameFrom & "(" & sEmailFrom & ") " & " quem enviou! " & vbCrLf & vbCrLf

strMsgFooter = sText

Mailer.BodyText = strMsgHeader & strMsgFooter

' Se for enviado redirecionar para obrigado.asp

if Mailer.SendMail then

Response.Redirect "obrigado.asp"

else

' Se não for enviado mostra o erro que ocoreu

Response.Write ("Ocorreu um erro.<BR>")

Response.Write ("O Erro é " & Mailer.Response)

end if

%>

Obrigado até aqui!

 

Abraços,

 

Fortes!

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito