Formulário de email

Leili · Agosto 10, 2008

:blink: Estou fazendo um formulário de email onde a pessoa vai escolher 3 tipos de email (diferentes) para mandar.

Por favor, me ajudeeee...

Ah estou fazendo em ASP.

Obrigada desde já.

Leili · Agosto 19, 2008

Galera que participou deste tópico:

Muitoooooooooooo Obrigadaaaaaaaaaaaa pela ajuda :)

GRAÇAS A DEUS conseguimos encontrar a solução p o meu problema. \o/

Segue abaixo o código com a solução:

<%

Set Mail = Server.CreateObject("Persits.MailSender")

Mail.Host = "000.000.00.00"

Mail.Port = 25

valor = request.form("cidade")

Mail.From = Request.Form("cidade")

Mail.FromName = Request.Form("nome")

Mail.AddAddress Request.Form("cidade")

Mail.Subject = "Teste"

%>

Pronto taí p quem precisar!!!!

Valeuuuuuuuuuuuuuuu.... :wub:

Filipe Fagundes · Agosto 26, 2008

Opa galera beleza?

estou aqui tentando fazer um formulario de envio por email usando asp e está aparecendo um erro em uma linha. Não conheço nada de asp, to meio q aprendendo por tentativa, se alguém poder me ajudar agradeço... segue abaixo os códigos.

Contato.asp ===========

<% Dim Mailer

Dim sucesso

If request.form("Enviar") = "sim" then

texto_body = "Fale Conosco - Abimaq "

texto_body = texto_body & "Data: " & date() & chr(13)

texto_body = texto_body & "Nome: " & request.form("nome") & chr(13)

texto_body = texto_body & "CNPJ: " & request.form("cnpj") & chr(13)

texto_body = texto_body & "Contato: " & request.form("contato") & chr(13)

texto_body = texto_body & "Telefone: " & request.form("telefone") & chr(13)

texto_body = texto_body & "Fax: " & request.form("fax") & chr(13)

texto_body = texto_body & "E-mail: " & request.form("email") & chr(13)

texto_body = texto_body & "Site: " & request.form("site") & chr(13)

texto_body = texto_body & "Endereço: " & request.form("endereco") & chr(13)

texto_body = texto_body & "Cidade: " & request.form("cidade") & chr(13)

texto_body = texto_body & "Cep: " & request.form("cep") & chr(13)

texto_body = texto_body & "Estado: " & request.form("estado") & chr(13)

texto_body = texto_body & "País: " & request.form("pais") & chr(13)

texto_body = texto_body & "Ano de Fundação: " & request.form("anofundacao") & chr(13)

texto_body = texto_body & "Nº de Empregados: " & request.form("empregados") & chr(13)

texto_body = texto_body & "Setores de Atuação: " & request.form("checkbox") & chr(13)

texto_body = texto_body & "Descreva em detalhes os produtos oferecidos por sua empresa: " & request.form("produtos") & chr(13)

texto_body = texto_body & "Por favor, informe as classificações fiscais (NCM) dos produtos: " & request.form("produtos2") & chr(13)

texto_body = texto_body & "Por favor, descreva os compradores potenciais dos seus produtos: " & request.form("produtos3") & chr(13)

texto_body = texto_body & "Descreva as vantagens competitivas, as características mais importantes e únicas de seus produtos: " & request.form("produtos4") & chr(13)

texto_body = texto_body & "Por favor, descreva possíveis nichos de mercado para os seus produtos: " & request.form("produtos5") & chr(13)

texto_body = texto_body & "Seu produto tem certificação no Brasil e/ou em outros mercados internacionais?: " & request.form("RadioGroup1") & chr(13)

texto_body = texto_body & "Quais?: " & request.form("comentario") & chr(13)

texto_body = texto_body & "Tem concorrentes na África do Sul, quem são?: " & request.form("comentario2") & chr(13)

texto_body = texto_body & "Tem interesse em encontrar-se com alguma(s) empresa(s) específica na África do Sul?: " & request.form("comentario3") & chr(13)

texto_body = texto_body & "O que busca na África do Sul?: " & request.form("RadioGroup2") & chr(13)

texto_body = texto_body & "Qual?: " & request.form("comentario4") & chr(13)

texto_body = texto_body & "Observações: " & request.form("observacoes") & chr(13)

Set Mailer = Server.CreateObject("Persits.MailSender")

Mailer.AddAddress Request.Form("destinatario")

