hospedagem profissional e ganhe Registro grátis.
Mais informações
(11) 2626.0239
• Rio de Janeiro:
(21) 4062.0099
• Porto Alegre:
(51) 4062.0025
Criação de formulário de E-mail
Para criar formulários em seu site o SILICOM ISP disponibiliza para seus clientes vários componentes como: SimpleMail, AspMail e CDONTS. Nesta página apresentamos dois exemplos um utilizando o SimpleMail e outro utilizando o CDONTS, você pode copiar um dos códigos abaixo e salvar o arquivo como .asp, e em seguida, copiar o código HTML e salvá-lo como .htm, depois é só personalizar os campos de email.
ASP (SimpleMail)
<%@
LANGUAGE="VBSCRIPT" %>
<%
response.buffer=true
set o = Server.CreateObject("ADISCON.SimpleMail.1")
o.MailServer = "mail.silicom.com.br"
o.Sender ="contato@seudominio.com.br"
o.Recipient = "nome@seudominio.com.br"
o.Subject = "Solicitação de Contato"
o.MessageText = "Email via WEB" + vbCrLf + ""&_
"Nome = " + Request.Form("nome") + vbCrLf + ""&_
"Email = " + Request.Form("email") + vbCrLf + ""&_
"Telefone = " + Request.Form("tel") + vbCrLf + ""&_
"Mensagem = " + Request.Form("mensagem")
call o.Send
Set o = Nothing
response.redirect "obrigado.htm"
%>
<%
response.buffer=true
set o = Server.CreateObject("ADISCON.SimpleMail.1")
o.MailServer = "mail.silicom.com.br"
o.Sender ="contato@seudominio.com.br"
o.Recipient = "nome@seudominio.com.br"
o.Subject = "Solicitação de Contato"
o.MessageText = "Email via WEB" + vbCrLf + ""&_
"Nome = " + Request.Form("nome") + vbCrLf + ""&_
"Email = " + Request.Form("email") + vbCrLf + ""&_
"Telefone = " + Request.Form("tel") + vbCrLf + ""&_
"Mensagem = " + Request.Form("mensagem")
call o.Send
Set o = Nothing
response.redirect "obrigado.htm"
%>
CDONTS
<% Set Mailer = CreateObject("CDONTS.NewMail")
Mailer.From = "contato@seudominio.com.br"
Mailer.To = "contato@seudominio.com.br"
Mailer.Subject = "Solicitação de Contato"
Mailer.Body = "Email via Web" + vbCrLf + ""&_
"Nome = " + Request.Form("nome") + vbCrLf + ""&_
"Email = " + Request.Form("email") + vbCrLf + ""&_
"Telefone = " + Request.Form("tel") + vbCrLf + ""&_
"Mensagem = " + Request.Form("mensagem")
Mailer.Send
Set Mailer = Nothing
response.redirect "obrigado.htm"
%>
Mailer.From = "contato@seudominio.com.br"
Mailer.To = "contato@seudominio.com.br"
Mailer.Subject = "Solicitação de Contato"
Mailer.Body = "Email via Web" + vbCrLf + ""&_
"Nome = " + Request.Form("nome") + vbCrLf + ""&_
"Email = " + Request.Form("email") + vbCrLf + ""&_
"Telefone = " + Request.Form("tel") + vbCrLf + ""&_
"Mensagem = " + Request.Form("mensagem")
Mailer.Send
Set Mailer = Nothing
response.redirect "obrigado.htm"
%>
Código HTML
<HTML>
<HEAD>
<TITLE>Form</TITLE>
</HEAD>
<form method="post" action="email.asp">
Nome:<input type="text" name="nome" size="40">
<br>
<br>
E-mail:<input type="text" name="email" size="40">
<br>
<br>
Tel:<input type="text" name="tel">
<br>
<br>
Mensagem:<textarea name="mensagem" cols="30" rows="5"></textarea>
<br>
<br>
<input type="submit" name="Submit" value="Enviar">
<input type="submit" name="Submit2" value="Limpar">
</form>
</BODY>
</HTML>
<HEAD>
<TITLE>Form</TITLE>
</HEAD>
<form method="post" action="email.asp">
Nome:<input type="text" name="nome" size="40">
<br>
<br>
E-mail:<input type="text" name="email" size="40">
<br>
<br>
Tel:<input type="text" name="tel">
<br>
<br>
Mensagem:<textarea name="mensagem" cols="30" rows="5"></textarea>
<br>
<br>
<input type="submit" name="Submit" value="Enviar">
<input type="submit" name="Submit2" value="Limpar">
</form>
</BODY>
</HTML>