Este exemplo é utilizado somente para os Planos Windows.
– 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 %>Esse artigo te ajudou?
Por favor, nos informe se este artigo te ajudou a resolver seu problema. Essa é a única maneira de melhorarmos.