O que é AspMail ?

ASPMAIL é um componente utilizado para viabilizar o envio de emails via formulários em ASP, como uma página “Fale Conosco” por exemplo.

Nesse tutorial iremos demonstrar a página em que o visitante insere seus dados e a mensagem, e depois veremos o código que fará o envio da mesma.

Código da página “aspmailcontato.asp”:

<HTML>
<BODY BGCOLOR="#FFFFFF">

<% If strErr <> "" Then %>
<h3>Error occurred: <% = strErr %>

<% End If %>

<% If bSuccess Then %>
Success! Message sent to <% = Request("To") %>.

<% End If %>
<FORM METHOD="POST" ACTION="aspmailenvia.asp">

<TABLE CELLSPACING=0 CELLPADDING=2 BGCOLOR="#E0E0E0">
<TR>
   <TD>FALE CONOSCO:</TD>
   <TD><B><% = strHost %></B></TD>
</TR>
<TR>
   <TD>NOME:</TD>
   <TD><INPUT TYPE="TEXT" NAME="FromName"></TD>
</TR>
<TR>
   <TD>SEU EMAIL:</TD>
   <TD><INPUT TYPE="TEXT" NAME="From"></TD>
</TR>
<TR>
   <TD>EMAIL DESTINO:</TD>
   <TD><INPUT TYPE="TEXT" NAME="To"></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>
</BODY>
</HTML>

Agora que o visitante já preencheu os campos, precisamos efeturar um “post” para enviar os dados via programação:

Código da página “aspmailenvia.asp”:

<%
' Mude para o seu servidor SMTP:
strHost = "smtp.seudomínio.com.br"

If Request("Send") <> "" Then
Set Mail = Server.CreateObject("Persits.MailSender")

' servidor de saída(SMTP)
Mail.Host = strHost 
' From address (remetente)
Mail.From = Request("From") 
' opcional (nome do remetente)
Mail.FromName = Request("FromName")

' (conta de usuário a qual será utilizada no caso de autenticação o SMTP)
Mail.Username="usuario@seudominio.com.br 
Mail.Password="senha" 

Mail.AddAddress Request("To") '(destinatários, separados por ;)

' Assunto da mensagem
Mail.Subject = Request("Subject")

' Corpo da mensagem
Mail.Body = Request("Body")
strErr = ""
bSuccess = False

On Error Resume Next ' Tratando erros

Mail.Send ' Enviando a mensagem
If Err <> 0 Then ' Caso ocorram erros
  strErr = Err.Description
else
  bSuccess = True
  Response.write("<h2>Email enviado com sucesso!!!</h2>")
End If
End If
%>

IMPORTANTE: A INETWEB não é desenvolvedora deste componente, ficando à nossa responsabilidade somente o suporte na utilização do mesmo. Para maiores informações sobre funcionalidades, recursos, sugestões e reclamações, recomendamos que procure o desenvolvedor responsável do componente.

Is this Base de conhecimento useful? Useful Useless 0 of 0 people say this Base de conhecimento is useful.