Mailer.AddBCC "filipe@pentagonopublicidade.com.br"

Mailer.FromName = Request.Form("nome")

Mailer.From = request.Form("email")

Mailer.Host = "smtp.pentagonopublicidade.com.br"

Mailer.Subject = "Formulário - África do Sul"

Mailer.Body = texto_body

sucesso = Mailer.Send

If sucesso then

response.clear

response.redirect("http://www.pentagonopublicidade.com.br")

else

Response.write ("O E-MAIL NÃO FOI ENVIADO COM SUCESSO!")

End if

End If

%>

==============

teste.html ==============

<html>

<head>

<title>Fale Conosco- Tecnologia da Informação</title>

<!--

A:link {text-decoration: none; font-weight:regular; color:#333333; }

A:visited {text-decoration: none; font-weight:regular; color:#333333; }

A:active {text-decoration: none; color: #333333; }

A:hover {color: #000066; }

A.ff {text-decoration: none; color: #333333; }

A.ff:visited {text-decoration: none; color: #333333; }

A.ff:hover {text-decoration: none; color:#000066; }

A:ff.active {text-decoration: none; color: #333333; }

-->

</style>

<TITLE>Fale Conosco</TITLE>

<!--

A:link {text-decoration: none; font-weight:regular; color:#333333; }

A:visited {text-decoration: none; font-weight:regular; color:#333333; }

A:active {text-decoration: none; color: #333333; }

A:hover {color: #000066; }

A.ff {text-decoration: none; color: #333333; }

A.ff:visited {text-decoration: none; color: #333333; }

A.ff:hover {text-decoration: none; color:#000066; }

A:ff.active {text-decoration: none; color: #333333; }

.style2 {color: #6D839B;

font-weight: bold;

font-size: 11px;

font-family: Verdana, Arial, Helvetica, sans-serif;

}

.style20 {

color: #000;

font-family: Verdana, Arial, Helvetica, sans-serif;

font-size: 11px;

padding:0px 20px 0px 20px;

font-weight:bold;

background-color: #B8D3D0;

}

.style21 {

color: #000;

font-family: Verdana, Arial, Helvetica, sans-serif;

font-size: 10px;

background-color: #D2DFDE;

}

table.style22 {

color: #000;

font-family: Verdana, Arial, Helvetica, sans-serif;

font-size: 11px;

padding:0px 20px 0px 20px;

font-weight:bold;

background-color: #D2DFDE;

}

.style25 {font-weight: bold}

.style24 {

color: #000;

font-family: Verdana, Arial, Helvetica, sans-serif;

font-size: 11px;

padding:20px;

font-weight:bold;

background-color: #D2DFDE;}

.style90 {

color: #000;

font-family: Verdana, Arial, Helvetica, sans-serif;

font-size: 11px;

padding:0 20px 10px 20px;

font-weight:bold;

background-color: #D2DFDE;}

-->

</style>

</head>

<body>

<tr>

<br>

<tr>

<td class="style20"><div align="center" class="style24"><strong> Rodada de Negócios Brasil - África do Sul<br>

Johannesburgo<br>

29 e 30 de outubro de 2008 </strong></div></td>

</tr>

<tr>

</tr>

<tr>

1-Informações da Empresa (vendedora)</strong></td>

</tr>

<tr>

</tr>

<tr>

<tr>

</label></td>

</tr>

<tr>

</tr>

<tr>

<td width="110"><div align="right">Contato:</div></td>

</tr>

<tr>

<td width="110"><div align="right">Telefone:</div></td>

</tr>

<tr>

</tr>

<tr>

</tr>

<tr>

</tr>

<tr>

<td width="110"><div align="right">Endereço:</div></td>

</tr>

<tr>

<td width="110"><div align="right">Cidade:</div></td>

</tr>

<tr>

</tr>

<tr>

<td width="110"><div align="right">Estado:</div></td>

</tr>

<tr>

</tr>

<tr>

<td width="110"><div align="right">Ano de Fundação:</div></td>

</tr>

<tr>

<td width="110"><div align="right">Nº de Empregados</div></td>

</tr>

</table>

</div></td>

</tr>

<tr>

</tr>

<tr>

<p>

</p>

<tr>

Setores de Atuação:</strong><br>

</tr>

<tr>

Alimentícia </label></td>

Ferramentaria</td>

Movimentação <br>

      Armazenamento</td>

</tr>

<tr>

Ar Comprimido</label></td>

Fornos</td>

 Plásticos</td>

</tr>

<tr>

Bombas</td>

Fundição       </td>

Refrigeração <br>

      Industrial </td>

</tr>

<tr>

Celulosa</td>

Gráfico</td>

Saneamento Básico</td>

</tr>

<tr>

Cerâmica       </td>

Hidráulicos </td>

Têxteis</td>

</tr>

<tr>

Construção Civil       </td>

Limpeza</td>

Transmissão <br>

      Mecânica</td>

</tr>

<tr>

Controle de <br>

      Qualidade</td>

Madeira</td>

Válvulas</td>

</tr>

<tr>

Couro</td>

Máquinas Agrícolas</td>

Equipamentos de <br>

      Irrigação </td>

</tr>

<tr>

Embalagem</td>

Maq. Ferramenta</td>

</tr>

<tr>

Equipamentos <br>

      Pesados </td>

Mineração</td>

</tr>

<tr>

<div align="center">Outros. quais?

<br>

<br>

</div>

</label></td>

</tr>

</table>

</div></td>

</tr>

<tr>

</tr>

<tr>

<td><p><strong>2-Informações de Produtos e Mercados</strong></p></td>

</tr>

<tr>

</tr>

<tr>

<textarea name="produtos" id="produtos" cols="45" rows="5">Descreva em detalhes os produtos oferecidos por sua empresa:</textarea>

</div></td>

</tr>

<tr>

</tr>

<tr>

<textarea name="produtos2" id="produtos2" cols="45" rows="5">Por favor, informe as classificações fiscais (NCM) dos produtos:</textarea>

</div></td>

</tr>

<tr>

</tr>

<tr>

<textarea name="produtos3" id="produtos3" cols="45" rows="5">Por favor, descreva os compradores potenciais dos seus produtos:</textarea>

</div></td>

</tr>

<tr>

</tr>

<tr>

<textarea name="produtos4" id="produtos4" cols="45" rows="5">Descreva as vantagens competitivas, as características mais importantes e únicas de seus produtos:</textarea>

</div></td>

</tr>

<tr>

</tr>

<tr>

<textarea name="produtos5" id="produtos5" cols="45" rows="5">Por favor, descreva possíveis nichos de mercado para os seus produtos:</textarea>

</div></td>

</tr>

<tr>

</tr>

<tr>

Seu produto tem certificação no Brasil e/ou em outros mercados internacionais?

</p>

Não</label>

<br>

<label>

Sim, quais...<br>

</label>

<label>

</label>

</div>

</tr>

<tr>

</tr>

<tr>

Tem concorrentes na África do Sul, quem são?<br>

</label>

<label>

</label>

</div>

</div></td>

</tr>

<tr>

</tr>

<tr>

Tem interesse em encontrar-se com alguma(s) empresa(s) específica na África do Sul?<br>

</label>

<label>

</label>

</div>

</div></td>

</tr>

<tr>

</tr>

<tr>

O que busca na África do Sul?<br>

<br>

<label>

Distribuidor</label>

<br>

<label>

Representante</label>

<br>

<label>

Produtor </label>

<br>

<label>

Joint Venture</label>

<br>

<label>

Importador </label>

<br>

<label>

Outro. Qual?</label>

<br>

<label>

</label>

</div>

</div></td>

</tr>

<tr>

</tr>

<tr>

Observações:<br>

<br>

<label>

</label>

</div>

</div></td>

</tr>

<tr>

</tr>

<tr>

<tr>

<tr>

</font></div></td>

</tr>

</table></td>

</tr>

</table></td>

</tr>

</table>

</form></td>

</tr>

<tr>

</tr>

</table>

<br>

</div>

</DIV>

</body>

</html>

====================

vlw galera... o site ta meio q na base da gambiarra porque como não sei asp peguei um formulario pronto aqui e como estou com pressa não alterei a estrutura do codigo.... então não chinguem muito XD...

vlw

Rafael Spilki · Agosto 26, 2008

Ok Filipe, duas coisas:

Primeira: entre em contato com o seu server e pergunte pra ele qual componente você pode utilizar pra enviar e-mails: aspmail, cdo.sys, cdo.nts??? Poste aqui o componente que você tem disponível...

Segunda: poste exatamente a mensagem de erro e a linha a qual ela se refere;

Assim que eu tiver essas informações conseguirei te ajudar!

[]'s Rafael Spilki

Filipe Fagundes · Agosto 27, 2008

Boa tarde Rafael,

1-Eu posso utilizar o aspmail.

2-Tipo de erro:

Objeto Server, ASP 0177 (0x800401F3)

Seqüência de classe inválida

/contatoasp.asp, line 64

Vlw ae pela força

Rafael Spilki · Agosto 27, 2008

beleza cara... mas tipo facilitaria muito se você postasse tb essa linha específica 64 aí pra eu dar uma olhada pra ti!

Fico no aguardo.

[]'s Rafael Spilki

Agosto 28, 2008

opa.. claro XD

Set Mailer = Server.CreateObject("Persits.MailSender")

essa é a linha 64... vlw

Rafael Spilki · Agosto 28, 2008

Cara... mas então... esse codigo que você postou é de AspEmail e não de aspmail como você falou que seu servidor disponibiliza... sacou a diferença?

vou te passar um codigo de aspmail pra você testar:

Em Mailer.FromName = "Seu_Nome", substitua a parte "Seu_Nome" pelo nome do Remetente do E-mail (seu nome).

Na linha Mailer.FromAddress = "seu_nome@seudominio.com.br" substitua o endereço de e-mail "seu_nome@seudominio.com.br" pelo endereço de e-mail remetente (seu e-mail).

Na linha Mailer.RemoteHost = "smtp.seudominio.com.br" substitua a parte "seudominio.com.br" pelo endereço de seu web site.

<--Início ASP--> (não copie essa linha)

<%
if request("botao") = "enviar" then
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.FromName = "Seu_Nome"
Mailer.FromAddress= "seu_nome@seudominio.com.br"
Mailer.RemoteHost = "smtp.seudominio.com(.br)"
Mailer.AddRecipient "teste", request.form("para")
Mailer.Subject = request.form("assunto")
Mailer.BodyText = request.form("mensagem")

if Mailer.SendMail then
Response.Write "E-MAIL ENVIADO COM SUCESSO!"
else
Response.Write mailer.response
end if
response.end
end if
%>

<--Fim ASP--> (não copie essa linha)

<--Início HTML--> (não copie essa linha)

<html>
<head>
<title>HostSul - Exemplo de AspMail</title>
<head>
<body>
<form method="POST" action="aspmail.asp">
<p>AspMail - Envio de E-mail através de página Web</p>
<table border="0" width="100%">
<tr>
<td width="14%">Para :</td>
<td width="86%"><input type="text" name="para" size="20"></td>
</tr>
<tr>
<td width="14%">Assunto :</td>
<td width="86%"><input type="text" name="assunto" size="20"></td>
</tr>
<tr>
<td width="14%">Mensagem :</td>
<td width="86%"><textarea rows="2" name="mensagem" cols="20"></textarea></td>
</tr>
<tr>
<td width="14%"></td>
<td width="86%"><input type="submit" value="enviar" name="botao"></td>
</tr>
</table>
</form>
</body>
</html>

<--Fim HTML--> (não copie essa linha)

Faça as alterações e adaptações necessárias e veja se funciona... qualquer coisa posta aí novamente...

[]'s Rafael Spilki

Filipe Fagundes · Setembro 8, 2008

aeee... Rafael vlw..

então.. eu não sei q diabos o pessoal que enviei o formulario usa, mas lá rodou... eu tava testando aqui no meu pc e tava dando erro, mas lá rodou...

vlw ae pela ajuda... na proxima quando for fazer eu começo pelo aspmail, pelo menos ai vou saber minah dúvida... vlw por tudo o/

Rafael Spilki · Setembro 8, 2008

Tranquilo cara... qualquer dúvida posta aí!

[]'s Rafael Spilki

Entrar

Formulário de email

Pergunta

Leili

Link para o comentário

Compartilhar em outros sites

34 respostass a esta questão

Posts Recomendados

Leili

Link para o comentário

Compartilhar em outros sites

Filipe Fagundes

Link para o comentário

Compartilhar em outros sites

Rafael Spilki

Link para o comentário

Compartilhar em outros sites

Filipe Fagundes

Link para o comentário

Compartilhar em outros sites

Rafael Spilki

Link para o comentário

Compartilhar em outros sites

Guest Visitante

Link para o comentário

Compartilhar em outros sites

Rafael Spilki

Link para o comentário

Compartilhar em outros sites

Filipe Fagundes

Link para o comentário

Compartilhar em outros sites

Rafael Spilki

Link para o comentário

Compartilhar em outros sites

Participe da discussão

Estatísticas dos Fóruns

Navegação

Atividades