Alguem Pode Me Ajudar A Configurar ?

[Gnomo]

de uma olhada no codigo abaixo ....

<%

'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 = "gnomoskt@globo.com"

sNameTo = "Games World"

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 = "smtp2.localweb.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

%>

ta pegando normal .. Mais quando clico em enviar da um erro de HTTP 500 :( ... porque ? alguém poderia me explicar ?

Desde já Agradeço .. :) :mellow:

[JoaquimSantos]

Analizando o Codigo....

<%

'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 = "gnomoskt@globo.com"

sNameTo = "Games World"

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 = "smtp2.localweb.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

%>

Aqui estao as variaveis que voce não declarou...

Mailer, strMsgHeader, strMsgFooter

e... eu acho que quando a gente comeca um objeto, não podemos declarar variaveis dentro dele..., coloque as variaveis strMsgHeader e strMsgFooter acima do Server.CreateObject. acho que assim vai funcionar...

[Gnomo]

Po cara ... Eu não entendi direito .... :( :( :o :o :unsure: :unsure:

Poderia me explicar melhor ? :)

[resopi]

olá! primeiramente vamos desmascarar esse erro 500!!!

no seu I.E vah em:

ferramentas=>opçoes da internet=>avançado=>

e desabilite a opção:

exiber mensagem de erros amigaveis....

proto assim você vera o erro q esta acontecendo...

só pra garantir você tem o componete aspmail instaldo no seu PC?

falou

[Gnomo]

Caro resopi fiz o que você sugeriu ... desmarquei a opção de mostrar erros amigaveis .... E deu o seguinte erro ...

Microsoft VBScript runtime error '800a01b6'

Object doesn't support this property or method: 'objMail.SendMail'

/fabricio/form/contato.asp, line 54

Respondendo sua pergunta:

Não tenho o componente aspmail instalado no meu pc ... Comom faço pra instalar ?

Muito Obrigado ... :P :)

[ursolouco]

Brother!!!

Neste caso você tem que ir no site do AspEmail e fazer o download do componente.

Abraços!!!!

[urso]