• 0
Sign in to follow this  
Gnomo

Alguem Pode Me Ajudar A Configurar ?

Question

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 = "[email protected]"

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:

Share this post


Link to post
Share on other sites

5 answers to this question

Recommended Posts

  • 0

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 = "[email protected]"

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...

Share this post


Link to post
Share on other sites
  • 0

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

Share this post


Link to post
Share on other sites
  • 0

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 :)

Share this post


Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Sign in to follow this