Jump to content


Photo

Erro Ao Enviar O Formulario


  • Faça o login para participar
2 replies to this topic

#1 pezinho46

pezinho46

    Novato no fórum

  • Usuários
  • 24 posts
  • Sexo:Não informado

Posted 17/04/2004, 01:14

OLÁ!


TENHO ESSE CODIGO MAS QUANDO PONHO A PAGINA NO AR E TESTO NÃO FUNCIONA! PORQUE?


<%
'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 = "email@site.org.br"
sNameTo = "www.site.com.br"
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
'CONFIGURE ESTA LINHA !
Mailer.RemoteHost = "smtp.site.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
%>




esse codigo acaba caindo na parte do comando else

a menssagem exibida é:


Ocorreu um erro.
O Erro é At least one Recipient, CC or BCC must be entered



O QUE QUER DIZER ISSO?

#2 pezinho46

pezinho46

    Novato no fórum

  • Usuários
  • 24 posts
  • Sexo:Não informado

Posted 17/04/2004, 17:44

ae ninguem sabe porque deste erro?"?/??/?//

#3 wozniak

wozniak

    Arquiteto de software

  • Usuários
  • 578 posts
  • Sexo:Masculino
  • Localidade:Rio de Janeiro / RJ

Posted 17/04/2004, 18:06

tenta agora

<%
'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 = "email@site.org.br"
sNameTo = "www.site.com.br"
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
'CONFIGURE ESTA LINHA !
Mailer.RemoteHost = "smtp.site.com.br"
Mailer.AddRecipient 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
%>

abraços t+




0 user(s) are reading this topic

0 membro(s), 0 visitante(s) e 0 membros anônimo(s)

IPB Skin By Virteq