[Resolvido] Envio de E-mail

[Edson L. Zimmermann 0]

Bom dia,

 

Estou tentando enviar um e-mail com os dados de um produto e os dados do cliente interessado no produto, vou postar o código da página e depois o erro apresentado:

 

<%
'Declarando variveis
Dim sNameTo, sNameFrom, sEmailFrom, sText, sEmailTo, sAssunto, id, nomeprod, telefone, celular

'Pegando os dados digitados nos campos e colocando em variaveis
sNameFrom = Request.Form("nome_cli")
sEmailFrom = Request.Form("email")
sEmailTo = "dznet@dznet.com.br"
sNameTo = "DZNET"

   id = request.Form("id")
   nomeprod = request.Form("nome_prod")
   telefone = request.Form("telefone")
   celular = request.Form("celular")

sText = sNameFrom & " - " & telefone & " - " & celular & " - " & sEmailFrom  
sAssunto = id & nomeprod


'Cria o objeto
  set mailer = server.createobject("SMTPsvg.Mailer")
  Mailer.FromName = sNameFrom
  Mailer.FromAddress = sEmailFrom
'Host para envio de emails
  Mailer.RemoteHost = "smtp-web.uni5.net"
  Mailer.AddRecipient sNameTo, sEmailTo
  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
%>

O erro é o seguinte:

 

Ocorreu um erro.
O Erro é 554 5.5.1 Error: no valid recipients

Agradeço a atenção!

[xanburzum 169]

pelo erro o destinatário (email) não é válido, tente um email para teste que saiba que funcione,

e consulte a documentação do componente...

[Edson L. Zimmermann 0]

Amigo, fiz o seu teste e o erro foi o mesmo...

 

Mais obrigado mesmo assim...

[xanburzum 169]

você só tem acesso a este componente, pois você poderia usar o CDOSYS, e faz um teste com este código:

 

<form name="FormName" method="Post" action="confirmation.asp">
<table>
<tr><td>Email: </td>
<td><input type="text" name="Email" size="50"></td></tr>
<tr><td>First Name: </td>
<td><input type="text" name="FirstName" size="50"></td></tr>
<tr><td>Last Name: </td>
<td><input type="text" name="LastName" size="50"></td></tr>
<tr><td>Assunto: </td>
<td><input type="text" name="Subject" size="50"></td></tr>
<tr><td>Comentário: </td>
<td><textarea name="Comments"></textarea></td> 
</table>
<input type="submit" name="Submit" value="Submit Form"> 
</form>

confirmation.asp:

<%
DIM strEmail, strFirstName, strLastName, strSubject, strComments, Mailer
strEmail = request.form("Email")
strFirstName = request.form("FirstName")
strLastName = request.form("LastName") 
strSubject = request.form("Subject")
strComments = request.form("Comments")
DIM Mailer, strMsgHeader, qryItem, strMsgInfo
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.FromName = "Admin"
Mailer.FromAddress= "root@seu_site.com"
Mailer.ReplyTo = strEmail
Mailer.RemoteHost = " seu_site.com"
Mailer.AddRecipient " seu_site ", "general@ seu_site.com"
Mailer.Subject = " Form Online "
strMsgHeader = " Esta mensagem foi enviada por email DE XXX" & vbCrLf & vbCrLf
Mailer.BodyText = strMsgHeader & vbCrLf & "Email: " & Request.Form("Email") & _
vbCrLf & "First Name: " & Request.Form("FirstName") & _
vbCrLf & "Last Name: " & Request.Form("LastName") & _
vbCrLf & "Assunto: " & Request.Form("Subject") & _
vbCrLf & " Comentário: " & Request.Form("Comments")
IF Mailer.SendMail THEN
Response.Write strFirstName & ",<br>"
Response.Write " Sua mensagem foi enviada com sucesso."
ELSE
Response.Write "The following error occurred while sending your message: " & Mailer.Response
END IF
%>

[Edson L. Zimmermann 0]

Cara,

 

Esse componente ta funcionando, porque eu tenho um outro código que manda um e-mail só que não com id do produto, telefone, celular e nome do produto, sendo assim não vejo necessidade de mudar o componente e sim de tentar descobrir o pq do erro, mais agredeço mesmo assim sua ajuda...

 

brigadão

[Edson L. Zimmermann 0]

Descobri o problema,

 

eu alterei o e-mail de quem recebe, para o domínio de quem estaria recebendo, como era um teste eu estava mandando pra outro e-mail, trocando isso funcionou na hora...

 

Grato a todos...