Formulário para envio de e-mail ( ASPMail )

– Disponibilizamos um exemplo de Formulário para enviar automaticamente a mensagem para seu e-mail:

Utilizamos o componente ASPMail.

1. formulario.asp

<form action="enviar.asp" method="POST">
<TABLE CELLSPACING=0 CELLPADDING=2 BGCOLOR="#E0E0E0">
<TR>
<TD>Nome:</TD>
<TD><INPUT TYPE="TEXT" NAME="FromName"></TD>
</TR><TR>
<TD>Assunto:</TD>
<TD><INPUT TYPE="TEXT" NAME="Subject"></TD>
</TR><TR>
<TD>Mensagem:</TD>
<TD><TEXTAREA NAME="Body"></TEXTAREA></TD>
</TR><TR>
<TD COLSPAN=2><INPUT TYPE="SUBMIT" NAME="Send" VALUE="Send Message">
</TD>
</TR>
</TABLE></FORM>

2. enviar.asp

<%
' change to address of your own SMTP server
strHost = "smtp.seudominio.com.br"
If Request("Send") <> "" Then
   Set Mail = Server.CreateObject("Persits.MailSender")
   ' enter valid SMTP host
   Mail.Host = strHost

Mail.From = "nome@seudominio.com.br" ' manter igual ao mail.username
Mail.FromName = Request("FromName") ' opcional
Mail.AddAddress "nome@seudominio.com.br", "Nome Destinatário" 'O e-mail que receberá o resultado do form.
Mail.Username = "nome@seudominio.com.br" 'Conta válida do servidor de mail para fazer autenticação.
Mail.Password = "senha" ' Informe a senha da conta de e-mail acima especificada.
Mail.Port = 587

   ' message subject
   Mail.Subject = Request("Subject")
   ' message body
   Mail.Body = Request("Body")
   strErr = ""
   bSuccess = False
   On Error Resume Next ' catch errors
   Mail.Send ' send message
   If Err <> 0 Then ' error occurred
      strErr = Err.Description
   else
      bSuccess = True
   End If
End If
%>
<HTML>
<BODY BGCOLOR="#FFFFFF">
<% If strErr <> "" Then %>
<h3>Error occurred: <% = strErr %>
<% End If %>
<% If bSuccess Then %>
Success! Message sent.
<% End If %>
  • Este artigo foi útil para você?
  • Sim   Não

Tags relacionadas

ASPMail

formulario

windows