[Resolvido] Envio de E-mail
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!
Discussão (5)
Carregando comentários...