Formularios

bareta · Abril 8, 2004

e ai pessoal usei o modelo de formulario fale conosco, mais não consegui fazer ele funcionar editei os arquivos nescessarios mais não deu:

enviar.asp

<%

'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 = "fabiobareta@terra.com.br"

sNameTo = "Nome do Site"

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 = "smtp.bra.terra.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

%>

hospedei no servidor gratuito web samba:

www.websamba.com/bareta/faleconosco

e apos preencher o formulario ele apareceu o seguinte erro:

Server object error 'ASP 0177 : 800401f3'

Server.CreateObject Failed

/bareta/faleconosco/enviar.asp, line 14

Invalid ProgID. For additional information specific to this message please visit the Microsoft Online Support site located at: http://www.microsoft.com/contentredirect.asp.

o que devo fazer?

Bicicleta · Abril 8, 2004

O Servidor não tem o componente instalado!!!!!

Pra usar, você tem que ter um host que tenha o componente instalado...

Vai ser dificil você achar um servidor grátis que te dê suporte a componente de e-mail... Já é foda achar um que rode FSO, imagina componente de email!!! hehehehehe

Victor · Abril 8, 2004

Você é hospedado aonde??? Olhe nos planos os componentes de email q você tem, e retorne falando eles!!!

OBS: Vi que você posto la no aspbrasil mas ninguém respondeu

bareta · Abril 19, 2004

Eu tive olhando lá, ele tem o cdonts e aspmail, agora não tenho certeza se precisa mais alguma coisa.

o coloquei o arquivo que mostra componentes instalados lá o link é esse:

teste servidor

e o servidor smtp, como devo preencher?

com o server do meu e-mail?

ou dom site?

Victor · Abril 19, 2004

Seu servidor suporta CDONTS?? Ai posso até fazer um negocio pra você!!!

[]'s

Victor

bareta · Abril 20, 2004

cara olha o q aparece lá:

CDONTS Object: Versão: 1.2 INSTALADO

ADO DB Object: Versão: 2.5

File System Object NÃO INSTALADO

ASPMail Object INSTALADA

Para Mais Informações www.serverobjects.com

ASPImage Object NÃO INSTALADO

Para Mais Informações www.serverobjects.com

ASPUpload Object NÃO INSTALADO

Para Mais Informações www.persits.com

ASPEmail Object NÃO INSTALADO

Para Mais Informações www.persits.com

JMail Object NÃO INSTALADO

Para Mais Informações www.dimac.net

Bamboo.SMTP Object NÃO INSTALADO

Informações desta Transmissão

RunDate: Now

RunDate : 4/19/2004 10:41:10 PM

CDate(RunDate) : 4/19/2004 10:41:10 PM

CDate(" & RunDate) : 4/19/2004 10:41:10 PM

Transmitido: 4/19/2004 10:41:10 PM

isso é do arquivo q botei lá para testar

no site não fala nada só que é um servidor windows 2000 iis 5.0 com suporte a ASP.

Victor · Abril 20, 2004

Você pode utilizar isso então:

function_email.asp

<%
function email_cdonts(de_email, para_email, subject,  mensagem)

Set objmail = Server.CreateObject("CDONTS.NewMail")
objmail.mailformat=0 'para enviar html como mensagem
objmail.bodyformat=0 'para enviar html como mensagem
objmail.from = de_email
objmail.to = para_email
objmail.subject = subject
objmail.body = mensagem
objmail.send
Set objmail = nothing

end function
%>

envio.asp

call email_cdonts (request.form("email"), "email@provedor.com", "assunto",  request.form("mensagem"))%>

Caso tenha mais alguma dúvida, é só falar que te ajudaremos!!!

[]'s

Victor

bareta · Abril 20, 2004

não entendi isso são 2 arquivos?

um com a função de enviar e outro para preencher os dados?

Victor · Abril 20, 2004

Sim mas você também pode fazer tudo na mesma página, ai tem um request.form que vai pegar os dados do cara que vai preencher o formulario, ai já vai enviar para o email!!! Caso tenha mais alguma dúvida posta ae

[]'s

Victor

bareta · Abril 20, 2004

to perdido!!!

primeiro vamos criar um formulario:

como posso faze-lo?

depois a função de enviar a msg

como ela sera?

bolomaster · Abril 20, 2004

Meu olha ai vou postar um exemplo simples e facil de entender é so copiar e colar e alterar os dados

Abraços Arquivo de Formulario

<table width="100%" border="0" cellpadding="5" cellspacing="0">
  <tr>
    <td background="Imagens/FUNDO01.GIF">
<table width="100%" border="0" cellpadding="0" cellspacing="0" class="fonte">
        <tr> 
          <td width="479"><div align="left"><img src="Imagens/Titulo_contatos.gif" width="367" height="65"><strong><font size="4"> 
              </font></strong></div></td>
          <td width="274" valign="bottom">
<div align="right"><strong><font size="4"><img src="Imagens/Cont_01.gif" alt="Fala conosco" width="55" height="40"></font>Fale 
              Conosco</strong></div></td>
        </tr>
        <tr> 
          <td colspan="2" bgcolor="#000000"></td>
        </tr>
        <tr> 
          <td colspan="2"> <div align="left"> <strong></strong></div></td>
        </tr>
        <tr> 
          <td colspan="2"> </td>
        </tr>
        <tr> 
          <td colspan="2" background="Imagens/FUNDO01.GIF"> <form name="form1" method="post" action="enviarcontato.asp" >
              <table width="100%" border="0" cellspacing="0" cellpadding="0" class="Fonte">
                <tr valign="top"> 
                  <td>&nbsp;</td>
                  <td>&nbsp;</td>
                  <td>&nbsp;</td>
                  <td>&nbsp;</td>
                </tr>
                <tr valign="top"> 
                  <td width="112"> <div align="right"><strong>Nome:</strong></div></td>
                  <td width="239"> <img src="Imagens/PixelTrasp.gif" width="5" height="5"> 
                    <input name="txtnome" type="text" class="input2" id="txtnome" size="30"> 
                  </td>
                  <td width="123"> <div align="right"><strong>Endere&ccedil;o:</strong></div></td>
                  <td width="279"> <img src="Imagens/PixelTrasp.gif" width="5" height="5"> 
                    <input name="txtendereco" type="text"class="input2" id="txtendereco" size="30"> 
                  </td>
                </tr>
                <tr valign="top"> 
                  <td> <div align="right"><strong>Cidade:</strong></div></td>
                  <td> <img src="Imagens/PixelTrasp.gif" width="5" height="5"> 
                    <input name="txtcidade" type="text" class="input2" id="txtcidade" size="30"> 
                  </td>
                  <td> <div align="right"><strong>Estado:</strong></div></td>
                  <td> <img src="Imagens/PixelTrasp.gif" width="5" height="5"> 
                    <input name="txtestado" type="text" class="input2" id="txtestado" size="30"> 
                  </td>
                </tr>
                <tr valign="top"> 
                  <td> <div align="right"><strong>Telefone:</strong></div></td>
                  <td> <img src="Imagens/PixelTrasp.gif" width="5" height="5"> 
                    <input name="txttel" type="text" class="input2" id="txttel" size="30"> 
                  </td>
                  <td> <div align="right"><strong>Email:</strong></div></td>
                  <td> <img src="Imagens/PixelTrasp.gif" width="5" height="5"> 
                    <input name="txtemail" type="text" class="input2" id="txtemail" size="30"> 
                  </td>
                </tr>
                <tr valign="top"> 
                  <td> <div align="right"><strong>Turma:</strong></div></td>
                  <td> <img src="Imagens/PixelTrasp.gif" width="5" height="5"> 
                    <input name="txtturma" type="text" class="input2" id="txtturma" size="30"> 
                  </td>
                  <td> <div align="right"><strong>Turno:</strong></div></td>
                  <td> <img src="Imagens/PixelTrasp.gif" width="5" height="5"> 
                    <input name="txtturno" type="text" class="input2" id="txtturno" size="30"> 
                  </td>
                </tr>
                <tr valign="top"> 
                  <td> <div align="right"><strong>Assunto:</strong></div></td>
                  <td> <img src="Imagens/PixelTrasp.gif" width="5" height="5"> 
                    <select name="selassunto" id="selassunto" class="input2">
                      <option>D&uacute;vida</option>
                      <option>Sugest&atilde;o</option>
                      <option>Cr&iacute;tica</option>
                      <option>Elogio</option>
                    </select> </td>
                  <td> <div align="right"><strong>Direcionar para:</strong></div></td>
                  <td> <img src="Imagens/PixelTrasp.gif" width="5" height="5"> 
                    <select name="seldirect" id="seldirect" class="input2">
                      <option value="email@dominio.com.br">Tesouraria</option>
                      <option value="email@dominio.com.br">Dire&ccedil;&atilde;o</option>
                      <option value="email@dominio.com.br">Tecnologia</option>
                      <option value="email@dominio.com.br">Secretaria</option>
                      <option value="email@dominio.com.br">Coordena&ccedil;&atilde;o</option>
                    </select> </td>
                </tr>
                <tr valign="top"> 
                  <td colspan="4"> <br> <div align="center"><strong>Mensagem:</strong><br>
                      <textarea name="txtmsg" cols="100" rows="10" id="txtmsg" class="input2"></textarea>
                    </div></td>
                </tr>
                <tr valign="top"> 
                  <td colspan="4"></td>
                </tr>
                <tr valign="top"> 
                  <td colspan="2"><div align="center"> 
                      <input type="submit" name="Submit" value="Enviar">
                    </div></td>
                  <td colspan="2"><div align="center"> 
                      <input type="reset" name="Submit2" value="Limpar">
                    </div></td>
                </tr>
              </table>
            </form></td>
        </tr>
        <tr> 
          <td colspan="2"><p align="left"><br>
            </p></td>
        </tr>
        <tr> 
          <td colspan="2"><p><strong><img src="Imagens/PixelTrasp.gif" width="15" height="5"><a href="javascript:history.back(-1)" class="link2">voltar...</a></strong><br>
            </p></td>
        </tr>
      </table></td>
  </tr>
</table>

Agora o arquivo enviarcontato.asp

<title>Seu Email foi enviado com sucesso!!! </title>
<%
' declaracao ade variaveis usadas - é opcional
dim nome, endereco, cidade, estado, tel, email, turma, turno, assunto, direct, msg, mail
' busca informaçoes do formulario de contato
   nome = request.form("txtnome")
   endereco = request.form("txtendereco")
   cidade = request.form("txtcidade")
   estado = request.form("txtestado")
   tel = request.form("txttel")
   email = request.form("txtemail")
   turma = request.form("txtturma")
   turno = request.form("txtturno")
   assunto = request.form("selassunto")
   direct = request.form("seldirect")
   msg = request.form("txtmsg")
'criamos o objeto para enviar a mensagem (Objeto é o cdonts)
    set mail = createObject("CDONTS.newMail")
     mail.from = email
     mail.To = direct
     mail.subject = assunto
'criamos aqui o corpo da mensagem em html 
       htmlemail = htmlemail & "O Visitante: "&nome& "<br>"& " Residente na: "&endereco&"<br>"& "Cidade: "&cidade&"-"&estado& "<br>" 
       htmlemail = htmlemail& "Telefone: " &tel& "<br>" & "Turma: "&turma& "<BR>" &"Turno: " &turno& "<br>" &"Envia a seguinte mensagem aos cuidados da " &direct& "<br>"
       htmlemail = htmlemail&  "&nbsp;" & msg
       mail.body = htmlemail
'aqui é definido o estilo do email 1 = a texto 0 = a html
     mail.MailFormat = 0  
     mail.Bodyformat = 0
     mail.send
    set mail = nothing
%>

<body>
Seu email foi enviado com sucesso 
</boby>

Abraços e espero que tenha ajudado

By Rafael Marciano

Entrar

Formularios

Pergunta

Link para o comentário

Compartilhar em outros sites

10 respostass a esta questão

Posts Recomendados

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Participe da discussão

Estatísticas dos Fóruns